Methode autofill en vba

Résolu/Fermé
niouniou - 24 janv. 2023 à 12:22
 niouniou - 24 janv. 2023 à 13:42

Bonjour,

Je mets le nombre de lignes remplies de la feuil1 colonne B dans une variable 'dernligne' que j'utilise pour remplir la colonne A de la feuille 'Source' avec LF à partir de la 2eme ligne car il y a une ligne d'entête  . Puis a partir de la ligne dernligne +1 je veux remplir la même colonne avec LN autant de fois que dernligne.

Pour être plus clair par exemple :

dernligne=3  (lignes remplies de la feul1)

Je dois avoir dans ma feuille 'Source' LF de la ligne 2 à 4 et LN de la ligne 5 à 7

J'ai fait le code suivant: 

La 1ere partie fonctionne correctement (LF) mais la recopie ne fonctionne pas dans la 2eme partie (LN)

dernligne = Sheets ("Feuil1").Range("B1").End(xlDown).Row

Sheets("Source").Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "LF"                                                                
    Selection.AutoFill Destination:=Range("A2:A" & dernligne + 1)
      
    Range("A" & dernligne + 2).Select
    ActiveCell.FormulaR1C1 = "LN"                                                               
    Set SourceRange = Range("A" & dernligne + 2)
    Set fillrange = Range("A" & (dernligne * 2) + 2)
    SourceRange.AutoFill Destination:=fillrange

2 réponses

yg_be Messages postés 22480 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 février 2024 1 445
24 janv. 2023 à 13:13

bonjour,

peut-être:

Range("A" & dernligne + 2 & ":" & "A" & (dernligne * 2) + 2) = "LN"
0

Super c'est parfait.

Merci beaucoup.

0