Message lorsque cellule sélectionnée

[sellig 29]

Bonjour à tous,

Je souhaiterais voir apparaitre un message lorsque F7 est sélectionné et sous réserve qu'une valeur soit déjà saisie en F8.
Actuellement (fichier joint), le message apparait uniquement lorsque je saisis en F7.
Peut être n'est pas possible?
Merci d'avance pour vos réponses

 

[Macpoy]

Re : Message lorsque cellule sélectionnée

Bonsoir le forum, sellig 29,
en retour votre classeur modifié
@plus

 

[sellig 29]

Re : Message lorsque cellule sélectionnée

Merci Macpoy, toutefois c'est lorsque que F8 est renseigné que le message doit apparaitre!

 

[Macpoy]

Re : Message lorsque cellule sélectionnée

Re,
désolé pour le moment il y a encore un petit défaut,
cela ne marche que si l'on sélectionne pour la première fois la cellule F7
mais dés lors une deuxième tentative cela fonctionne plus.
je me penche sur le pb après le repas

 

[Macpoy]

Re : Message lorsque cellule sélectionnée

Re, pour ce qui est de mon incompréhension, je viens de modifier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address() = "$F$7" Then
If Range("F8") <> "" Then
MsgBox "Saisie interdite!! cellule F8 renseignée!", vbCritical
End If
End If
End Sub

 

[sellig 29]

Re : Message lorsque cellule sélectionnée

OK merci, puisque tu utilises des codes VBA peut être est t'il possible de faire apparaitre le message uniquement lorsque l'on tente de faire apparaitre la liste déroulante en F7 (à la place de la cellule F7 sélectionnée)🙁

 

[Macpoy]

Re : Message lorsque cellule sélectionnée

Re, vite fait avant la soupe,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address() = "$F$7" Then
If Range("F8") <> "" Then
MsgBox "Saisie interdite!! cellule F8 renseignée!", vbCritical
End If
Range("a1").Select

End If
End Sub

 

[sellig 29]

Re : Message lorsque cellule sélectionnée

Merci à tous les 2 pour votre aide😉😉