Excel Downloads
Forum

Précédent   Excel Downloads Forums > Accueil > Le salon de XLD


Réponse
 
LinkBack Outils de la discussion
Vieux 15/08/2005, 11h24   #1 (permalink)
XLDnaute Occasionel
 
Date d'inscription: juillet 2005
Messages: 188
Par défaut remise a zero

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]
Fichiers attachés
Type de fichier : zip remiseazero.zip (8,8 Ko, 0 affichages)
rudy est déconnecté   Réponse avec citation
ANNONCES
Vieux 15/08/2005, 12h11   #2 (permalink)
XLDnaute Junior
 
Avatar de Omicron
 
Date d'inscription: mai 2005
Localisation: NANTES
Version Excel : Excel 2003 (PC)
Messages: 51
Par défaut Re:remise a zero

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]
Fichiers attachés
Type de fichier : zip Initialisation.zip (12,1 Ko, 0 affichages)
Omicron est déconnecté   Réponse avec citation
Vieux 16/08/2005, 15h58   #3 (permalink)
salu, omicron
Guest
 
Messages: n/a
Par défaut Re:remise a zero

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 ??
  Réponse avec citation
Vieux 16/08/2005, 19h30   #4 (permalink)
XLDnaute Junior
 
Avatar de Omicron
 
Date d'inscription: mai 2005
Localisation: NANTES
Version Excel : Excel 2003 (PC)
Messages: 51
Par défaut Re:remise a zero

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
Omicron est déconnecté   Réponse avec citation
ANNONCES
Réponse

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 06h31.


(C) 2006 Excel Downloads