problème de combobox à cause des guillemet - VB/VBA/VBS - Programmation
MarshPosté le 16-06-2004 à 12:40:37
voilà le code que j'ai: operateur = Sheets("stats" ).combo_matricule.Value 'numero opérateur recherché
x = 1 'numero ligne sur page donnée y = 34 'numero ligne pour recopie dans la page stat Do op = Sheets("données" ).Cells(2 + x, 2) ' numéro de l'opérateur de la fiche If op = operateur Then For u = 1 To 23 'recopie des bon resultats a = Sheets("données" ).Cells(2 + x, u) Sheets("stats" ).Cells(y, u) = a Next u y = y + 1 'incrementation du n° de ligne de recopie
End If x = x + 1 'incrementation du n° de ligne de recherche
Loop While Sheets("données" ).Cells(2 + x, 2) > 0 'fin de recherche quand plus de ligne remplie
mon probleme à lieu à la premiere ligne quand je veut operateur soit égal à la valeur de la combo, le prob et que la valeur de la combo et entouré de guillemet ("numero opérateur" ) donc quand je la compare à la valeur de mon tableau, et bien il trouve que tou mon tableau et différent de celle-ci qq'un peut m'aider?? merci d'avance
Marsh Posté le 16-06-2004 à 12:40:37
voilà le code que j'ai:
operateur = Sheets("stats" ).combo_matricule.Value 'numero opérateur recherché
x = 1 'numero ligne sur page donnée
y = 34 'numero ligne pour recopie dans la page stat
Do
op = Sheets("données" ).Cells(2 + x, 2) ' numéro de l'opérateur de la fiche
If op = operateur Then
For u = 1 To 23 'recopie des bon resultats
a = Sheets("données" ).Cells(2 + x, u)
Sheets("stats" ).Cells(y, u) = a
Next u
y = y + 1 'incrementation du n° de ligne de recopie
End If
x = x + 1 'incrementation du n° de ligne de recherche
Loop While Sheets("données" ).Cells(2 + x, 2) > 0 'fin de recherche quand plus de ligne remplie
mon probleme à lieu à la premiere ligne quand je veut operateur soit égal à la valeur de la combo, le prob et que la valeur de la combo et entouré de guillemet ("numero opérateur" ) donc quand je la compare à la valeur de mon tableau, et bien il trouve que tou mon tableau et différent de celle-ci
qq'un peut m'aider??
merci d'avance