Methode AutoFill

Fermé

niouniou - 19 janv. 2023 à 11:30
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 - 19 janv. 2023 à 18:14

Bonjour,

Je voudrais copier dans toutes les lignes non vide de la feuille la formule entrée dans la 1er cellule:

Par exemple j'ai 5 lignes de remplies en colonne A que je mets dans une variable que je récupère pour recopier la formule qui se trouve en B1 sur les 4 lignes restantes.

J'ai actuellement :

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

Range("b1").Select
ActiveCell.FormulaR1C1 = "M"
Selection.AutoFill Destination:=Range("b2:b" & dernligne )

ça fonctionne mais existe il une façon afin de ne pas avoir a utiliser de variable svp?

J'ai essayé différentes façon mais sans succès.

A voir également:

1 réponse

Réponse 1 / 1

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
19 janv. 2023 à 18:14

Bonjour,

Teste ceci

Sub test()
  Sheets("Feuil1").Range("B1").Formula = "Bonjour"
  Sheets("Feuil1").Range("B1").AutoFill Destination:=Sheets("Feuil1").Range("B1:B" & _
    Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefaultSheets
End Sub

Discussions similaires

[Excel] Méthode Autofill dans une macro

VBA Methode range a échouée

Création document pour Méthode des J

Erreur 1004 : Méthode 'Range' de l'objet '_Worksheet' a échoué

Erreur Selection.autofill

Discussions similaires

Newsletters