Autofill sous condition

[Kernoz]

Bonjour à tous,

J'ai besoin d'un petit bout de code ( étonnant non ? 😛 )

J'aimerais incrémenter ( Autofill ) une cellule sur x lignes à partir de la premiere cellule d'une colonne contenant le mot "Poisson".

PS : évidement le mot "Poisson" change de position de manière aléatoire, toujours sur la même colonne.

Exemple en PJ.

D'avance merci.

 

[francedemo]

Re : Autofill sous condition

bonjour
tu boucle de la première à la dernière cellule de ta colonne
dès que tu trouve "poisson", tu recopies "poisson" vers le bas
à+

 

[Kernoz]

Re : Autofill sous condition

Oui 😛

C'est à peu pret ce que j'essaye de faire, mais je n'arrive pas à trouver le bon code.

Voici ou j'en suis rendu ... mais je suis vraiment débutant et il y a plein d'erreur de syntaxes :

nom1 = Range("D500").End(xlUp).Row
    nom1.Select
    Selection.AutoFill Destination:=Range("nom1", D500)

Mon idée :

Trouver la premiere cellule non vide de la colonne D en partant de D500 ( pas besoin d'aller plus bas).
Selectionner cette cellule ( le mot poisson s'y trouve forcement ).
Incrémenter à partir de cette cellule jusqu'a D500.

Merci d'avance !

Edit : un autre essai infructueux :

    'début du test
    Dim SourceRange As Range
    Dim FillRange As Range
    Set SourceRange = Range("D500").End(xlUp).Row
    Set FillRange = Range("SourceRange:D500")
    SourceRange.AutoFill Destination:=FillRange
    'Fin du test

 

[Kernoz]

Re : Autofill sous condition

Bon ...

Je pense ne pas être loin du but mais il y a une erreur dans mon code : Je n'arrive pas à faire que la destination de mon incrémentation soit D500 :

'début du test
    
    Sheets("Recap").Select
    Dim Ligne As Range
    Dim Ligne2 As Range
    Set Ligne = Range("D500").End(xlUp)
    Set Ligne2 = Range("D500")
    Ligne.Select
    Selection.AutoFill Destination:=Range(Range("D500").End(xlUp) & Range("D500"))
    'Fin du test

Merci d'avance pour votre correction 😉

 

[job75]

Re : Autofill sous condition

Bonjour,

Remplacer & par ,

A+