Discussion :

[honeymamy]

Bonjour à tous,

En fait je dois mettre des contrôles pour les cellules obligatoires avec Excel 2007.
Pour la cellule A1 par exemple, avec VBA j'ai pu mettre quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Range("A1") = "" Then
   MsgBox ("Champ A1 obligatoire")
    Range("A1").Select   
    Exit Sub
  End If
End Sub

Mon problème se pose lorsqu'on ne renseigne pas le champ A1, le MsgBox s'affiche en deux fois consécutifs, et je suis obligé de cliquer sur OK deux fois pour les faire disparaitre

Quelqu'un peut m'aider SVP?

Merci

[Kimy_Ire]

Bonjour honeymamy,

Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Application.Intersect(Target, Range("A1")) Is Nothing Then
    If Range("A1") = "" Then
        Range("A1").Select
        MsgBox ("Champ A1 obligatoire")
    End If
End If
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[honeymamy]

Cooooolllll

Ca marche, youpiiiii.

En fait, Kimmy peux tu stp éclaircir un tout petit peu sur l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Application.Intersect(Target, Range("E28")) Is Nothing Then

Vu que je débute en VBA, j'aimerai comprendre un peu plus au lieu de faire juste un copier coller

Merci merci

Oui la solution de Kimy marche très bien
Merci Dev pour la remarque

[Kimy_Ire]

honeymamy,

Je pense que tu peux voir par toi même ce que cela signifie.
En effet, Application.Intersect te renvoie une Range en fonction des Ranges que tu lui passes en paramètre.

Ainsi Application.Intersect(Range("A1:A10"), Range("A8:A20")) te renverra la Range("A8:A10").
De la même manière Application.Intersect(Range("A1:A10"), Range("A8:A20"), Range("A9:F9")) te renverra la Range("A9").

Ainsi, si tes Ranges en paramètre ne se "superposent" pas, Application.Intersect te renverra Nothing.

Mon instruction fait donc le test pour savoir si Target, Range("E28") correspondent ou pas. Si oui, on ne passe pas dans la condition, et donc on n'affiche pas la MsgBox (et on ne sélectionne pas Range("E28") mais celle-ci est déjà sélectionnée). Sinon, on effectue les actions.

Voila.

Cordialement,
Kimy

[honeymamy]

Kimy

Oui, j'ai eu bien l'impression de le savoir dès le début mais avec tes explications c'est encore plus clair et précis

Mes remeriements.
Cordialement,

[Devqnn]

Bonjour,

Ton message s'affiche deux fois, car tu a deux instructions dans ton IF
Si tu enlève le Range("A1").Select de ton code, ton message ne s'affiche qu'une seule fois

Je ne sais pas comment résoudre ton problème, mais la solution de Kimy fonctionne parfaitement

Bonne continuation,
Dev