VBA dans Excel

Version imprimable

18/08/2016, 14h25
Green Bird

VBA dans Excel

Bonjour,

J'aurais besoin d'aide pour compléter un code que j'ai créé dans Excel.
J'ai ajouté des conditions dans un fichier excel via VBA.
Par exemple si vous répondez Oui à une question un message "Si Oui, préciser Laquelle" apparait dans un encadré à coté et dans lequel on doit donner des précisions. Le message apparait dans une couleur gris assez clair. L'objectif est d'indiquer à l'utilisateur qu'il doit préciser ses conditions.
J'ai ajouté comme condition que si la réponse était Non ou Vide, le message disparaissait.
Ça fonctionne.

Seulement quand je veux saisir les précisions, mon message "Si Oui, préciser Laquelle" réapparait et me supprime ces précisions.
J'ai des connaissances assez limitées dans VBA et je ne sais pas comment je peux faire pour compléter ma condition :
>> Si la réponse est OUI alors "Si Oui, préciser Laquelle"
>> Si c'est NON ou Vide l'encadré reste vide
>> Mais si je saisie les précisions, le message "Si Oui, préciser Laquelle" ne doit pas les effacer. Je voudrais aussi que le texte change de couleur pour que ce soit plus visible que le gris clair.

Par avance merci.
18/08/2016, 14h29
curt

Bonjour Green Bird,

serait-il possible d'avoir la feuille excel. Autrement, ça sera compliqué de t'aider.
18/08/2016, 14h37
Green Bird

Voilà le document.
18/08/2016, 15h31
Menhir

Citation:

Envoyé par Green Bird

Seulement quand je veux saisir les précisions, mon message "Si Oui, préciser Laquelle" réapparait et me supprime ces précisions.

Je n'ai pas ouvert ton XLSM mais je suppose que ton code est activé avec une macro évènementielle de type WorkSheet_Change.

Dans ce cas, il faut qu'au début de ta macro tu mettes un test qui vérifie si la cellule modifiée est celle où tu dois taper oui ou non et que la cellule où tu dois taper les précisions est vide.
Si ce n'est pas le cas, fait un Exit Sub.
18/08/2016, 16h07
Green Bird

Ma condition marche mais je voudrais la compléter pour que les précisions soient visibles après saisie par l'utilisateur et faire disparaitre le message d'aide.
En fait je sais ce que je veux mais je ne connais pas le code.
18/08/2016, 17h08
Menhir

Comme je l'ai dis, j'ouvre rarement les fichiers joints et jamais ceux qui peuvent contenir des macros.
Pour que je puisse t'aider, il faudrait que tu copies ton code dans un message, de préférence avec des balises. http://club.developpez.com/regles/#LIII-E

Voilà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
 
Sheets("Feuil1").Select
 
    Application.EnableEvents = False
 
'MODIFICATION PROCESS
    'Si OUI à la modification process alors le message "Si Oui, préciser Laquelle" apparait
    If Range("H28") = "X" Or Range("H28") = "x" And Range("N28") = "" Then
        Range("N28") = "Si Oui, préciser Laquelle"
        Else: Range("N28") = ""
    End If
    'Si les deux réponses Oui et Non sont sélectionnées : Message d'erreur + Suppression des réponses + Message automatique "Si Oui, préciser Laquelle"
    If Range("H28") <> "" And Range("K28") <> "" Then
        MsgBox "Sélectionner Oui ou Non !"
        Range("H28,K28,N28") = ""
    End If
 
    Application.EnableEvents = True
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim reponse As Integer
 
   If Target.Address(False, False) <> "H28" And Target.Address(False, False) <> "K28" Then Exit Sub
 
   If UCase(Range("H28").Value) = "X" Then
      If Range("N28").Value = "" Then Range("N28").Value = "Si Oui, préciser Laquelle"
      If Range("K28").Value <> "" Then
         If MsgBox("Sélectionner Oui ou Non !", vbYesNo, "ERREUR") = vbYes Then
            Range("H28").Value = "X"
            Range("K28").Value = ""
            If Range("N28").Value = "" Then Range("N28").Value = "Si Oui, préciser Laquelle"
         Else
            Range("H28").Value = ""
            Range("K28").Value = "X"
            Range("N28").Value = ""
         End If
      End If
   End If
 
End Sub

Ce qui est un peu bancale dans ton process, c'est la dualité des cases H28 et K28 (mais vu le MsgBox que tu as mis, je pense que tu t'es déja rendu compte du conflit).
Il serait mieux qu'il n'y ait qu'un seul bouton en relation avec une seule cellule.
L'information que tu souhaite est un bistable (oui ou non), c'est typiquement le genre de chose que l'on fait avec un seul bouton.
Ca simplifierait beaucoup le code et, surtout, ça clarifierait le process.

En imaginant que pour Oui, tu ais un X en H28 et que pour un non, cette cellule soit vide, ça donnerait comme code :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(False, False) <> "H28" Then Exit Sub
 
   If UCase(Range("H28").Value) = "X" Then
      If Range("N28").Value = "" Then Range("N28").Value = "Si Oui, préciser Laquelle"
   Else
      Range("N28").Value = ""
   End If
 
End Sub

C'est quand même plus propre, non ?

19/08/2016, 10h01
Green Bird

Bonjour,

Merci pour votre support je vais me débrouiller avec les infos que vous m'avez envoyées.

Bonne journée.