Marc L a écrit :
Bonjour, bonjour ! Si la cellule B1 est juste égale à 40 (sans le signe "=", vaut mieux limiter un peu les conneries inutiles !) : [A1].Formula = [A1].Formula & "+" & [B1].Formula …
|
Ah super ca marche !
Par contre, évidement c'était un peu pour l'exemple. Ma situation est un peu plus compliquée ... (Voir mon autre post)
EDIT : Je ne souhaite pas utiliser A1 mais Cell(X,Y) avec X et Y défini selon des menus déroulants ...
Citation :
Sub Test() Débit = Range("A4" ).Value X = Range("B2" ).Value Y = Range("C2" ).Value Cells(X, Y).Formula = Cells(X, Y).Formula & "+" & Débit Range("A4" ).Value = 0 End Sub
|
Message édité par relaxmax999 le 21-10-2015 à 18:49:36
---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr