Bonjour à tous,
Je viens vous demander de l'aide pour résoudre le problème qui m'occupe actuellement...
Sur le fichier joint, j'aimerais si possible empêcher toute saisie tant que les cellules B4, C4 et D4 ne sont pas remplies. J'ai essayé via validation de données sans que cela me donne un résultat satisfaisant... En vba, mon code est actuellement :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B4").Value = "" Then
Range("B4").Select
MsgBox "remplir la cellule B4 svp", vbOK
End If
End Sub
Malheureusement je ne parviens pas à le modifier pour qu'il remplisse ma demande... J'aurais donc besoin de votre aide...
Merci,
Bonne journée,
Amicalement
Re : Empêcher la saisie dans l'ensemble des cellules d'une feuille si...
Bonjour Papou-net, le forum,
c'est parfait, merci !
La fonction "index" se base sur le numéro de la feuille dans le classeur ??
Bonne journée,
Amicalement
Re : Empêcher la saisie dans l'ensemble des cellules d'une feuille si...
Re,
Encore un problème qui survient en tentant d'avancer un peu ce fichier...
Lorsque je clique sur la cellule A8, mon usf2 contenant dtpicker s'affiche... Tout va bien jusque là... Comment faire pour récupérer la date choisie dans cette cellule A8 ??
Merci par avance de votre aide,
Amicalement
Re : Empêcher la saisie dans l'ensemble des cellules d'une feuille si...
Bonsoir !
J'ai résolu mon problème en adaptant mon code:
Code:
Private Sub UserForm2_Initialize()
Me.BtOk.Enabled = True
DTPicker1.Value = Date
End Sub
Private Sub BtOk_Click()
ActiveCell = DTPicker1.Value
UserForm2.Hide
End Sub