affichage d'une alerte

salut ,

Charte XLD

Pas de post avec la question juste dans le fichier joint. Tout le monde ne peut pas forcement télécharger les pièces jointes.
Et quelqu'un qui a le même problème que toi ne trouvera pas ton post avec la fonction de recherche du forum vu que la question n'es pas ds le post.

Toutes mes excuses.
Voilà mon soucis, il me faudrait une alerte lorsque certaines cellules d'une même ligne ne comporte pas de valeurs, mais le fichiers joint est beaucoup plus parlant.
Merci et encore désolé.

salut titi


je pense que tu devrait essayer la commande validation (Menu Données ; Validation...)

@++ xavier

bonsoir Titi , Arnaud et Xavier

j'espere que cette macro pourra t'aider

Sub Test()
Dim X As Integer
Dim Cell As Range
Dim Resultat As String

X = Range("B65536").End(xlUp).Row 'derniere ligne non vide dans la colonne B

For Each Cell In Range("F11:I" & X)
If Cell = 0 Then Resultat = Resultat & "Vous n'avez pas de " & Cells(10, Cell.Column) _
& " dans la ligne " & Cell.Row & Chr(10)
Next Cell

MsgBox Resultat, , "Message"
End Sub


bonne soiree
MichelXld

BOnjour le forum
Merci a tous pour vos réponse, la solution de Michel est trés bien, un petit soucis tout de même il faudrait que le message s'affiche lorsque je rentre des valeurs dans les cellules de la colonne B.
Si vous avez une solution, je suis preneur.
Bonne journée au forum

bonjour Titi

cette procedure est à placer au niveau de la feuille contenant les données
j'espere qu'avec quelques adaptation cela pourra t'aider


Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer
Dim Cell As Range
Dim Resultat As String

X = Target.Row 'derniee ligne vide dans la colonne B
'je suis parti du principe que les données sont saisies à la suite
'dans la colonne B
'et que les données sont deja existantes dans les colonnes F à I lors de la saisie
If Not Intersect(Target, Range("B11:B" & X)) Is Nothing Then

For Each Cell In Range("F11:I" & X)
If Cell = 0 Then Resultat = Resultat & "Vous n'avez pas de " & Cells(10, Cell.Column) _
& " dans la ligne " & Cell.Row & Chr(10)
Next Cell

MsgBox Resultat, , "Message"
End If
End Sub


bonne soiree
MichelXld