afficher usf si cellule b4 vide

[pascal21]

bonsoir à tous
j'ai realisé un usf avec un control calendar qui sera lié à la cellule b4 de la feuil1
j'aimerais que cet ufs ne s'ouvre que si b4 est vide et que le clic sur une date affiche cette date dans b4
merci

 

[Eric 45]

Re : afficher usf si cellule b4 vide

Bonsoir à tous

Dans worksheet tu écris :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b4").Value = "" Then UserForm1.Show
End Sub

et dans le bouton de la USF :

range("b4").value=calandar1.value

"JE REVOIE CAR CELA NE FONCTIONNE PAS"
Cette fois ci c'est bon

Eric

 

[pascal21]

Re : afficher usf si cellule b4 vide

ok merci ça fonctionne bien