Bonjour,
Je partage un petit truc
Cas : Une validation de données dans une cellule
Lorsque la cellule contient un lien externe sur un autre classeur, la valeur est vérifiée via la validation, mais lorsque la valeur est modifiée dans le classeur externe, la validation n’est pas effectuée (affichée).
Pour tester cette valeur et rendre attentif l’utilisateur, il faut utiliser la propriété « Value » de «Validation»
Exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Set F_Trait = ThisWorkbook.Sheets("Finance") For x = 2 To F_Trait.UsedRange.Rows.Count If F_Trait.Cells(x, 3).Validation.Value = False Then rep = MsgBox("Attention, la cellule " & F_Trait.Name & " " & F_Trait.Cells(x, 3).Address & "la liaison est interrompue ", vbCritical, "Validation") F_Trait.Cells(x, 3).Value = 0 End If Next
Partager