Bonjour à toutes et à tous,
Fidèle lecteur de ce forum depuis pas mal de temps, j'ai jusqu'ici réussit à m'en sortir dans la jungle du VBA en lisant vos conseils. Mais aujourd'hui je n'y arrive plus et c'est pour cette raison que je fais appel à vous.
J'ai un classeur qui contient deux feuilles. Je souhaiterais comparer chaque cellule de la colonne B de la première feuille avec chaque cellule de la colonne B de la deuxième feuille.
Ensuite pour chaque cellule matché entre les deux feuilles, il faut copier les informations situées dans les colonnes C, D et E de la feuille 2 et les copier dans les feuilles E, F et G de la première feuille.
Je vous joins un fichier exemple qui sera sans doute plus clair que mes explications.
Pour info, voici le bout de code que j'ai commencé à taper :
Sub Comparaison()
Dim CompareRange As Variant, Selection As Variant, x As Variant, y As Variant, DernLigne As Long, DernLigne2 As Long
Set CompareRange = Worksheets("Comparer").Range("B2:" & Range("B2").SpecialCells(xlCellTypeLastCell).Address)
Set Selection = Worksheets("Matières Premières").Range("B2:" & Range("B2").SpecialCells(xlCellTypeLastCell).Address)
'
'For Each x In Selection
' For Each y In CompareRange
' If x = y Then x.Offset(0, 3) = y.Offset(0, 1)
'
' Next y
'Next x
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 4) = y.Offset(0, 2)
Next y
Next x
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 5) = y.Offset(0, 3)
Next y
Next x
End Sub
Je sais que les sujets de comparaison entre cellules/colonnes ont déjà été abordés plusieurs fois mais je n'ai pas réussit à adapter leurs réponses à mon cas.
Je vous remercie pour votre aide.
Bonne soirée.
Fidèle lecteur de ce forum depuis pas mal de temps, j'ai jusqu'ici réussit à m'en sortir dans la jungle du VBA en lisant vos conseils. Mais aujourd'hui je n'y arrive plus et c'est pour cette raison que je fais appel à vous.
J'ai un classeur qui contient deux feuilles. Je souhaiterais comparer chaque cellule de la colonne B de la première feuille avec chaque cellule de la colonne B de la deuxième feuille.
Ensuite pour chaque cellule matché entre les deux feuilles, il faut copier les informations situées dans les colonnes C, D et E de la feuille 2 et les copier dans les feuilles E, F et G de la première feuille.
Je vous joins un fichier exemple qui sera sans doute plus clair que mes explications.
Pour info, voici le bout de code que j'ai commencé à taper :
Sub Comparaison()
Dim CompareRange As Variant, Selection As Variant, x As Variant, y As Variant, DernLigne As Long, DernLigne2 As Long
Set CompareRange = Worksheets("Comparer").Range("B2:" & Range("B2").SpecialCells(xlCellTypeLastCell).Address)
Set Selection = Worksheets("Matières Premières").Range("B2:" & Range("B2").SpecialCells(xlCellTypeLastCell).Address)
'
'For Each x In Selection
' For Each y In CompareRange
' If x = y Then x.Offset(0, 3) = y.Offset(0, 1)
'
' Next y
'Next x
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 4) = y.Offset(0, 2)
Next y
Next x
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 5) = y.Offset(0, 3)
Next y
Next x
End Sub
Je sais que les sujets de comparaison entre cellules/colonnes ont déjà été abordés plusieurs fois mais je n'ai pas réussit à adapter leurs réponses à mon cas.
Je vous remercie pour votre aide.
Bonne soirée.