Methode AutoFill

niouniou -
M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention - 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:

Autofill vba
Excel compter cellule couleur sans vba - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

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

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

AutoFill jusqu'à la dernière cellule non vide

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires