Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mattwarend
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mattwarend

Guest
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 formule soit exécutée automatiquement sur toutes les lignes renseignée 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.
 
Trier par date Trier par votes
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Bonjour,

Voici un bout de code qui pourrait t'aider...

Dim DerLig As Long
DerLig = [G65000].End(xlUp).Row
[G2].AutoFill Destination:=Range("G2:G" & DerLig), Type:=xlFillDefault

En supposant que la formule est en G1

Blord
 
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

blord à dit:
Bonjour,

Voici un bout de code qui pourrait t'aider...

Dim DerLig As Long
DerLig = [G65000].End(xlUp).Row
[G2].AutoFill Destination:=Range("G2:G" & DerLig), Type:=xlFillDefault

En supposant que la formule est en G1

Blord
Cliquez pour agrandir...

Salut,

Merci pour ta réponse.
Voici mon code :

Code: 
Rows("1:4").Select
    Range("A4").Activate
    Selection.Delete Shift:=xlUp
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Name"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Path"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Name + Path"
    Range("A1:I1").Select
    Range("I1").Activate
    Selection.Font.Bold = True
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("L1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveCell.FormulaR1C1 = "TOTAL (Mo)"
    With ActiveCell.Characters(Start:=1, Length:=10).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("L3").Select
    ActiveCell.FormulaR1C1 = "TOTAL (Go)"
    Range("L1:M1,L3:M3").Select
    Range("L3").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("L3").Select
    Selection.Font.Bold = True
    Columns("C:C").Select
    Selection.Replace What:=" MB", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "0.0"
    Range("M1").Select
    Selection.NumberFormat = "0"
    Range("M3").Select
    Selection.NumberFormat = "0.0"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Size (Mo)"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "=SUM(C[-10])"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/1000)"
    [B]Range("G2").Select
    ActiveCell.FormulaR1C1 = "=LEN(RC[-6])"[/B]
    Selection.AutoFill Destination:=Range("G2:G12"), Type:=xlFillDefault
    Range("G2:G12").Select
    [B]Range("H2").Select
    ActiveCell.FormulaR1C1 = "=LEN(RC[-6])"[/B]
    Selection.AutoFill Destination:=Range("H2:H12")
    Range("H2:H12").Select
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
    Selection.AutoFill Destination:=Range("I2:I12")
    Range("I2:I12").Select
    Range("A1").Select
    Columns("B:B").ColumnWidth = 22.14
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("A:I").Select
    Range("I1").Activate
    Selection.AutoFilter
    Range("A1").Select
    Columns("I:I").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("F:F").ColumnWidth = 8.29
    Columns("B:B").ColumnWidth = 20
    ActiveWindow.SmallScroll ToRight:=1
    Columns("K:K").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A1").Select
    Columns("A:A").ColumnWidth = 21.43
    Range("A1").Select
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A1").Select

En gras, les endroits où j'applique ma formule.
A quel emplacement dois-je mettre le code que tu m'as indiqué ?
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Bonjour,

Tu peux mettre le code immédiatement après avoir placé ta formule dans tes cellules...

Par contre, il faut faire attention à un élément... Tu ne peux faire la validation de la dernière ligne DerLig = [G65000].End(xlUp).Row sur la colonne où tu veux recopier la formule. Il faut que tu valides la dernière ligne sur une colonne qui affiche réellement une valeur à la dernière ligne.

Par exemple, si tes données de la colonne A se rendent jusqu'à la ligne 145 et que les données de ta colonne G se rendent jusqu'à la ligne 34 et que tu valides la dernière ligne sur la colonne G, la formule sera recopiée uniquement pour les lignes 1 à 34....

Blord
 
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Bonjour,

Merci pour les infos. J'ai donc modifié mon code comme suit (voir en gras) :

Code: 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/12/2008 par admincot
'
Rows("1:4").Select
    Range("A4").Activate
    Selection.Delete Shift:=xlUp
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Name"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Path"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "NBCAR Name + Path"
    Range("A1:I1").Select
    Range("I1").Activate
    Selection.Font.Bold = True
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("L1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveCell.FormulaR1C1 = "TOTAL (Mo)"
    With ActiveCell.Characters(Start:=1, Length:=10).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("L3").Select
    ActiveCell.FormulaR1C1 = "TOTAL (Go)"
    Range("L1:M1,L3:M3").Select
    Range("L3").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("L3").Select
    Selection.Font.Bold = True
    Columns("C:C").Select
    Selection.Replace What:=" MB", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "0.0"
    Range("M1").Select
    Selection.NumberFormat = "0"
    Range("M3").Select
    Selection.NumberFormat = "0.0"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Size (Mo)"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "=SUM(C[-10])"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/1000)"
    Range("G2").Select
    [B]ActiveCell.FormulaR1C1 = "=LEN(RC[-6])"
    Dim DerLig As Long
    DerLig = [G65000].End(xlUp).Row
    [G2].AutoFill Destination:=Range("G2:G" & DerLig), Type:=xlFillDefault[/B]
    Range("G2:G12").Select
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=LEN(RC[-6])"
    Selection.AutoFill Destination:=Range("H2:H12")
    Range("H2:H12").Select
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
    Selection.AutoFill Destination:=Range("I2:I12")
    Range("I2:I12").Select
    Range("A1").Select
    Columns("B:B").ColumnWidth = 22.14
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("A:I").Select
    Range("I1").Activate
    Selection.AutoFilter
    Range("A1").Select
    Columns("I:I").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("F:F").ColumnWidth = 8.29
    Columns("B:B").ColumnWidth = 20
    ActiveWindow.SmallScroll ToRight:=1
    Columns("K:K").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A1").Select
    Columns("A:A").ColumnWidth = 21.43
    Range("A1").Select
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A1").Select
'
End Sub

Malheureusement, j'obtiens le message d'erreur :
La méthode AutoFill de la classe Range a échoué.
 
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Re

Si la dernière cellule non vide de ta plage de recopie est référencée par rapport à la colonne G, il n'est pas étonnant que ça bug puisqu'elle cette colonne est vide, non !?
Puisque la formule colonne G vérifie le NBCAR de la cellule A correspondante, c'est la dernière cellule non vide de la colonne A qui doit être la référence de ta plage de recopie

Code: 
'...
    [G2].FormulaR1C1 = "=LEN(RC[-6])"
    Dim DerLig As Long
    DerLig = [A65000].End(xlUp).Row
    [G2].AutoFill Destination:=Range("G2:G" & DerLig), Type:=xlFillDefault
'...

En outre, supprimmes (c'est un conseil) tous les "Select" de ton code qui sont inutiles dans la majorité des cas en VBA
A+
kjin
 
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne


Merci !!!!!!!! Ça fonctionne parfaitement !
Excellent !
@+
 
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Bonjour,

Je voudrais étendre ma formule jusqu'à la dernière ligne de mon fichier -OK
Et ceux sur plusieurs colonnes (c'est la même formumle sur toute ces colonnes). Donc sur toute la longueur à partir de la seconde ligne des colonnes AS jusqu'à CE

J'ai essayé:
Code: 
'definition last cells not empty
Dim DerLig As Long
DerLig = [A65000].End(xlUp).Row
'extend formula to all line -KO
[as2].AutoFill Destination:=Range("as2:ce" & DerLig), Type:=xlFillDefault
J'ai un message d'erreur "La méthode AutoFill de la classe Range a échoué."
Y-at'il un paramètre magique que je pourrais activé ou je dois dupliqué la formule pour chaque colonne?

Merci.
Grenadine
 
Vote positif 0 Vote négatif
Re : Copier et appliquer Formule jusqu'à dernière ligne renseignée d'une colonne

Bonsour®
[as2:CE2].AutoFill Destination:=Range("as2:ce" & DerLig), Type:=xlFillDefault
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
346
Marie.
M
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
260
ndranghettino
N
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
A
  • Résolu(e)
Microsoft 365 VBA Etendre formule jusqu'à la dernière ligne dans VBA
Réponses
13
Affichages
795
AD95
A
L
  • Résolu(e)
XL 2019 Renvoyer une valeur colonne A avec la dernière valeur de la colonne B
Réponses
5
Affichages
692
Gégé-45550
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
866
Xender
X
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
1 K
gwenn49
G
D
  • Question Question
XL 2021 Copier coller des colonnes suivant le nom de la colonne et non pas le N° de colonne idem ligne
Réponses
8
Affichages
1 K
desmonts
D
B
  • Question Question
XL 2013 Automatiser une formule sur les nouvelles lignes insérées en fonction d'une recherche sur les enregistrements
Réponses
9
Affichages
827
bedley
B
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
664
Chaton77
E
  • Question Question
Besoin d'une formule pour résoudre un tableau
2
Réponses
15
Affichages
1 K
Dudu2
W
  • Question Question
XL 2016 Comment bien extraire la 1ère et la dernière ligne d'une cellule contenant 3 ou 4 lignes
Réponses
10
Affichages
1 K
Webperegrino
W
O
  • Question Question
XL 2016 etirer une formule verticale a partir d'une liste horizontale
Réponses
8
Affichages
2 K
patricktoulon
  • Résolu(e)
Microsoft 365 Calcul de Moyenne d'une colonne avec cellules vides
Réponses
14
Affichages
1 K
job75
  • Résolu(e)
XL 2010 Ajouter une formule en A3 et la copier dans d'autre lignes
Réponses
2
Affichages
651
jeanmi
N
  • Question Question
XL 2016 Erreur syntaxe autofill de deux ligne jusqu'à dernière colonne non vide
Réponses
1
Affichages
780
AtTheOne
D
  • Question Question
XL 2010 Màj automatique d'une formule suite à l'insertion d'une ligne
2
Réponses
25
Affichages
2 K
vgendron
O
  • Question Question
XL 2016 Problématique écritures comptables - formule Excel et Macro VBA simple
Réponses
9
Affichages
2 K
fanfan38
S
  • Résolu(e)
Microsoft 365 VBA création ligne en fonction d'un nombre et occurrence copier coller
Réponses
6
Affichages
2 K
simsinaty
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…