Bouton pour incrementer valeur de cellule

fredh

XLDnaute Occasionnel
Bonjour

J'ai creer un tableau avec une liste de materielle standart.
Pour effectuer mes commandes plus rapidement je souhaite creer un bouton pour incrementer le nombre de pieces.

Ex :

A1: Fusible 3A
B1: 10
A2: Fusible 6A
B2: 6
A3: Fusible 10A
B3: 8

Bien sur j'aimerai un bouton sur lequel quand je clique sur:
A1 il m'incremente B1 de +1
A2 il m'incremente B2 de +1
etc...
J'aimerai disposer aussi de la possibilité de decrementer de -1 (au cas ou je me trompe de ligne...) et d'un bouton pour remettre a zero la ligne et un pour toutes les lignes.

je suis un débutant en VBA de plus a mon travail excell est en allemand donc pour l'aide c'est pas facile....

merci pour vos aides :eek:
 
B

Benoit L

Guest
Bonjour Fredh,

Regarde le fichier ci-joint, il fera sûrement ton bonheur...

Benoit L [file name=Classeur1_20060215162309.zip size=7299]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060215162309.zip[/file]
 

Pièces jointes

  • Classeur1_20060215162309.zip
    7.1 KB · Affichages: 140
B

Benoit L

Guest
Bonjour Fredh,

Regarde le fichier ci-joint, il fera sûrement ton bonheur...

Benoit L [file name=Classeur1_20060215162325.zip size=7299]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060215162325.zip[/file]
 

Pièces jointes

  • Classeur1_20060215162325.zip
    7.1 KB · Affichages: 69

Jilde

XLDnaute Occasionnel
Bonjour tout le monde !!!

Moi, j'ai vu ça autrement ...
Avec des boutons simples pour les incrémentations et la mise à zéro par ligne, et juste une tite macro pour la mise à zéro de la colonne ...

A plus !!! ;) [file name=Classeur2_20060215165110.zip size=7718]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060215165110.zip[/file]
 

Pièces jointes

  • Classeur2_20060215165110.zip
    7.5 KB · Affichages: 108

fredh

XLDnaute Occasionnel
Yehh bravo pour la rapidité ! et la qualité

personnelleent je prefere les macros Jilde

Une question cependant je me rend compte que pour créer de nouvaeux produit je copie la ligne et je l'insert plus bas. Les boutons sont aussi copier mais quand je les actionne il m'incremente la cellule 'd'origine'.
Normal vu que dans la maccros se trouve 'l'adresse a in/decrementer'.
Vous avez deviner ma prochaine question :
Serait il possible de creer des boutons 'dinamique' c'est a dire que si il se trouve sur C50 il in/decremente B50; si je copie le ligne 50 et l'inser dans 51 le nouveaux boutons se trouve sur C51 et il faudrait qu'il incremente B51 sans influencer B50 etc....
 

Jilde

XLDnaute Occasionnel
Là ... Je laisse la place aux pros de VBA ...

Je pense que ça doit être possible.

Je verrais bien un bouton '+' et un bouton '-' en tête de colonne B (ligne 1), un peu comme l'a fait Benoit L.
On se positionne sur la cellule qu'on veut modifier, et en cliquant sur '+' ou '-', on détecte d'abord la ligne sélectionnée et on in/décrémente alors la cellule concernée.
Pareil pour la mise à zéro de la ligne, un bouton MàZ Ligne qui détecte d'abord la ligne sélectionnée, et qui met la cellule concernée à zéro ...

Si personne n'a de solution d'ici demain, j'essayerais de m'y mettre ! :eek:

@ + !
 

fredh

XLDnaute Occasionnel
Bonjour a tous

J'ai du ajouter des colonne dans mon fichiers, voici donc le nouveaux format desirer.

A1:Denomination
B1:Constructeur
C1:Reference
D1:Nonbre de piece
A2:Lasttrenschalter
B2:ABB
C2:OT100M4
D2:1
A3:Adapter für Fremdgeräte 100A
B3:ABB
c3:ZLS241
D3:1

Ci joint un exemple du fichier que j'aimerai incrementer....
[file name=Bestelung.zip size=7403]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bestelung.zip[/file]
 

Pièces jointes

  • Bestelung.zip
    7.2 KB · Affichages: 46

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Fredh, Jilde, Benoit

Une autre approche bien plus simple sans bouton, juste en évènementielles dans le Private Module de la Feuille en question.

Bonne Journée
[ol]@+Thierry[/ol] [file name=Bestelung_V01.zip size=9957]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bestelung_V01.zip[/file]
 

Pièces jointes

  • Bestelung_V01.zip
    9.7 KB · Affichages: 114

fredh

XLDnaute Occasionnel
Apres reflexions je fait un virage a 180°.
En effet il me parait plus judicieux de formater mon fichier differement
voir ici
Lien supprimé

Désolé vos contributions ne me seront plus tres utile dnas ce fichier, mais je suis sur que je trouverai une application pour.
Peut etre que cela pourrais aussi servir a d'autres.

Encore un grand merci pour vos participations et si jamais l'envie vous prend jetez un oeil sur le topic cité plus haut
 

Discussions similaires

Statistiques des forums

Discussions
312 234
Messages
2 086 474
Membres
103 226
dernier inscrit
smail12