Comparaison des cellules sur pages différentes

[Jean]

Bonjour le forum,

Je voudrais comparer ma cellule avec une autre cellule se trouvant sur une autre feuille. Comment écrire le code pour que cela fonctionne ?

Voici ce à quoi le code devrait ressembler :

Sheets('À produire').Select
Do Until Activecell.Value = ''
If Activecell.Value = (cellule se trouvant sur la feuille « Données ») Then
Do Until Activecell.Value = ''
(cellule se trouvant sur la feuille « Données »).Offset (0, 3)
Selection.Copy
Sheets('À produire').Select
Activecell.Offset(0, 2)
ActiveSheet.Paste
Else
Activecell.Offset(1, 0)
Loop
End If
Loop

J’espère que vous avez compris sinon, posez des questions pour que je puisse vous aidez à m’aider. ))

Merci

 

[Flyonets]

Bonjour,
un bout de code pour te dépanner
Sub Comparplage()
'Comparaison de 2 feuilles distinctes
Application.ScreenUpdating = False
Dim Cherch As Range, Cel As Range
Dim Plg As Range, MaPlage As Range
Dim C As Integer, Macell
Set Plg = Feuil1.Range('A1:K22')
If Plg Is Nothing Then Exit Sub
Set Cherch = Feuil2.Range('A1:K22')
If Cherch Is Nothing Then Exit Sub

For Each Cel In Plg
Set Macell = Cherch.Find(Cel, , , xlWhole, , xlNext)
If Macell Is Nothing Then
If C = 0 Then
Set MaPlage = Cel
C = C + 1
Else
Set MaPlage = Union(MaPlage, Cel)
End If
End If
Next
If MaPlage Is Nothing Then
Else
MaPlage.Interior.ColorIndex = 6
End If
Set Plg = Nothing: Set Macell = Nothing
Set Cherch = Nothing: Set MaPlage = Nothing
End Sub

 

[Jean]

Bonsoir Flyonets, le forum,

J'ai une erreur 424 (objet requis) à cette ligne :

Application.ScreenUpdating = False
Set Plg = Feuil1.Range('A1:A200') 'Ici l'erreur
If Plg Is Nothing Then Exit Sub
Set Cherch = À_produire.Range('A')
If Cherch Is Nothing Then Exit Sub

Comment la corrigée.

Merci