Macro Formule jusqu'à la dernière cellule vide Le sujet est résolu

[sophang]

Bonjour au forum,

Dans mon exemple suivant, je copie depuis une base de données et je la colle à la plage A2 à B7. Cette base de données fait 6 lignes.

Une macro permet de faire le calcul automatique, la somme de la colonne A et de la colonne B. Le total est en colonne C.

Mon problème est le suivant, lorsque le nombre de lignes de ma base de données est variable, comment inscrire dans la macro qu’elle doit faire le calcul jusqu’à la dernière cellule vide.

J'ai déjà peut-être un début de piste avec ce code, mais je ne sais pas comment le mettre dans la macro :

Range("A2:C" & Range("A65536").End(xlUp).Row).Select

En vous remerciant de votre aide.

[Dan]

Bonjour

Essaie comme ceci :

Sub Macro3()
With Range("C2")
    .FormulaR1C1 = "=RC[-2]+RC[-1]"
    .AutoFill Destination:=Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row)
End With
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Crdlt

[James007]

Bonjour,

Ci-joint ton fichier test ...

[sophang]

Merci