macro validation donnée

[Tibo]

Bonjour à tout le forum,
Ca faisait un moment que je ne m'etais pas rendu sur le forum, la nouvelle presenation est vraiment bien.
J'ai un petit probleme de macro:

Je voudrais créer une macro qui me donne un message lorsque je selectionne une cellule et qu'un autre cellule est vide
J'etais parti sur un truc du type

Sub Action5()
If range ('A1').value = '' Then
MsgBox ' Vous n'avez pas saisi le C ou le F ', vbOKOnly, ' Formation ou conseil ?'
Exit Sub
End If
End Sub

Mais je ne sais pas comment lancer la macro des que l'on clique sur une cellule.

Comme vous pouvez le constater, je suis un apprenti donc toute forme d'aide est la bienvenue...

D'avance merci

 

[CBernardT]

Bonjour Tibo

Macro à placer dans le module de la feuille interéssée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('C1,F1')) Is Nothing Then
If Range('A1').Value = '' Then
MsgBox ' Vous n'avez pas saisi le C ou le F ', vbOKOnly, ' Formation ou conseil ?'
Exit Sub
End If
End If
End Sub


Si tu sélectionnes la cellule C1 ou F1 et que la cellule A1 est vide, un message s'affiche.

Cordialement

CBernardT

 

[Tibo]

Merci Bernard

Ca fonctionne tiptop!
Je la garde dans un petit coin parce qu'elle peut me servir dans beaucoup de cas.

a +

 

[Tibo]

macro validation donnée 2

RE bonjour à tous

Petite question subsidiaire en rapport avec le premier sujet 'macro validation donnée'

Il faut que je fasse le meme test avec ('D1,D3') =>('D4') jusqu'a la lettre Z. Y a t'il un autre moyen que de creer une macro par lettre (donc par colonne)?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('C1,C3')) Is Nothing Then
If Range('C4').Value = '' Then
MsgBox ' Vous n'avez pas saisi le C ou le F ', vbOKOnly, ' Formation ou conseil ?'
Exit Sub
End If
End If
End Sub

Si la reponse est trop compliquée ou trop longue a donnée c'est pas la peine, ce que j'ai fonctionne je peux le reproduire...

D'avance merci.