Fonction Else

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fonction Else

micka671

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

Message cité 1 fois

Publicité

Marc L

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:

micka671

micka671 a écrit :

Bonjour , j'ai ce code :

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

MaybeEijOrNot

but someone at least

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

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

Arl Guhr

Code :

Sub EFFACE_DONNEE()
retour = MsgBox(prompt:=" Etes-vous sûr de vouloir supprimer les données ?? ", Buttons:=vbYesNo + vbCritical, Title:="Attention" )
If retour = 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
End If
End Sub

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

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

Marc L

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

Arl Guhr

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 :

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

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 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()
Plus de sujets relatifs à : Fonction Else

Page générée en 0.028 secondes