Parcourir cellule et copier avec condition

PROTHEAs · 17 Décembre 2006

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 · 18 Décembre 2006

Re : Parcourir cellule et copier avec condition

Salut,

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

Code:

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

@+

Parcourir cellule et copier avec condition

PROTHEAs

Guest

porcinet82

XLDnaute Barbatruc

Discussions similaires

Parcourir cellule et copier avec condition

PROTHEAs

Guest

porcinet82

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency