Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1974 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Fonction Else

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Fonction Else

n°2213883
micka671
Posté le 17-12-2013 à 17:28:04  profilanswer
 

Bonjour , j'ai ce code :  
 
Sub EFFACE_DONNEE()
 
retour = MsgBox(prompt:=" Etes vous sur de vouloir supprimé les données ?? ", Buttons:=vbYesNo + vbCritical, Title:="Attention" )
 
If vbYes Then
 
Range("b17:b38" ).ClearContents
Range("C17:C38" ).ClearContents
Range("D17:D38" ).ClearContents
Range("A17:A38" ).ClearContents
Range("E17:E38" ).ClearContents
Range("D11" ).MergeArea.ClearContents
 
else
 
 
 
End If
 
 
End Sub
 
 
 
J'aimerais que si je mes non ça n'effaces pas les cellules concerné j'ai essayé de mettre "Unload Me " mais cela ne fonctionne pas :/
 
Avez vous une solution ??  
 
Merci beaucoup :)

mood
Publicité
Posté le 17-12-2013 à 17:28:04  profilanswer
 

n°2213898
Marc L
Posté le 17-12-2013 à 23:21:24  profilanswer
 

 
           Bonjour,
 
           commencer par éditer le message et enfin utiliser les balises de code comme préconisé dans les règles de ce forum ‼
           On pourra ainsi indiquer le n° de la ligne où c'est vraiment aware ! …
 
           Peut-être qu'en le relisant cela te sera si évident, car franchement,
           à quoi pourrait servir une variable pour une réponse et ne pas l'utiliser ensuite ? …  :sarcastic:  
 

n°2214038
micka671
Posté le 18-12-2013 à 21:38:21  profilanswer
 

micka671 a écrit :

Bonjour , j'ai ce code :  
 

Code :
  1. Sub EFFACE_DONNEE()
  2. retour = MsgBox(prompt:=" Etes vous sur de vouloir supprimé les données ?? ", Buttons:=vbYesNo + vbCritical, Title:="Attention" )
  3. If vbYes Then
  4. Range("b17:b38" ).ClearContents
  5. Range("C17:C38" ).ClearContents
  6. Range("D17:D38" ).ClearContents
  7. Range("A17:A38" ).ClearContents
  8. Range("E17:E38" ).ClearContents
  9. Range("D11" ).MergeArea.ClearContents
  10. else
  11. End If
  12. End sub


 
 
 
 
J'aimerais que si je mes non ça n'effaces pas les cellules concerné j'ai essayé de mettre "Unload Me " mais cela ne fonctionne pas :/
 
Avez vous une solution ??  
 
Merci beaucoup :)


n°2214039
MaybeEijOr​Not
but someone at least
Posté le 18-12-2013 à 21:58:36  profilanswer
 

La réponse est dans la ligne 3 et 5. ;D


---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.
n°2214044
Arl Guhr
Posté le 18-12-2013 à 22:57:21  profilanswer
 

Code :
  1. Sub EFFACE_DONNEE()
  2. retour = MsgBox(prompt:=" Etes-vous sûr de vouloir supprimer les données ?? ", Buttons:=vbYesNo + vbCritical, Title:="Attention" )
  3. If retour = vbYes Then
  4. Range("b17:b38" ).ClearContents
  5. Range("C17:C38" ).ClearContents
  6. Range("D17:D38" ).ClearContents
  7. Range("A17:A38" ).ClearContents
  8. Range("E17:E38" ).ClearContents
  9. Range("D11" ).MergeArea.ClearContents
  10. End If
  11. End Sub


 
vbyes est une 'constante' il faut la comparer avec ton 'retour'


---------------
il s'appel le ronge me doute
n°2214046
Marc L
Posté le 18-12-2013 à 23:42:06  profilanswer
 

 
           Rien qu'en consultant l'aide et l'exemple de  MsgBox  ! …
 

n°2214055
Arl Guhr
Posté le 19-12-2013 à 09:31:35  profilanswer
 

Au moins, il vient avec du code, pas déconnant dès son premier message, ça mérite d'être encouragé.
 
Par contre, appel de fonction tel qu'il est fait ici, c'est déjà un copié collé 'adapté' vu les 'key:=' qui se baladent
L'autre truc, ce serait de faire un truc comme ça à la place des 5 lignes:

Code :
  1. Range("A17:E38" ).ClearContents

 
 
C'est vrai, on peut aussi indiquer que dans excel un click droit > définition sur le mot 'msgbox' l'emmènera directement sur la doc/aide de la fonction.


---------------
il s'appel le ronge me doute

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Fonction Else

 

Sujets relatifs
Crée une fonction de photo 'slider'aide requête sql updateen fonction champ autre table
Comment sélectionner une option d'un select en fonction d'un autre?comment fonctionne la fonction crypt() ?
appel d'une fonction hors procédure principale dans visual basicallocation memoire dans une fonction
obtenir tous les appels à une fonction, en fin de codeFonction if...else pour une commande en ligne
programmer fonction If-Thene-Else pour des fonction booleeneFonction mail avec un if else tout bête et javascript confirm()
Plus de sujets relatifs à : Fonction Else


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR