Discussion :

[Ropie94]

bonjour a tous!!
voila mon probleme:

J'ai une cellule (disons "A1") avec une formule.
je souhaite inserer une plage de cellules dans ma feuille en cliquant sur boutton(jusqu'ici tout va bien). Je souhaite maintenant ajouté la premiere cellule de ma nouvelle plage a la formule de la cellule ("A1").

Example
A1 =B1+B2. Lorsque je clique sur mon boutton je souhaite ajouter C1 a la formule pour obtenir A1 = B1+B2+C1

Si je clique une deuxieme fois sur mon boutton je souhaite obtenire ceci
A1 = B1 + B2 + C1 + D1 et ainsi de suite

J'ai donnc essayer ceci mais biensur cela ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'Defini ma plage qui vient d'etre insérée
Set MyRange3 = Selection
                   oRow3 = MyRange3.Row
                    oCol3 = MyRange3.Column
 
'ajoute cellule a la formule
range("A1").select
ActiveCell.FormulaLocal = "=" & ActiveCell.address & "+" & Cells(oRow3, oCol3).Offset(1, 0).Address

Quelqu'un aurait il une idée

Merci d'avance

[Minick]

Salut,

Dans ton code, il ne faut pas utiliser l'adresse de A1 mais sa formule et pourquoi ajouter l'adresse de la cellule juste en dessous de celle selectionnee (...Offset(1, 0)...) ou alors j'ai mal compri ton bout de code....
Il faudra aussi verifier si A1 contient deja une formule.

Essaie ceci par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    'Defini ma plage qui vient d'etre insérée
    Set MyRange3 = Selection
 
    'ajoute cellule a la formule
    If Range("A1").Formula = "" Then
        Range("A1").FormulaLocal = "=" & MyRange3.Address
    Else
        Range("A1").FormulaLocal = Range("A1").FormulaLocal & "+" & MyRange3.Address
    End If

++
Minick

[Ropie94]

Merci Minick,

tu viens de resoudre mon probleme et ca marche parfaitement!!!

encore merci
++