Référence aux cellules

[Greg]

Bonjour,

J'essaie de débuter en VBS, et j'ai besoin de faire ceci:

J'ai un tableau à 4 colonnes. Dans la colonne 1 et la colonne 3 se trouvent des nombres croissants. J'ai trouvé et adapté un script pour comparer les 2 colonnes. Ce que je voudrais, c'est que lorsqu'un nombre de la colonne 1 est identique à celui de la colonne 3, même sur une ligne différente, le contenu de la colonne 4, situé à la même ligne que mon nombre de la colonne 3 soit copié sur la colonne 2, mais cette fois à hauteur de la colonne 1. Par exemple, si A1=C3, copier D3 dans A2.

J'ai pour l'instant le script suivant:

Sub Comparer()

Dim cell As Range

For Each cell In Worksheets("Feuil1").Range("A1:A65536")
If Not IsEmpty(cell) Then
If Application.CountIf(Worksheets("Feuil1").Range("C1:C65536"), cell) > 0 Then
cell.Offset(0, 3).Select
Selection.Copy
cell.Offset(0, 1).Select
ActiveSheet.Paste
End If
End If
Next cell
End Sub


Mais je n'arrive pas à faire référence à la cellule de la colonne 4 par rapport à celle de la colonne 3.

Une âme charitable pourrait-elle venir à l'aide d'un pauvre petit développeur perdu dans le vaste monde de Visual Basic ?

Merci infiniment !

 

[CBernardT]

Bonjour Greg

Une reprise de ta macro avec quelques explications.

Cordialement

CBernardT

 

[J-P]

Salut, tu peux utiliser les fonctions:

Sub function
x = 1
y = 1
while feuil1.cells(x, 1) <> ""
while feuil1.cells(x, 1) <> feuil1.cells(y, 3)
y = y + 1
wend
feuil1.cells(x, 2) = feuil2.cells(y, 4)
x = x + 1
wend
end sub


J'ai pas tester mais si j'explique:
x = 1 et y = 1
tant que la colonne A n'est pas vide alors:
tant que la cellule A1 est differente de la cellule C1
y = y + 1
donc je reviens à la phrase précédente jusqu'à que ce soit égal.
une fois que c'est égal, je copie en colonne 2 à la ligne de la colonne 1 la valeur de la colonne 4 à la ligne de la colonne 2.
x = x + 1
fin

Dis moi si ça marche

Salut