Macro EXCEL copier formule

Résolu
ninajams -  
ninajams Messages postés 13 Statut Membre -
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 Messages postés 9042 Statut Contributeur 1 199
     
    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
  2. wilfried_42 Messages postés 912 Statut Contributeur 245
     
    bonjour

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


    1
  3. ninajams Messages postés 13 Statut Membre 1
     
    Merci a tous les deux sa fonctionne parfaitement !!!!!!

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

    A+
    1