Discussion :

[fartounet]

Bonjour à tous.
Je tiens d'abord à m'excuser pour l'endroit où mon post est mis mais je ne m'y connais pas du tout, je ne savais donc pas où mettre cela étant donné que je sais juste que les macros sont en visual basic ^^'

Je vais donc vous expliquer mes problèmes :

- Je chercherais un moyen, sur excel, de mettre un macro à un bouton pour que (exemple) il ajoute, lorsqu'on clique dessus, B1 à A1 et que le résultat ailles en A1. Je suis sur que c'est extrêment simple et je m'excuse encore car je ne m'y connais pas du tout

- Sinon, je voulais savoir, avec une macro, vu qu'on peut pas le faire directement avec excel il me semble, s'il était possible de mettre en B1, le résultat de A1 avant un changement (en gros, une espèce de mise en mémoire de la dernière valeur de A1.)

Merci beaucoup à ceux qui pourrons m'aider.

Bonne soirée ^^

PS: Je ne connais PAS DU TOUT le système de macro, donc, il faudrait pas mal m'expliquer quand même

[SfJ5Rpw8]

pour l'emplacement de ton post il fallait lire :
http://www.developpez.net/forums/sho...d.php?t=167389
vu que tu est nouveau et acceptant tes excuses anticipées j'ai déplacé ton post dans le sous-forum VBA...

Pour ton bouton ... dessine le grâce à la boite à outils contrôle double click sur le boutton pour arriver dans le code VBA et place y un code du genre :

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
 Range("A1") = Range("A1") + Range("B1")
End Sub

[fartounet]

Merci d'avoir déplacé et encore désolé.

Sinon, pour la macro, il me dit : the macro canot be found
je sais pas si j'ai fait une erreur ou quoi Oo°

[SfJ5Rpw8]

? et tu as fais quoi ? avant le double clic sur bouton il faut passer en mode création icone en haut à gauche de la barre à outils contrôle...

[fartounet]

Bah oui, j'ai fait le bouton. Ensuite, clic droit, assign macro.
Ensuite, dans microsoft visual basic, j'ai une nouvelle fenêtre qui s'ouvre avec le nom de ma fiche excel et j'ai mis :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 Range("E2") = Range("E2") - Range("G11")
End Sub

[SfJ5Rpw8]

si tu as "assigner une macro" ... tu n'as pas pris le bouton dans la boite à outils contrôle mais dans la boite à outils formulaire ..? dans ce cas la ou as tu mis le code posté ? CommandButton1_Click.. apparaît-il dans la liste des macrso affectables au bouton ?

[fartounet]

C'est bon, j'ai mis le bon bouton, (je m'étais bien trompé) mais le truc, c'est que je ne peux pas cliqure dessus, j'ai la flèche à quatre branches pour me dire que je peux le déplacer ...

(désolé, je suis vraiment pas doué )

[SfJ5Rpw8]

dans la barred 'outils contrôle passe en mode création en cliquant sur l'icône dont représentant des outils de dessins (equerre, régle..)


puis double clic

[fartounet]

Oki mici beaucoup, c'est nickel

Sinon, si je veux que ca fasse toujours ca, mais que si lorsque j'ai fait

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 Range("E2") = Range("E2") - Range("G11")
End Sub

ya moyen que ca ne le fasse pas si E2 devient négatif ?

[SfJ5Rpw8]

tu peu faire un test

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
 dim i 
 i = Range("E2") - Range("G11")
if i >0 then  Range("E2") = i
End Sub

[fartounet]

C'est super !! Merci beaucoup de ta patience.

Passe une bonne nuit
A+