Obliger saisie si celule X .....

[Arcangeli]

Bonjour le forum.
Encore besoin de votre aide pour obliger à saisir une celule lorsqu'une autre est remplie.
Je ne sais sait pas si c'est faisable.
J'ai déjà cherché sur ce forum, mais rien trouvé de semblable.... ou alors mal cherché!!
En pièce jointe mon fichier avec les explications.
Déjà merci à ceux qui pourons me répondre.

 

[job75]

Re : Obliger saisie si celule X .....

Bonjour Arcangeli,

Cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B7:C12")) Is Nothing Or IsNumeric(CStr(Target.Cells(1, 1))) Then Exit Sub
Dim cel As Range
For Each cel In Range("B7:C12")
  If Not IsNumeric(CStr(cel)) Then cel.Select: Exit For
Next
End Sub

Fichier joint.

A+

 

[Arcangeli]

Re : Obliger saisie si celule X .....

Merci Job 75.
C'est exactement ce que je cherchait et ça fonctionne nikel.
Désolé de ne pas avoir répondu plus vite.
Encore bravo