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

Problème de CheckBox et boucle si

  • Initiateur de la discussion Lindoo
  • Date de début
L

Lindoo

Guest
Bonjour, jsuis un ptit nouveau sur ce forum
Pour mon stage de bts informatique je touche un peu à du vba excel, j'ai déjà fait du vb, mais j'ai des problèmes de débutant :-/

Mon problème se trouve à ce niveau :
For i = 1 To X
If Worksheets("Feuil1").Range("B" & i) = Prod Then
If Worksheets("Feuil1").Range("C" & i) = Marc Then
If Worksheets("Feuil1").Range("F" & i) = Dep Then
If Worksheets("Feuil1").Range("D" & i) = "X1" Then
Compteur1 = Compteur1 + 1
ElseIf Worksheets("Feuil1").Range("D" & i) = "X2" Then
Compteur2 = Compteur2 + 1
ElseIf Worksheets("Feuil1").Range("D" & i) = "X3" Then
Compteur3 = Compteur3 + 1
ElseIf Worksheets("Feuil1").Range("D" & i) = "X4" Then
Compteur4 = Compteur4 + 1
ElseIf Worksheets("Feuil1").Range("D" & i) = "X10" Then
Compteur5 = Compteur5 + 1
End If
End If
End If
End If
Next

Mes variables Prod, Marc et Dep sont pour le moment des chaines de caractères. Le problème c'est qu'elles sont issues de mes CheckBox (3)... donc je ne peux pas cocher plusieurs obtions avec mes CheckBox (ce qui est génant... ). Je ne sais pas comment transformer mes variables pour qu'elles puissent être exploitables. On m'a conseillé de faire une fonction avec des tableaux, mais je ne vois pas non plus comment l'introduire dans mes boucles.
Merci d'avance pour vos réponses.
 
L

Lindoo

Guest
Un peu plus de détails :
Pour mon CheckBox Prod, par exemple il y a 2 case donc 3 choix (c'est le plus petit).
Ma boucle if teste une colonne de mon tableau avec :
- "ARE" et "TYP"
- "POM"
- "ARE" et "TYP" et "POM"
 
L

Lindoo

Guest
EHLP
Personne ne sait m'aider sur ce coup :'(
J'ai peu être mal formulé mon problème...
Merci d'avance aux personnes qui se pencheraient sur mon cas (grave :roll: )
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…