Condition sur des Textbox - VBA

Fermé
Utilisateur anonyme - Modifié par pachobo16 le 6/12/2013 à 22:36
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 7 déc. 2013 à 08:57
Bonjour,

Après plusieurs recherches sur internet, je me tourne vers vous pour ce problème :
Dans mon programme, j'aimerai vérifier si le texte saisi dans une certaine textbox (j'en ai plusieurs) correspond à une certaine cellule de ma feuille excel.
Voici le bout de code :

c = 65
l = 1

For i = 1 To 81

Test:

If c <= 73 Then
If l <= 9 Then
If Grille.Controls("T" & i) = Worksheets("Solution").Range(Chr(c) & l) Then
Grille.Controls("T" & i).BackColor = &HFF& 'Vert
Else
Grille.Controls("T" & i).BackColor = &HFF00& 'Rouge
End If
l = l + 1
Else
c = c + 1
l = 1
GoTo Test
End If
End If

Next i

Le problème, c'est que le code
Else
Grille.Controls("T" & i) <> Worksheets("Solution").Range(Chr(c) & l) Then
Grille.Controls("T" & i).BackColor = &HFF00& 'Rouge
Ne fonctionne pas, n'est pas exécuté par le programme. J'ai l'impression que c'est à cause du signe différents '<>', car quand je le remplace par un =, tout fonctionne..

Quelqu'un aurait-il une idée pour résoudre ce problème ?

Merci !

1 réponse

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 déc. 2013 à 08:57
Bonjour,
Sans un exemple de ton classeur c'est difficile de comprendre ton code.
Poste un exemple (sans donnée confidentielle) sur Cjoint.com et mettre le lien sur un poste suivant.
A+
0