[VBA-E]Boucle Wend sans fin ??

**frevale** · 23/05/2006, 23h06

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** · 23/05/2006, 23h12

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** · 23/05/2006, 23h21

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

**méphistopheles** · 23/05/2006, 23h28

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

**jmfmarques** · 23/05/2006, 23h37

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** · 23/05/2006, 23h39

Je le comprend comme cela aussi...

**méphistopheles** · 23/05/2006, 23h39

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

**ouskel'n'or** · 24/05/2006, 00h27

Tu peux utiliser les deux syntaxes

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

Code :

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

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

'si tu peux avoir des cellules vides dans ta ligne

Code :

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

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

A toutes fins utiles

**ouskel'n'or** · 24/05/2006, 02h05

La solution avec find

Code :

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

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+

**Vesta** · 24/05/2006, 07h55

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,

**méphistopheles** · 24/05/2006, 07h59

Envoyé par ouskel'n'or

Mais ce sera pour demain

A+

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

**frevale** · 26/05/2006, 12h41

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

Code :

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

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!!!!

**Vesta** · 26/05/2006, 12h56

Code :

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

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 :

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

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

**Elstak** · 26/05/2006, 13h14

coucou,

c'est peut etre bete mais bon...

Code :

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

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

Code :

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

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?

**AlainTech** · 26/05/2006, 14h01

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

Un peu de code:

Code :

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

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 :

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

MsgBox "Colonne " & rCell.Column

dans la boucle.

**AlainTech** · 26/05/2006, 16h14

Patapé!!!

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

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.

[VBA-E]Boucle Wend sans fin ??

Macros et VBA Excel

Discussions similaires

Partager

Partager