XL 2016 Boucle

[Aldonanou]

Bonjour,

J'aimerai pouvoir copier le nom du gestionnaire présent en colonne B en face des lignes correspondantes à sa gestion. Bien sûr je ne connais pas à l'avance le nombre de lignes pour chaque gestionnaire. J'étais partie sur l'idée que : si la cellule B contient gestionnaire alors copie de la valeur 4 lignes en dessous et tant que le numéro de séquence est complété (colonne C).

Sub Essai()

Dim Lr As Long
Dim MyRange As Range
Lr = Range("B" & Rows.Count).End(xlUp).Row

' si la cellule B contient gestionnaire
Range("A1").Value = "=IF(ISNUMBER(SEARCH(""gestionnaire"",RC[1])),RC[1],"""")"
Range("A1").AutoFill Destination:=Range("A1:A" & Lr)

Set MyRange = Sheets("Essai").UsedRange.Find("Gestionnaire")

ActiveCell.Offset(4, 0).Select

End Sub

Cela fait un moment que je suis sur le sujet et que je n'y arrive pas. J'ai très certainement pris le problème à l'envers !

Pourriez-vous m'aider.

Merci

 

[eCHO]

Sub Essai()

Dim Lr As Long
Dim currentRow As Long

Lr = Range("B" & Rows.Count).End(xlUp).Row

currentRow = 1

For currentRow = 1 To Lr
    If Range("B" & currentRow).Value = "gestionnaire" Then
        Range("A" & currentRow).Value = Range("B" & currentRow).Value
    End If
    currentRow = currentRow + 1
Next currentRow

End Sub

 

[Aldonanou]

Bonjour eCHO, merci de ton aide, malheureusement rien ne se produit snif !

 

[jm.andryszak]

Bonjour
Si j'ai bien compris votre demande, voici une proposition

 

[Aldonanou]

Bonjour jm.andryszak, merci beaucoup, c'est impeccable c'est exactement ce que je souhaitais.