VBA: Etendre formule jusqu'à la dernière ligne avec macro

Résolu
Emi80110 Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour :-)

Me revoilà, avec une nouvelle demande

J'ai vu que plusieurs discussions avaient été ouvertes pour le même sujet mais je ne préviens pas a réutiliser les codes donnés en réponse.

Dans le fichier ci-joint, j'aimerai simplement que les formules des colonnes I à M puissent s'étendre automatiquement jusqu'à la dernière ligne de données.

J'ai réduis le fichier ici pour l'exemple, mais c'est une extraction qui peut aller de 500 à 300000 lignes. C'est assez aléatoire.

Sauriez vous m'aider svp ?

Fichier exemple : https://cjoint.com/c/LHrlQmZ8Mdo

Par avance merci :-)

Emilie

A voir également:

5 réponses

ozone_ Messages postés 1518 Date d'inscription   Statut Membre Dernière intervention   478
 

Bonjour,

Un autre exemple :

https://www.cjoint.com/c/LHrmzhftJYw

Placé dans un module

Sub autoFill_colonne()

    Range("I2:M2").Select
    Selection.AutoFill Destination:=Range("I2:M" & Range("A1").End(xlDown).Row), Type:=xlFillDefault
    
End Sub


1
Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 

Bonjour,

j'ai placé le code dans un bouton

Pour la colonne I soit la colonne 9

Private Sub CommandButton1_Click()
Derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Derlig
Cells(i, 9).FormulaLocal = "=RECHERCHEV(G2;'Feuil1 (2)'!A:B;2;0)"
Next i
End Sub

et idem pour les colonnes J, K, L et M 


0
Emi80110 Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   2
 

Merci pour votre réponse :-)

J'y suis parvenu avec le code suivant:

Sub ETAPE_1()
'
' ETAPE_1 Macro
'
Range("I5").AutoFill Destination:=Range("I5:I" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("J5").AutoFill Destination:=Range("J5:J" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("K5").AutoFill Destination:=Range("K5:K" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("L5").AutoFill Destination:=Range("L5:L" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("M5").AutoFill Destination:=Range("M5:M" & (Range("A" & Rows.Count).End(xlUp).Row))
'
End Sub

Merci beaucoup

0
Emi80110 Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   2
 

Bonjour

ah voilà c'etait aussi simple !!

je me suis cassé la tête a réécrire le même code pour cahque colonne !!

merci beaucoup :-)

problème résolu :-)

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

onjour

A tester

https://cjoint.com/c/LHrmJYzNo8B

Cdlmnt

0