VBA & derligne
ChaiLee
Messages postés
13
Statut
Membre
-
f894009 Messages postés 17413 Statut Membre -
f894009 Messages postés 17413 Statut Membre -
Bonjour!
Je suis trop ignorant en VBA et je sèche. Je remercie par avance celui qui me viendra en aide!
J'ai ces colonnes:
A:F sont mes données entrantes
G:R des formules
ce que je souhaite:
copier coller en valeur toutes les colonnes dans un autre onglet puis filtrer
mon bug:
j'ai jamais le même nombre de lignes de données A:F
donc quand je développe mes formules (Autofill), la fois suivante j'ai pas assez ou trop de cellules G:R qui perturbent mes filtres...
J'ai bien essayé d'utiliser une variable DerLigne avec la colonne F (actuellement 3453 lignes)
mais rien à faire la ligne -> bug
Sub testz()
'
' testz Macro
'
'
Dim DerLigne As Long
-> DerLigne = Range("F" & Rows.Count).End(x1up).Row
Range("G3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
'ici j'efface les lignes qui seraient en trop (ma dernière importation avait 3687 lignes)
Range("G2:R2").Select
Selection.Copy
Range("G3:R3").AutoFill Destination:=("G3:R" & DerLigne)
ActiveSheet.Paste
'ici j'aimerais dérouler ma formule jusqu'à la dernière ligne de la colonne F
End Sub
Je suis trop ignorant en VBA et je sèche. Je remercie par avance celui qui me viendra en aide!
J'ai ces colonnes:
A:F sont mes données entrantes
G:R des formules
ce que je souhaite:
copier coller en valeur toutes les colonnes dans un autre onglet puis filtrer
mon bug:
j'ai jamais le même nombre de lignes de données A:F
donc quand je développe mes formules (Autofill), la fois suivante j'ai pas assez ou trop de cellules G:R qui perturbent mes filtres...
J'ai bien essayé d'utiliser une variable DerLigne avec la colonne F (actuellement 3453 lignes)
mais rien à faire la ligne -> bug
Sub testz()
'
' testz Macro
'
'
Dim DerLigne As Long
-> DerLigne = Range("F" & Rows.Count).End(x1up).Row
Range("G3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
'ici j'efface les lignes qui seraient en trop (ma dernière importation avait 3687 lignes)
Range("G2:R2").Select
Selection.Copy
Range("G3:R3").AutoFill Destination:=("G3:R" & DerLigne)
ActiveSheet.Paste
'ici j'aimerais dérouler ma formule jusqu'à la dernière ligne de la colonne F
End Sub
Merci! 1ere chose ok:)
pb sur ligne d'après
Dim DerLigne As Long
DerLigne = Range("F" & Rows.Count).End(xlUp).Row
-> Range("G2:R2").AutoFill Destination:=Range("G3:r" & DerLigne)
DerLigne = Range("F" & Rows.Count).End(xlUp).Row Range("G2:R2").AutoFill Destination:=Range("G2:R" & DerLigne) 'G2 ald G3