![]() |
|
Forum
|
|
|
#1 (permalink) |
|
XLDnaute Occasionel
Date d'inscription: juillet 2005
Messages: 188
|
bonjour a tous, j aurai voulu lorsque je clic sur mon boutons que mon effectifs, ma colone de grammage et de prix revienne a zero en affichan un message d alerte
quelqu un porrai me donner un exemple ? merci d avance A+ [file name=remiseazero.zip size=8999]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/remiseazero.zip[/file] |
|
|
|
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
XLDnaute Junior
Date d'inscription: mai 2005
Localisation: NANTES
Version Excel : Excel 2003 (PC)
Messages: 51
|
Bonjour Rudy,
Tu trouveras en pièce jointe une solution au problème posé (si je l'ai bien compris). ================================================= Private Sub CommandButton1_Click() Dim Reponse Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel) If Reponse = vbYes Then Range('ZONEVERTE').ClearContents Range('ZONEBLEUE').ClearContents End If End Sub ================================================= Pour simplifier, j'ai colorié les zones à réinitialiser et ai associé à chacune d'elle une plage nommée. En te souhaitant une bonne journée Omicron [file name=Initialisation.zip size=12343]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Initialisation.zip[/file] |
|
|
|
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
bonjour et merci de ton aide, je me pose une question , comment elargir la zone de remise a zero a part exemple E4 ,5, 6 et
M4,5,6 j ai essayer de rajouter une ligne du style Range('ZONErouge').ClearContents mais sa ne donne rien ?? |
|
|
|
#4 (permalink) |
|
XLDnaute Junior
Date d'inscription: mai 2005
Localisation: NANTES
Version Excel : Excel 2003 (PC)
Messages: 51
|
Bonsoir Rudy,
Tu trouveras ci-joint une version simplifiée de la précédente. Plus de plages nommées zonebleue, zoneverte, ....(même si celà est très pratique) Tu adaptes ton code comme indiqué si dessous, et celà doit marcher ... ================================================= Private Sub CommandButton1_Click() Dim Reponse Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel) If Reponse = vbYes Then Range('E4:E6').ClearContents Range('M4:M6').ClearContents Range('E17:G36').ClearContents Range('M17:O36').ClearContents 'Insérer à la suite les autres Plages à réinitialiser End If End Sub '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''' Chaque Plage (Range) décrit un bloc (Rectangle) de 1 à n cellules contigues La première est celle qui est située le plus en haut à gauche ... La dernière est celle qui est située le plus en bas à droite ... En espérant avoir répondu à la question !!! Cordialement Omicron |
|
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|