EXCEL: créer un bouton pour un ajout dans une cellule (en Macro)

Résolu/Fermé
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015 - 5 mai 2015 à 11:47
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015 - 6 mai 2015 à 11:12
Bonjour à tous,

J'ai besoin d'aide pour trouver un solution à mon problème sur excel....

Je vous donne un exemple de ce que j'aimerai réaliser:

EXEMPLE : En un clic sur un bouton et une valeur en C2 que j'aurai rentré s'ajouterai en B2 et s'effacerai ensuite pour éviter d'ajouter plusieurs fois la même valeur en C2. Donc pouvoir rentrer des nouvelles valeurs en C2 qui s'ajouteraient en B2 à chaque fois que j'en rentrerai une nouvelle...

Je ne sais pas si c'est très clair, MERCI D'AVANCE si vous arrivez à me sauver

Bonne journée

1 réponse

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
5 mai 2015 à 11:57
Bonjour,

un exemple: https://www.cjoint.com/c/EEfmmlz7jEy

A+
0
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
5 mai 2015 à 13:41
Bonjour,
Super merci beaucoup c'est exactement ce que je voulais !

Mais n'étant pas très doué, pouvais vous me dire comment vous avez fait ?
si vous avez encore un peu de temps à m'accorder bien sur,

Bonne journée
0
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708 > onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
5 mai 2015 à 14:01
Re,

ai mis un bouton control activex: menu,developpeur, controles, inserer, controles activex: le premier a gauche (avec le pointeur souris, vous avez le type)

une fois le bouton creer, clic droit sur le bouton pour changer couleurs, texte

ensuite double click sur le bouton ouvre la fenetre VBA de la feuille avec du code:
Private Sub CommandButton1_Click()
End Sub


ensuite ecrire ce qui est entre ces deux lignes
code du bouton:
Private Sub CommandButton1_Click()
    'test si C2 non vide et numerique
    If Range("C2") <> Empty And IsNumeric(Range("C2")) Then
        'ecriture B2
        Range("B2") = Range("B2") + Range("C2")
        'raz C2
        Range("C2") = Empty
    End If
End Sub
0
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
6 mai 2015 à 11:12
SUPER SUPER merci beaucoup de m'avoir accordé votre temps.

Bonne journée
0