Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jean-Luc,
Copie ceci dans le code de la feuille module où l'action se passe :
Tu peux ajouter un petit message pour que l'usager sache de quoi il en retourne !
Ceci va s'exécuter si les cellules B38 ou B39 sont vides.
'---------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("B38"), Range("B39"))) Is Nothing Then Application.EnableEvents = False If Range("B38") = "" Then Range("B38").Select Else If Range("B39") = "" Then Range("B39").Select End If End If Application.EnableEvents = True End If End Sub '----------------------------
Salutations!
"Jean luc" a écrit dans le message de news: ugu$ Bonsoir, Dans une feuille de calcul comment obliger l'utilisateur a saisir en premier les cellules B38 et B39.
D'avance merci
jean luc
Bonjour Jean-Luc,
Copie ceci dans le code de la feuille module où l'action se passe :
Tu peux ajouter un petit message pour que l'usager sache de
quoi il en retourne !
Ceci va s'exécuter si les cellules B38 ou B39 sont vides.
'----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("B38"), Range("B39"))) Is Nothing Then
Application.EnableEvents = False
If Range("B38") = "" Then
Range("B38").Select
Else
If Range("B39") = "" Then
Range("B39").Select
End If
End If
Application.EnableEvents = True
End If
End Sub
'----------------------------
Salutations!
"Jean luc" <roi482@free.fr> a écrit dans le message de news: ugu$xrJ4FHA.2432@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Dans une feuille de calcul comment obliger l'utilisateur a saisir en premier
les cellules B38 et B39.
Copie ceci dans le code de la feuille module où l'action se passe :
Tu peux ajouter un petit message pour que l'usager sache de quoi il en retourne !
Ceci va s'exécuter si les cellules B38 ou B39 sont vides.
'---------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("B38"), Range("B39"))) Is Nothing Then Application.EnableEvents = False If Range("B38") = "" Then Range("B38").Select Else If Range("B39") = "" Then Range("B39").Select End If End If Application.EnableEvents = True End If End Sub '----------------------------
Salutations!
"Jean luc" a écrit dans le message de news: ugu$ Bonsoir, Dans une feuille de calcul comment obliger l'utilisateur a saisir en premier les cellules B38 et B39.
D'avance merci
jean luc
jb
Avec Données/Validation/Perso en déchochant 'Ignorer si Vide'
=ET(B38<>"";B39<>"")
JB
Avec Données/Validation/Perso en déchochant 'Ignorer si Vide'
