Il y a beaucoup de problèmes dans ton code.
If Range("B3:B30") = "OK" Then GoToRange ("E3:E30")
Tu ne peux pas comparer une chaine de caractère ("OK") aux valeur de toute une zone (le Range).
Il manque aussi un espace après GoTo.
De plus, en VBA, GoTo sert à indiquer à l'exécution de se rendre sur une ligne de code et non sur une cellule.
Un Range isolé ainsi, sans action, ne peut pas être correct.
Il faudrait que tu précises ce que tu comptes faire avec.
En plus, il y a un espace néfaste entre Range et la parenthèse.
Mais il y a sans doute, en plus, une erreur de conception : tu crées une boucle en utilisant la variable cell mais tu ne l'utilise pas dans la boucle.
Tout ceci semble indiquer que tu n'as pas pris le temps de te former un minimum à ce langage (je rejoins là le conseille de Patrice740
).
Essayer de comprendre un langage en récupérant des morceaux de code, ça a ses limites.
Pour remettre le début de code dans le droit chemin :
1 2 3 4 5
| Sub ValidationOk()
Dim CC As Range
For Each CC In Range("B3:B30")
If CC.Value = "OK" Then |
Pour le reste, difficile de t'aider si tu n'expliques pas ce que tu souhaites que ta macro fasse.
Partager