Fonction Else
Fonction Else - VB/VBA/VBS - Programmation
Marsh Posté le 17-12-2013 à 23:21:24
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 ? … 
Marsh Posté le 18-12-2013 à 21:38:21
| micka671 a écrit : Bonjour , j'ai ce code :
|
Marsh Posté le 18-12-2013 à 21:58:36
La réponse est dans la ligne 3 et 5. ;D
---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.
Marsh Posté le 18-12-2013 à 22:57:21
Code :
|
vbyes est une 'constante' il faut la comparer avec ton 'retour'
---------------
il s'appel le ronge me doute
Marsh Posté le 19-12-2013 à 09:31:35
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 :
|
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
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 basic
- allocation memoire dans une fonction
- obtenir tous les appels à une fonction, en fin de code
- Fonction if...else pour une commande en ligne
- programmer fonction If-Thene-Else pour des fonction booleene
- Fonction mail avec un if else tout bête et javascript confirm()
Marsh Posté le 17-12-2013 à 17:28:04
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