Parcourir cellule et copier avec condition

[PROTHEAs]

Bonjour à tous,

J'aimerais parcourir (boucle 1) une colonne AN dans une feuille
donnée SYNOVR. J'aimerais que si la valeur d'une cellule est
différente de "" (=non nulle) celle-ci soit récupéré dans une
variable string STRRx.


Et à chaque fois qu'on rencontre une valeur on ouvre une autre
feuille AFFECTATIONS et on parcours (boucle 2) la colonne S à la
recherche de la valeur STRRx.


Si la cellule Sx = STRRx alors on récupère la valeur à la même
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êté dans la boucle 1 et on continu le
parcours.


Merci à ceux ou celles qui ce pencheront sur mon problème.

 

[porcinet82]

Re : Parcourir cellule et copier avec condition

Salut,

J'ai pas testé, mais je dirai un truc de genre :

Sub test()
Dim i&, k&, STRRx As String, STRRx_2 As String
With Sheets("SYNOVR")
    For i = 1 To .Range("AN65536").End(xlUp).Row
        If IsEmpty(.Range("AN" & i).Value) = False Then
            STRRx = .Range("AN" & i).Value
            With Sheets("AFFECTATIONS")
                For k = 1 To .Range("S65536").End(xlUp).Row
                    If .Range("S" & k).Value = STRRx Then
                        STRRx_2 = .Cells(k, 1).Value
                        Exit For
                    End If
                Next k
                With Sheets("SYNOVR")
                    .Range("AN" & i).Value = STRRx_2
                End With
            End With
        End If
    Next i
End With
End Sub

@+