Sujet Précédent Sujet Suivant

Macro EXCEL copier formule

Résolu/Fermé
ninajams - 19 oct. 2008 à 23:37
ninajams Messages postés 13 Date d'inscription lundi 20 octobre 2008 Statut Membre Dernière intervention 25 novembre 2008 - 18 nov. 2008 à 00:44
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
A voir également:

3 réponses

Réponse 1 / 3
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 oct. 2008 à 05:59
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
Réponse 2 / 3
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 242
20 oct. 2008 à 08:11
bonjour

autre methode 
sub mamacro()
     Range("C1").FormulaR1C1 = "=RC[-2]+RC[-1]" 
     range("C1:C" & range("B65536").end(xlup).row).filldown
End Sub
1
ninajams Messages postés 13 Date d'inscription lundi 20 octobre 2008 Statut Membre Dernière intervention 25 novembre 2008 1
18 nov. 2008 à 00:44
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
0
Réponse 3 / 3
ninajams Messages postés 13 Date d'inscription lundi 20 octobre 2008 Statut Membre Dernière intervention 25 novembre 2008 1
20 oct. 2008 à 19:15
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

Discussions similaires

recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses