Bonjour,
Voici le pb:
J'ai plusieurs cellules non contigues et qui sont le r=E9sultat de
somme.
J'aimerais afficher un Msgbox suivant le r=E9sultat d'un test (le m=EAme)
=E0 effectuer sur ces cellules, style: Si F5>10 , MsgBox1
Je souhaiterais utiliser 1 macro =E9venementielle pour r=E9soudre le pb.
Est-ce quelqu'1 peut m'aider ?
Merci d'avance pour les r=E9ponses qui suivront.
Salutations
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour, Exemple après avoir défini un nom maplage référant à tes cellules non contigues ceci dans le code de la feuille: '''*** Private Sub Worksheet_Calculate() Dim c As Range, msgtxt As String, tst As Boolean tst = False
For Each c In Range("maplage") If c > 10 Then tst = True If Len(msgtxt) < 1 Then msgtxt = c.Address Else msgtxt = msgtxt & ", " & c.Address End If End If Next
If tst Then _ MsgBox msgtxt, 1, "Dans maplage sont >10"
End Sub '''***
lSteph
"SD" a écrit dans le message de news:
Bonjour, Voici le pb: J'ai plusieurs cellules non contigues et qui sont le résultat de somme. J'aimerais afficher un Msgbox suivant le résultat d'un test (le même) à effectuer sur ces cellules, style: Si F5>10 , MsgBox1 Je souhaiterais utiliser 1 macro évenementielle pour résoudre le pb. Est-ce quelqu'1 peut m'aider ? Merci d'avance pour les réponses qui suivront. Salutations
Bonjour,
Exemple après avoir défini un nom maplage référant à tes cellules non
contigues
ceci dans le code de la feuille:
'''***
Private Sub Worksheet_Calculate()
Dim c As Range, msgtxt As String, tst As Boolean
tst = False
For Each c In Range("maplage")
If c > 10 Then
tst = True
If Len(msgtxt) < 1 Then
msgtxt = c.Address
Else
msgtxt = msgtxt & ", " & c.Address
End If
End If
Next
If tst Then _
MsgBox msgtxt, 1, "Dans maplage sont >10"
End Sub
'''***
lSteph
"SD" <stephetnel@aol.com> a écrit dans le message de news:
1140413925.770837.24780@o13g2000cwo.googlegroups.com...
Bonjour,
Voici le pb:
J'ai plusieurs cellules non contigues et qui sont le résultat de
somme.
J'aimerais afficher un Msgbox suivant le résultat d'un test (le même)
à effectuer sur ces cellules, style: Si F5>10 , MsgBox1
Je souhaiterais utiliser 1 macro évenementielle pour résoudre le pb.
Est-ce quelqu'1 peut m'aider ?
Merci d'avance pour les réponses qui suivront.
Salutations
Bonjour, Exemple après avoir défini un nom maplage référant à tes cellules non contigues ceci dans le code de la feuille: '''*** Private Sub Worksheet_Calculate() Dim c As Range, msgtxt As String, tst As Boolean tst = False
For Each c In Range("maplage") If c > 10 Then tst = True If Len(msgtxt) < 1 Then msgtxt = c.Address Else msgtxt = msgtxt & ", " & c.Address End If End If Next
If tst Then _ MsgBox msgtxt, 1, "Dans maplage sont >10"
End Sub '''***
lSteph
"SD" a écrit dans le message de news:
Bonjour, Voici le pb: J'ai plusieurs cellules non contigues et qui sont le résultat de somme. J'aimerais afficher un Msgbox suivant le résultat d'un test (le même) à effectuer sur ces cellules, style: Si F5>10 , MsgBox1 Je souhaiterais utiliser 1 macro évenementielle pour résoudre le pb. Est-ce quelqu'1 peut m'aider ? Merci d'avance pour les réponses qui suivront. Salutations
lSteph
Re, cela dit sans message Voir menu Format mise en forme conditionnelle semblerait plus appropriée. 'lSteph
"SD" a écrit dans le message de news:
Bonjour, Voici le pb: J'ai plusieurs cellules non contigues et qui sont le résultat de somme. J'aimerais afficher un Msgbox suivant le résultat d'un test (le même) à effectuer sur ces cellules, style: Si F5>10 , MsgBox1 Je souhaiterais utiliser 1 macro évenementielle pour résoudre le pb. Est-ce quelqu'1 peut m'aider ? Merci d'avance pour les réponses qui suivront. Salutations
Re,
cela dit sans message
Voir menu Format
mise en forme conditionnelle semblerait plus appropriée.
'lSteph
"SD" <stephetnel@aol.com> a écrit dans le message de news:
1140413925.770837.24780@o13g2000cwo.googlegroups.com...
Bonjour,
Voici le pb:
J'ai plusieurs cellules non contigues et qui sont le résultat de
somme.
J'aimerais afficher un Msgbox suivant le résultat d'un test (le même)
à effectuer sur ces cellules, style: Si F5>10 , MsgBox1
Je souhaiterais utiliser 1 macro évenementielle pour résoudre le pb.
Est-ce quelqu'1 peut m'aider ?
Merci d'avance pour les réponses qui suivront.
Salutations
Re, cela dit sans message Voir menu Format mise en forme conditionnelle semblerait plus appropriée. 'lSteph
"SD" a écrit dans le message de news:
Bonjour, Voici le pb: J'ai plusieurs cellules non contigues et qui sont le résultat de somme. J'aimerais afficher un Msgbox suivant le résultat d'un test (le même) à effectuer sur ces cellules, style: Si F5>10 , MsgBox1 Je souhaiterais utiliser 1 macro évenementielle pour résoudre le pb. Est-ce quelqu'1 peut m'aider ? Merci d'avance pour les réponses qui suivront. Salutations
JB
Bonjour,
Ce que j'ai compris: F5 est le résultat d'une somme de F1:F4 par exemple.
Sur le champ F1:F4: Données/Validation/Perso: =$F$5<100
Cordialement JB
Bonjour,
Ce que j'ai compris: F5 est le résultat d'une somme de F1:F4 par
exemple.
Sur le champ F1:F4: Données/Validation/Perso: =$F$5<100
