jeromeN95
XLDnaute Impliqué
Bonjour,
je souhaite forcer le remplissage d'une cellule.
J'ai bricoler ceci mais ca ne fonctionne pas trés bien:
'remplir cellule obligatoire
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then
If Sheets("Feuille1").Range("I1") = "" Then
Sheets("Feuille1").Range("I1").Select
End If
End If
If Target.Address <> "$B$5:$O$24" Then
If Sheets("Feuille1").Range("I1") = "" Then
Sheets("Feuille1").Range("I1").Select
End If
End If
End Sub
je souhaite forcer le remplissage d'une cellule.
J'ai bricoler ceci mais ca ne fonctionne pas trés bien:
'remplir cellule obligatoire
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then
If Sheets("Feuille1").Range("I1") = "" Then
Sheets("Feuille1").Range("I1").Select
End If
End If
If Target.Address <> "$B$5:$O$24" Then
If Sheets("Feuille1").Range("I1") = "" Then
Sheets("Feuille1").Range("I1").Select
End If
End If
End Sub