=SI(A1<>"";A1;"")
re
papou
comment combiner 3 messages d alerte avec 3 code vba
je met en piece joint mon fichier pour etre plus claire sur mon exemple
Private Sub Worksheet_Calculate()
If Range("I5") = 2 Then MsgBox "ATTENTION ARTICLE DEJA SAISI"
If Range("G1") = 2 Then MsgBox "ATTENTION BON DEJA SAISI"
Select Case Range("E5")
Case Is = 1
MsgBox ("ALERTE DEPASSEMENT DU STOCK"), vbInformation
Case Is = 2 '*
MsgBox (""), vbInformation '*
End Select
End Sub
Bonjour Papou-net
Mes excuses pour ma question dans un sujet pas le mien
J'ai vu votre formule dans le post #3 et j'ai voulu savoir si c'est possible bien sur et se sera un grand plaisir de votre part si vous pouvez m'indiquer si j'ai par exemple la cellule A1 dans Feuil1 et je veux faire collage special avec liaison dans la cellule B1 qui est dans Feuil3 c'est a dire pas dans une meme feuille ..dans ce cas comment je vais ecrire avec votre formule
Merci d'avance pour l'aide
Cordialement
MADA BLACK
=Feuil3!B1
bonsoir papou
Merci bien
le code marche bien mais il lui faut des modifications
le message me bloque si la condition exige le message . alors que moi je veux continuer la saisie sans etre tjr bloquer par l affichage du message ... LE MESSAGE D ALERTE JE LE VEUX JUSTE A TITRE D INFO
Pouriez vous le tester sur mon fichier ?
Bonjour Papou-net
Merci pour votre aide et pour votre reponse
Tres gentil de votre part
J'ai essaye avec cette formule mais malheureusement le zero s'affiche dans B1 Feuil3 si la cellule dans A1 Feuil1 est vide ..tandisque moi j'ai voulu que si la cellule A1 dans Feuil1 est vide alors rien ne s'affiche dans B1 Feuil3
J'ai bien precisé ma question et j'ai ecris dans mon precedent message " votre formule du post3 "
Merci beaucoup d'avance pour votre aide
Cordialement
MADA BLACK
=SI(Feuil1!A1<>"";Feuil1!A1;"")
A priori, ce n'est un MsgBox qu'il faut utiliser mais un formulaire.
Vois donc si la solution proposée en PJ te convient. L'affichage dure 3 secondes puis le message disparaît.
Select Case Range("E5")
Case Is = 1
MsgBox ("ALERTE DEPASSEMENT DU STOCK"), vbInformation
Case Is = 2 '*
MsgBox (""), vbInformation '*
End Select
End Sub