Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Fonction if et else vba

M

Monhtc

XLDnaute Occasionnel
Bonjour le forum, je galère sur un code vba de la fonction if avec deux conditions.
En effet je veux obtenir un resultat suivant la valeur d'une combobox.
VB: 
 If Me.ComboBox1.Value = "bon" Then
.Range("C24") = ""
.Range("H24") = "X"
.Range("N24") = ""
End If
If Me.ComboBox1Value = "moyen" Then
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = "X"

Else
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = ""
End If

J'aimerais que la cellule
H24= X si la combobox1=bon Et les cellules C24 et N24 Soient vident
ou N24=X si combobox1=moyen Et les cellules C24 et H24 Soient vident
Sinon toutes les cellules designées C24 H24 N24 restent vident
 
Solution
Bonjour le Fil ,le Forum
peut être ainsi !
VB: 
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = ""
If Me.ComboBox1.Value = "mauvais" Then
.Range("C24") = "X"
ElseIf Me.ComboBox1.Value = "bon" Then 'Ici ElseIf au lieu de If
.Range("H24") = "X"
ElseIf Me.ComboBox1Value = "moyen" Then
.Range("N24") = "X"
End If
tu avais testé ma proposition #6
voir essai dans Userform (pour Visuel)
jean marie
Trier par date Trier par votes

chris

XLDnaute Barbatruc
Bonjour

Si elles sont vides au départ

VB: 
If Me.ComboBox1.Value = "bon" Then
.Range("H24") = "X"
ElseIf Me.ComboBox1Value = "moyen" Then
.Range("N24") = "X"
End If

sinon
Code: 
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = ""
If Me.ComboBox1.Value = "bon" Then
.Range("H24") = "X"
ElseIf Me.ComboBox1Value = "moyen" Then
.Range("N24") = "X"
End If
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour @Monhtc, chris,

Je propose ce code VBA :
VB: 
Sub Essai()
  [C24, H24, N24].ClearContents
  If ComboBox1 = "bon" Then [H24] = "X" Else _
    If ComboBox1 = "moyen" Then [N24] = "X"
End Sub
Ne pas mettre la 1ère ligne de la sub
si les 3 cellules sont déjà vides.

soan
 
Vote positif 0 Vote négatif
M

Monhtc

XLDnaute Occasionnel
Ça marche parfaitement merci à @chris
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonjour Monhtc
Bonjour le Fil ,le Forum
ou un truc du genre
VB: 
With Me.ComboBox1
    maFeuille.Range("C24") = "" 'ici je sais pas 
    maFeuille.Range("H24") = IIf(.Value = "bon", "X", "")
    maFeuille.Range("N24") = IIf(.Value = "moyen", "X", "")
End With
Bonne journée
jean marie
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour Jean-Marie,

Tu as écrit : « maFeuille.Range("C24") = "" 'ici je sais pas »

oh, ben en fait, d'après l'énoncé, on dirait bien que C24 est toujours : "" !
donc si les cellules sont initialisées à "" dès le départ, c'est déjà ok :
y'a plus besoin d's'en préoccuper !

soan
 
Vote positif 0 Vote négatif
M

Monhtc

XLDnaute Occasionnel
Je souhaite rajouter une troisième possibilité d'avoir la case C24 coché si combobox1 est égale à mauvais
VB: 
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = ""
If Me.ComboBox1.Value = "mauvais" Then
.Range("C24") = "X"
If Me.ComboBox1.Value = "bon" Then
.Range("H24") = "X"
ElseIf Me.ComboBox1Value = "moyen" Then
.Range("N24") = "X"
End If
Mais j'ai un beug
 
Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc
Bonjour
VB: 
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = ""
Select case Me.ComboBox1.Value
    case "mauvais" 
        .Range("C24") = "X"
    Case "bon" 
        .Range("H24") = "X"
    Case "moyen" 
      .Range("N24") = "X"
End Select
 
Dernière édition:
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonjour le Fil ,le Forum
peut être ainsi !
VB: 
.Range("C24") = ""
.Range("H24") = ""
.Range("N24") = ""
If Me.ComboBox1.Value = "mauvais" Then
.Range("C24") = "X"
ElseIf Me.ComboBox1.Value = "bon" Then 'Ici ElseIf au lieu de If
.Range("H24") = "X"
ElseIf Me.ComboBox1Value = "moyen" Then
.Range("N24") = "X"
End If
tu avais testé ma proposition #6
voir essai dans Userform (pour Visuel)
jean marie
 

Pièces jointes

  • Montch Test Visuel.xlsm
    21.5 KB · Affichages: 10
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2019 If.. Then ...Else...
Réponses
2
Affichages
278
Didier Quilghini
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
534
Zonmé
Z
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
420
R3n0W
  • Question
Autres la fonction similaire
Réponses
11
Affichages
432
patricktoulon
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
329
pangasoul
P
  • Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
  • Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
555
ralph45
N
  • Question
XL 2021 Problème de logique => Erreur sur réponse if -- then
Réponses
2
Affichages
263
nano33320
N
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
528
AtTheOne
A
  • Résolu(e)
Microsoft 365 Vider des listes déroulantes en cascade
Réponses
6
Affichages
573
Franc58
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…