Creer un bouton incrementant une cellule sous Excel
Bonjour, je me débrouille un peut sous Excel mais j’ai une petit problème et je voudrais savoir si vous pouviez m’aider.
j’ai un tableau excel avec des chiffres et j’aimerais créer un bouton sur lequel je pourrais cliquer pour incrémenter de +1 la cellule juste en dessous.
Exemple A1 colonne des OUI B1 colonne des NON et A2 le nombres de OUI et B2 le nombres de NON et d’un simple clique sur le OUI ou NON que le chiffre augment de 1 a chaque clique.
J’espère avoir été explicite et que vous pourrez m’aider. Merci d’avance.
cordialement
mais c'est genial c'est exactement ce qu'il me faut !!! comment as tu fait??? peux tu m'expliquer? comment puis-je l'integrer a mon tableau? merci en tout cas tu es mon sauveur
Re
Fais un click droit sur le nom de la feuille ("Feuil1") et clique sur "Visualiser le code"
Tu peux faire un copier-coller du code que tu vois dans la partie droite de mon fichier vers le tien.
Nad
genialllll ca fonction ! merciiiiiii !!! et si maintenant j'ai plusieur lien les une en dessous des autres a faire de la meme maniere je peux faire comment??? grand merci en tout cas
Je ne suis pas sûre de comprendre ta demande.
Si tu veux faire la même chose dans d'autres cellules, tu indiques les cellules concernées par le click de cette façon
If Not Application.Intersect(Target, Range("A1:B1,B10:C10,A15:B15")) Is Nothing ThenMais le mieux serait que tu joignes ton fichier pour voir si c'est la bonne méthode ou si un autre code serait plus approprié.
Super Nad ca fonction !!!! Merci merci merci tu m'as sauvé d'un petage de cable lol je sais pas comment te remercier! t'es genial merci pour ton aide
nad j'ai un autre probleme, je rentre la forme mais je ne peux pas rajouter d'autre ligne dans la formule sans que ca bug ! je te joins la formule que j'ai mise
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("O1:AY1,O3:AY3,O5:AY5,O7:AY7,O9:AY9,O11:AY11,O13:AY13,O15:AY15,O17:AY17,O19:AY19,O21:AY21,O23:AY23,O25:AY25,O27:AY27,O29:AY29,O31:AY31,O33:AY33,O35:AY35,O37:AY37,O39:AY39,O41:AY41,O43:AY43,O45:AY45,O47:AY47,O49:AY49,O51:AY51,O53:AY53,O55:AY55")) Is Nothing Then
With Target
.Offset(1, 0) = .Offset(1, 0) + 1
End With
Target.Offset(1, 0).Select
End If
End Subje ne peux pas rajouter O57:AY57,O59:AY59,O61:AY61,O63:AY63,O65:AY65,O67:AY67,O69:AY69,O71:AY71,O73:AY73 , ce sont les lignes qui manque pour que mon tableau soit complet. merci pour ton aide
Nomme cette formule MaPlage (Onglet FORMULES ==> Définir un Nom) :
=Feuil1!$O$1:$AY$1;Feuil1!$O$3:$AY$3;Feuil1!$O$5:$AY$5;Feuil1!$O$7:$AY$7;Feuil1!$O$9:$AY$9;Feuil1!$O$11:$AY$11;Feuil1!$O$13:$AY$13;Feuil1!$O$15:$AY$15;Feuil1!$O$17:$AY$17;Feuil1!$O$19:$AY$19;Feuil1!$O$21:$AY$21;Feuil1!$O$23:$AY$23;Feuil1!$O$25:$AY$25;Feuil1!$O$27:$AY$27;Feuil1!$O$29:$AY$29;Feuil1!$O$31:$AY$31;Feuil1!$O$33:$AY$33;Feuil1!$O$35:$AY$35;Feuil1!$O$37:$AY$37;Feuil1!$O$39:$AY$39;Feuil1!$O$41:$AY$41;Feuil1!$O$43:$AY$43;Feuil1!$O$45:$AY$45;Feuil1!$O$47:$AY$47;Feuil1!$O$49:$AY$49;Feuil1!$O$51:$AY$51;Feuil1!$O$53:$AY$53;Feuil1!$O$55:$AY$55;Feuil1!$O$57:$AY$57;Feuil1!$O$59:$AY$59;Feuil1!$O$61:$AY$61;Feuil1!$O$63:$AY$63;Feuil1!$O$65:$AY$65;Feuil1!$O$67:$AY$67;Feuil1!$O$69:$AY$69;Feuil1!$O$71:$AY$71;Feuil1!$O$73:$AY$73Le code devient :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("MaPlage")) Is Nothing Then
With Target
.Offset(1, 0) = .Offset(1, 0) + 1
End With
Target.Offset(1, 0).Select
End If
End SubNad