XL 2016 Boucle

Aldonanou · 10 Janvier 2023

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

jm.andryszak · 10 Janvier 2023

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

eCHO · 10 Janvier 2023

VB:

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 · 10 Janvier 2023

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

jm.andryszak · 10 Janvier 2023

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

Aldonanou · 10 Janvier 2023

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

XL 2016 Boucle

Aldonanou

XLDnaute Junior

Pièces jointes

jm.andryszak

eCHO

XLDnaute Junior

Aldonanou

XLDnaute Junior

jm.andryszak

XLDnaute Occasionnel

Pièces jointes

Aldonanou

XLDnaute Junior

Discussions similaires