J'aimerais parcourir (boucle 1) une colonne AN dans une feuille
donn=E9e SYNOVR. J'aimerais que si la valeur d'une cellule est
diff=E9rente de "" (=3Dnon nulle) celle-ci soit r=E9cup=E9r=E9 dans une
variable string STRRx.
Et =E0 chaque fois qu'on rencontre une valeur on ouvre une autre
feuille AFFECTATIONS et on parcours (boucle 2) la colonne S =E0 la
recherche de la valeur STRRx.
Si la cellule Sx =3D STRRx alors on r=E9cup=E8re la valeur =E0 la m=EAme
ligne mais dans la colonne A que l'on place dans une autre variable
string STRRx2.
Puis on retourne dans la feuille SYNOVR et on place STRRx2 dans la
cellule ou on c'est arr=EAt=E9 dans la boucle 1 et on continu le
parcours.=20
Merci =E0 ceux ou celles qui ce pencheront sur mon probl=E8me.
Soit je suis vraiment nul ou alors je m'y prend mal... J'ai utilisé ta macro pour d'autres colonnes sur une autre feuille seulement ça ne fonctionne pas peux-tu me dire où est l'erreur s'il te plaît?
Public Sub TX() Dim c As Range, STRTx, STRTx2, Plage As Range Sheets("SYNO VD+TV").Select Set Plage = Range("BL1", Range("BL65536").End(xlUp)) For Each c In Plage If c <> "" Then STRTx = c Var = Application.Match(c, Sheets("AFFECTATIONS").Range("AA:AA"), 0) If IsNumeric(Var) Then STRTx2 = Application.Index(Sheets("AFFECTATIONS").Range("V:V"), Var, 5) c.Offset(0, 1) = STRTx2 End If End If Next c End Sub
Merci encore
Soit je suis vraiment nul ou alors je m'y prend mal... J'ai utilisé ta
macro pour d'autres colonnes sur une autre feuille seulement ça ne
fonctionne pas peux-tu me dire où est l'erreur s'il te plaît?
Public Sub TX()
Dim c As Range, STRTx, STRTx2, Plage As Range
Sheets("SYNO VD+TV").Select
Set Plage = Range("BL1", Range("BL65536").End(xlUp))
For Each c In Plage
If c <> "" Then
STRTx = c
Var = Application.Match(c,
Sheets("AFFECTATIONS").Range("AA:AA"), 0)
If IsNumeric(Var) Then
STRTx2 =
Application.Index(Sheets("AFFECTATIONS").Range("V:V"), Var, 5)
c.Offset(0, 1) = STRTx2
End If
End If
Next c
End Sub
Soit je suis vraiment nul ou alors je m'y prend mal... J'ai utilisé ta macro pour d'autres colonnes sur une autre feuille seulement ça ne fonctionne pas peux-tu me dire où est l'erreur s'il te plaît?
Public Sub TX() Dim c As Range, STRTx, STRTx2, Plage As Range Sheets("SYNO VD+TV").Select Set Plage = Range("BL1", Range("BL65536").End(xlUp)) For Each c In Plage If c <> "" Then STRTx = c Var = Application.Match(c, Sheets("AFFECTATIONS").Range("AA:AA"), 0) If IsNumeric(Var) Then STRTx2 = Application.Index(Sheets("AFFECTATIONS").Range("V:V"), Var, 5) c.Offset(0, 1) = STRTx2 End If End If Next c End Sub
