Afficher le nom sur message alerte
Bonjour à tous et bon dimanche,
J'a un fichier Excel (dont téléchargé ici sur le forum) .Comment faire pour afficher sur le message box :
le nom de la personne de (colonne A) au lieu de la cellule en négatif exemple E4 (colonne E) ou bien les deux
Msgbox comme ==> "Attention : Valeur négative pour Léa car négative de (-13) en E4."
Merci
Bonjour,
Change cette ligne comme ceci
If s <> "" Then MsgBox "Attention : Valeur négative en " & Target.Dependents.Offset(, -4)Hello,
Y a t il moyen d'ajouter les deux ? Attention :valeur négative pour (nom) de -x. (Attention :valeur négative pour Léa de -10).
Merciii
Merci François
Hello !
J'ai une question est-ce qu'il possible d'afficher le message box sur une autre page "ici planning"
Merci
Bonjour,
Une alternative...
Dans l'onglet "planning", en colonnes A-B, une extraction (via Filtre Élaboré) des valeurs négatives du tableau source
Si ça t'intéresse
Bonjour,
Merci pour le TCD, je souhaite avoir juste le popup "message d'alerte" sur une autre feuille. (càd peuvent avoir plusieurs feuilles mais l'affichage se passe sur ma feuille planning).
Merci+
Bonsoir à tous,
Pour ma demande d'avoir un popup sur une autre feuille est-il possible.
(càd sur une des feuilles "Planning, A, B, C ou D..." avoir l'affichage d'alerte exemple sur feuil planning).
Est ce que le code pourrai démarrer comme ça ?
Private Sub Worksheet_open()
If Worksheets("Heure Trv").Range("$E:$E").Value = < 0 Then
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s$, oPlg As Range, oCel As Range
On Error GoTo E
Set oPlg = Intersect([$E:$E], Target.Dependents)
On Error GoTo 0
If Not oPlg Is Nothing Then
For Each oCel In oPlg.Cells
If oCel.Value <= 0 Then
MsgBox "Attention : Valeur négative pour " & Range("A" & oCel.Row).Value & " de " & oCel.Value
s = s & vbLf & oCel.Address(0, 0)
End If
Next
'If s <> "" Then MsgBox "Attention :" & vbCrLf & "Valeur négative pour " & s
'If s <> "" Then MsgBox "Attention : Valeur négative en " & Target.Dependents.Offset(, -4)
End If
E:
'Suite de la procédure Worksheet_Change si besoin est...
Exit Sub
C:
On Error GoTo 0
Resume C
End Sub
Merci