[VBA-E]Boucle Wend sans fin ??

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:

---

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

essaye avec ça:

Code:

---

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.

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

Citation:

---

Envoyé par jmfmarques

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...:?

Citation:

---

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 ?

Je le comprend comme cela aussi...

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

Tu peux utiliser les deux syntaxes

'Si tu n'as aucune cellule vide dans ta ligne

Code:

---

1 2	DernièreColonne = Cells(3, 1).End(xlToRight).Column

---

'si tu peux avoir des cellules vides dans ta ligne

Code:

---

DernièreColonne = Range("IV3").End(xlToLeft).Column

---

A toutes fins utiles

La solution avec find

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim NoColonne, plage plage = Range(Cells(3, 1), Cells(3, Range("IV3").End(xlToLeft).Column)).Address With Range(plage) Set trouvé = .Find(Var, LookIn:=xlValues) If Not trouvé Is Nothing Then .Find(txtproduit.Text, LookIn:=xlValues).Select NoColonne = ActiveCell.Column Else MsgBox "Donnée non trouvée" End If End With

---

Ainsi tu as le choix ;)

A+

Déchainé ouskel'n'or ?

Lol ce que tu peux aussi faire c'est t'arranger pour arreter le programme quand tu es a la bonne ligne et cellule. Et la tu regarde si le test que tu fais cell=valeur retourne effectivement un true,

Citation:

---

Envoyé par ouskel'n'or

Mais ce sera pour demain

A+

---

Citation:

---

Envoyé par ouskel'n'or

Il y a mieux mais là, j'y vais vraiment

---

on à du mal à dire au revoir hein? à moins que ce ne soit duà des insomnies... :roll:

Tout d'abord merci pour vos réponses, par contre pour être honnêtre quelque chose me chagrine avc le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets("teintes").Select Dim colonne As Integer colonne = 1 MsgBox " la valuer de la cellule recherchée est : " & txtproduit.Value Cells(3, colonne).Select MsgBox "la valeur de colonne est " & colonne While Val(ActiveCell.Value) <> Val(txtproduit.Value) colonne = colonne + 1 Cells(3, colonne).Select Wend MsgBox "la valeur de colonne est " & colonne

---

J''ai toujours um message d'erreur, le while boulce sans fin, dépassement de capacité..
Les Msgbox me permmetent de vérifier les valeurs de ce côté là c'est OK
Pourtant le code est simple, si je bloque sur ce genre de pb je m'inqiéte!!!!8O

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sheets("teintes").Select   Dim colonne As Integer colonne = 1   Debug.Print " la valuer de la cellule recherchée est : " & txtproduit.Value   While Val(Sheets("teintes").Cells(3, colonne).Value) <> Val(txtproduit.Value) colonne = colonne + 1 Wend   MsgBox "la valeur de colonne est " & colonne

---

Et si ca ca va pas alors ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sheets("teintes").Select   Dim colonne As Integer colonne = 1   Debug.Print " la valuer de la cellule recherchée est : " & txtproduit.Value   While Str(Sheets("teintes").Cells(3, colonne).Value) <> Str(txtproduit.Value) colonne = colonne + 1 Wend   MsgBox "la valeur de colonne est " & colonne

---

coucou,

c'est peut etre bete mais bon...

Code:

---

1 2 3 4 5

While Val(ActiveCell.Value) <> Val(txtproduit.Value) colonne = colonne + 1 Cells(3, colonne).Select Wend

---

si t'a jamais d'egalité alors la boucle ne s'arrete pas et à un moment t'as colonne=257 donc tu depasse les 256 colonnes de la feuille :roll:

Code:

---

1 2 3 4 5 6 7 8 9

While Val(ActiveCell.Value) <> Val(txtproduit.Value) if colonne<256 then colonne = colonne + 1 Cells(3, colonne).Select else msgbox "valeur non trouvée" end if Wend

---

non?

Je ne pourrai jamais assez vous conseiller de travailler avec des Range.
Aucun risque de boucle sans fin.

Un peu de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Cherche() Dim rLigne3 As Range Dim rCell As Range Dim bFound As Boolean Sheets("teintes").Select Set rLigne3 = Range([A3], Cells(3, Cells.SpecialCells(xlLastCell).Column)) For Each rCell In rLigne3 If Val(rCell) = Val(txtproduit.Value) Then rCell.Select bFound = True Exit For End If Next rCell If bFound Then MsgBox "Colonne " & Selection.Column End If End Sub

---

Ici, je sors de la boucle à la première occurence trouvée.
S'il faut trouver toutes les occurences, on supprime le rCell.Select, le Exit For et bFound et on met le message

Code:

---

MsgBox "Colonne " & rCell.Column

---

dans la boucle.

Patapé!!!

J'ai vu tellement de "colonne = colonne + 1" que j'ai pas vu ton code :oops:

De toute manière, comme le tien était noyé au milieu des While... Wend, je me dis qu'un petit rappel n'est pas superflu.

En plus, nous avons 2 approches différentes:
Toi le Find et moi le For Each.

Ca donne le choix à notre cher posteur.