message d'alerte avec un msgbox

  • Initiateur de la discussion Initiateur de la discussion raym1313
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

raym1313

XLDnaute Occasionnel
bonjour

je souhaiterai qu' une macro - analyse une liste de chiffres en col ( C1 : C80 )
et qu'elle m'affiche un message d'alerte ( EXECUTION IMPOSSIBLE )
si la valeur de la cellule ( I3 ) est supérieure
aux valeurs contenues dans la liste

dans l'exemple joint j' ai une cellule en ( I3 ) comportant une valeur = 4
en ( C1 : C80 ) j 'ai une liste contenant egalement des chiffres
si un de ces chiffres est superieur a ( I3 )
afficher avec un msgbox ( EXECUTION IMPOSSIBLE )

merci pour votre aide

l exemple que je vous donne en fichier joint n est pas complet
le fichier etant trop lourd a envoyer

en fait apres lecture du message ( EXECUTION IMPOSSIBLE )
je souhaiterai un arret complet de la macro


merci de votre aide
 

Pièces jointes

Dernière édition:
Re : message d'alerte avec un msgbox

Hello,

Si j'ai bien compris, dans le code de la feuille voulue
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim x As Range

    For Each x In Range("C1:C" & Range("C65536").End(xlUp).Row)
        If x > Range("I3") Then MsgBox "Exécution impossible ! " & x.Address
        'Ou
        'If x > Range("I3") Then MsgBox "Exécution impossible !"
    Next x
    
End Sub
 
Re : message d'alerte avec un msgbox

Hello,

Si j'ai bien compris, dans le code de la feuille voulue
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim x As Range

    For Each x In Range("C1:C" & Range("C65536").End(xlUp).Row)
        If x > Range("I3") Then MsgBox "Exécution impossible ! " & x.Address
        'Ou
        'If x > Range("I3") Then MsgBox "Exécution impossible !"
    Next x
    
End Sub

JE TE REMERCIE

ca fonctionne parfaitement

mais comment je peux modifier le contenu de la msgbox
je la voudrai en plus gros caracteres et plus grande
 
Re : message d'alerte avec un msgbox

Re,

Sauf erreur, je ne crois pas qu'on puisse changer les propriétés (police, taille de la pollice, sa taille, gras, italique) d'une MsgBox.

Tu peux écrire le texte en majuscule, si non faut passer par un UserForm.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
Réponses
1
Affichages
1 K
F
  • Question Question
Réponses
4
Affichages
1 K
Francis200
F
V
Réponses
3
Affichages
750
P
  • Question Question
Réponses
1
Affichages
2 K
Patrosso
P
E
Réponses
17
Affichages
2 K
J
Réponses
6
Affichages
1 K
jcliochon77
J
P
Réponses
2
Affichages
2 K
piwiss
P
T
Réponses
2
Affichages
1 K
Tubule
T
V
Réponses
2
Affichages
2 K
vynmarius
V
C
Réponses
3
Affichages
2 K
claivier_58
C
C
Réponses
1
Affichages
2 K
claivier_58
C
Retour