Macro EXCEL copier formule

Résolu
ninajams -  
Bonjour,

Désolé de vous ennuyer mais je réussi pas ce que je veux faire:

J'ai un tableau dont la colonne C est vide Je veux remplir cela par A+B=C
Mais mes colonne A et B ont un nombre de lignes variable( en fonction des jours 5 à 200) et je souhaite que ma formule s'arrête a la dernière lignes non vide.

A l'heure actuel avec la fonction enregistrement de macro j'obtiens le code suivant:

Sub ESSAIE()
'
' ESSAIE Macro
'

'
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A4")
ActiveCell.Range("A1:A4").Select
ActiveCell.Offset(4, -2).Range("A1").Select
End Sub

Si vous pouvez m'aider!!!!

Cordialement
Configuration: Windows XP
Firefox 3.0.3

3 réponses

  1.  lermite222 Contributeur
    Bonjour,
    Tant qu'à faire une macro pourquoi pas faire directement les calculs ? 
    Sub AddCel()
Dim Lig As Long
    Sheets("Feuil1").Select
    For Lig = 1 To Range("A65536").End(xlUp).Row
        Cells(Lig, 3) = Cells(Lig, 1) + Cells(Lig, 2) 'Add A+B et met dans C
    Next Lig
End Sub

    A+
    1. wilfried_42 Contributeur
      bonjour

      autre methode 
      sub mamacro()
     Range("C1").FormulaR1C1 = "=RC[-2]+RC[-1]" 
     range("C1:C" & range("B65536").end(xlup).row).filldown
End Sub


    2. ninajams
      Merci a tous les deux sa fonctionne parfaitement !!!!!!

      Je désespère pas de réussir à me débrouillé tout seul un jour !!!!

      A+