Discussion :

[mattwarend]

Bonjour à tous,

J'ai un fichier Excel et plus précisément une colonne G où j'applique la formule simple =NBCAR(A2).

Dans ma macro, je ne sais pas comment faire pour que cette formuile soit exécutée automatiquement sur toutes les lignes de la colonne G (ligne susceptible de varier)
Genre copier formule vers le bas jusqu'à la dernière ligne renseignée.

Pouvez-vous SVP m'aider à ce sujet ?

Merci.

[mattwarend]

J'ai essayé ça en faisant une recherche sur le forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Name"
    Selection.AutoFill Destination:=Range("G1:IU1"), Type:=xlFillDefault
    Range("G1").Select

Marche pas... ca s'arrête à la ligne 12 ??!

[oOVaveOo]

Bonjour,

Tu as la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFill Destination:=Range(tonRange)

Il faut que tu determine la dernière cellule dans ton Range.

[mattwarend]

Merci pour ta réponse, mais là est bien le problème : c'est que je ne peux pas déterminer la dernière cellule car celle-ci varie.

Ce qu'il faudrait c'est un code qui permette d'appliquer la formule jusqu'à la dernière ligne renseignée.

[oOVaveOo]

La dernière ligne de quelle colonne ?

Tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derniere_ligne = Range("A65536").End(xlUp).Row

et tu auras ta dernière ligne utilisée de la colonne A:A

[mattwarend]

C'est la dernière ligne de la colonne G.
J'ai donc modifié mon code comme suit avec les infos que tu m'as donné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("G1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Name"
    Selection.AutoFill Destination:=Range("G65536").End(xlUp).Row
    Range("G1").Select

J'obtiens le message d'erreur :

La méthode AutoFill de la classe Range a échoué

[alex830001]

une variante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derli = Columns(1).Find("*", , , , , xlPrevious).Row

puis donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFill Destination:=Range(cells(1,1),cells(derli,1)) 'ici pour la colonne A

Dans ton cas c'est la colonne G donc: (à condition que la derniere ligne non vide de la colonne 1 correspond au numéro de ligne jusqu'auquel tu veux copier ta formule)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim derli as integer
derli = Columns(1).Find("*", , , , , xlPrevious).Row
Selection.AutoFill Destination:=Range(cells(1,7),cells(derli,7))