VBA & derligne Fermé

Question

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

f894009 · Answer

Bonjour,

Premier chose sauf si erreur de transposition: pas x1up mais xLup