XL 2010 Comment obliger quelqu'un à remplir une celulle

_Thierry

XLDnaute Barbatruc

Repose en paix

• 10 Juillet 2020

• #2

Bonjour @denys65 , le Forum

Un exemple en macro évènementielle... (Dans le Private Module de la "Sheet1")

Bonne journée
@+Thierry

 

Pièces jointes

• XLD_denys65_Exemple_Event_SelectionChange.xlsm

  13 KB · Affichages: 18

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juillet 2020

• #3

Bonjour denys65, bienvenue sur XLD, salut _Thierry

Une solution voisine :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D4] 'à adapter
    If IsEmpty(.Value) Then .Select: CreateObject("wscript.shell").SendKeys "{F2}" 'mode édition
End With
End Sub

A+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 10 Juillet 2020

• #4

Bonjour à tous.

Vous pouvez également utiliser la validation conditionnelle.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Juillet 2020

• #5

Bonjour,
Victor, qu'est-ce que tu appelles la validation conditionnelle ?
Cordialement

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 12 Juillet 2020

• #6

RE,

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Juillet 2020

• #7

J'avais essayé cette méthode de validation de données mais sans succès.
La validation de données n'entre en jeu que si on saisit quelque chose.
Or là on ne saisit rien et ça passe.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Juillet 2020

• #8

Sinon, histoire de bavarder un peu 😎 , un version proche de celle de Thierry et Job75 qui diffère par le fait que tant qu'on n'y est pas venu, rien n'est exigé (pas vu pas pris).

VB:

Private Const CelluleContenuObligatoire = "D4"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static CelluleContenuObligatoire_Selection As Boolean
  
    If CelluleContenuObligatoire_Selection Then
        If IsEmpty(Me.Range(CelluleContenuObligatoire)) Then
            Application.EnableEvents = False
            Me.Range(CelluleContenuObligatoire).Select
            Application.EnableEvents = True
            MsgBox "Ach ! Du musst antworten !"
        End If
    ElseIf Not Intersect(Target, Me.Range(CelluleContenuObligatoire)) Is Nothing Then
        CelluleContenuObligatoire_Selection = True
    End If
End Sub

Edit: par contre je n'ai pas réussi à braquer la lampe dans le visage de l'utilisateur 😛

 

Dernière édition: 13 Juillet 2020

Vote positif 0 Vote négatif

D

denys65

XLDnaute Nouveau

• 13 Juillet 2020

• #9

Bonjour à tous,

Merci pour votre aide, la solution de Thierry me semble pas mal mais je n'ai pas encore eu le temps de la tester sur mon fichier.
Pour la solution de Dudu2, je n'ai pas Userform mais c'est peut-être une erreur mais ou je bosse c'est déjà bien si un fichier Excel avec une petite macro est acceptée.

Je reviens vous dire si ça fonctionne dans mon fichier.

A++ Denys65

 

Vote positif 0 Vote négatif