Discussion :

[frevale]

Je débute en programmation et j'aprends avec le livre "Excel et VBA" mais je tombe sur un pb qui doit être simple mais je ne trouve pas la subtilité ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sheets("teintes").Select
Dim colonne As Integer
colonne = 1
MsgBox " essai  :" & txtproduit.Value
Cells(3, colonne).Select
While ActiveCell.Value <> txtproduit.Value
colonne = colonne + 1
Cells(3, colonne).Select
Wend

Cette boucle tourne sans fin pourtant j'ai midifié les valeurs pour faciliter la recherche
txtproduit = 1 je vérifie juste avant avec une msgbox RAS
Dans mon tableau excel j'ai placé en cells (3,33) un 1 volontairement
enplus je pense voir le déplacement du select au fur et à mesure de l'incrémentation

Pouvez-vous me dire vers quoi je dois chercher

merci

[méphistopheles]

essaye avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Sheets("teintes").Select
Dim colonne As Integer
colonne = 1
MsgBox " essai  :" & txtproduit.Value
Cells(3, colonne).Select
While val(ActiveCell.Value) <> val(txtproduit.Value)
colonne = colonne + 1
Cells(3, colonne).Select
Wend

sans garanties.

[jmfmarques]

et les cellules vides ? Elles ne vont pas être systématiquement différentes ======> Boucle sans fin ?

[méphistopheles]

et les cellules vides ? Elles ne vont pas être systématiquement différentes ======> Boucle sans fin ?

je ne vois pas ce que tu veut dire...

[jmfmarques]

colonne = colonne + 1
Cells(3, colonne).Select

de colonne en colonne, il arrivera à des colonnes vides où les cellules seront forcément différentes de txtproduit, non ?

[Vesta]

Je le comprend comme cela aussi...

[méphistopheles]

oui, mais il devrais normalement passer d'abord mar sa case qui à la même valeur en 3,33 et donc en sortir.