Macro EXCEL copier formule
Résolu
ninajams
-
ninajams Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
ninajams Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro EXCEL copier formule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
3 réponses
Bonjour,
Tant qu'à faire une macro pourquoi pas faire directement les calculs ?
A+
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+
bonjour
autre methode
autre methode
sub mamacro()
Range("C1").FormulaR1C1 = "=RC[-2]+RC[-1]"
range("C1:C" & range("B65536").end(xlup).row).filldown
End Sub
Salut,
comme tu as déja réussi a me dépanner peux-être que tu pourrais recommencer
Je te met le lien vers une nouvelle question
http://www.commentcamarche.net/forum/affich 9476361 copies de formule sur des colonnes aleatoire
cordialement
mickael
comme tu as déja réussi a me dépanner peux-être que tu pourrais recommencer
Je te met le lien vers une nouvelle question
http://www.commentcamarche.net/forum/affich 9476361 copies de formule sur des colonnes aleatoire
cordialement
mickael