Discussion :

[modus57]

Bonjour,

Je m'adresse à vous car je me trouve face à un problème que je ne parviens pas à résoudre malgré de mes recherches.

J'ai deux plages de cellules sur deux feuilles différentes dans un même classeur, certaines cellules de la plage ("A1:E2" feuille 1) ont la même valeur que des cellules de la plage ("A1:E1" feuille 2).

J'essaye d'écrire un code qui dise pour chaque cellule x de la plage ("A1:E2" feuille 1), vérifier si la valeur est présente dans la plage ("A1:E1" feuille 2), si ce n'est pas le cas => modifier la ou les cellules dans la plage ("A1:E1" feuille 2).

J'ai écrit ceci mais ça ne fonctionne pas, pourriez-vous m'aider svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CompareModifCell()
Dim Cel, Val
    For Each Cel In Range("A1:E2")
        MsgBox Sheets("form").Name & " : " & Cel
        Sheets("BD").Activate
        Columns(1).Find(Sheets("form").Range("A1")).Activate
        Range(ActiveCell, ActiveCell.Offset(0, 9)).Select
        For Each Val In Selection
            If Val = Cel Then
                MsgBox Sheets("BD").Name & " : " & Val & ") existe"
            Else
                'Sheets("BD").Name & " : " & Val & ") n'existe pas"
                Val = Cel
                'Val.Select
                'ActiveCell = Cel
            End If
        Next Val
    Next Cel
End Sub

Merci d'avance

[Daniel.C]

Bonjour,

si ce n'est pas le cas => modifier la ou les cellules dans la plage ("A1:E1" feuille 2)

Si les cellules n'ont pas la même valeur, par exemple A1 feuille 1 n'a pas d'équivalent Feuille 2; qu'est-ce que tu vas modifier ?

[modus57]

Bonjour Daniel.C.

Merci de t'intéresser à ma question et pour t'a promptitude.

Si les cellules n'ont pas la même valeur, par exemple A1 feuille 1 n'a pas d'équivalent Feuille 2; qu'est-ce que tu vas modifier ?

Modifier la valeur de la cellule A1 Feuille 2, par la valeur de la cellule A1 Feuille 1.

Est-ce possible ?

[Daniel.C]

Oui, l'exemple était mauvais. Et si c'est A2 qui n'a pas de correspondance ?

[modus57]

Modifier la valeur de la cellule A2 Feuille 2, par la valeur de la cellule A2 Feuille 1.

Valeurs dans la plage de cellules sur la feuille 1 en "A1:E2" :
__A B C D E
1 1 2 3 4 5
2 6 7 8 9 10

Valeurs dans la plage de cellules sur la feuille 2 en "A1:J1" :
__A B C D E F G H I J
1 1 2 3 4 5 6 7 8 9 10

Exemple:
si la valeur 6 est modifiée dans feuille 1 en "A2"
modifier la valeur 6 dans feuille 1 en "F6"

[Marc-L]

Bonjour,

pour ce dernier cas tel que présenté (rien à voir avec la demande d'origine !),
code à insérer dans le module de classe Feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Intersect(Me.[A1:E2], Target) Is Nothing Then
        Feuil2.Cells(Target.Column + (Target.Row - 1) * 5).Value = Target.Value
    End If
End Sub

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …