Discussion :

[Deuffr]

Hello all,

J'ai ce petit bout de code qui me semble plutot correct mas il ne marche pas. je cherche un deblocage si cela vous inspire !

L'objectif est de faire une boucle avec Findnext sur une valeur donnee. Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set Phonenmb = Cells.Find(what:=CTN, LookAt:=xlWhole)
If Phonenmb Is Nothing Then
CTNreport = 0
Else
firstAddress = Phonenmb.Address
Do
lig = 2
WS.Range("A" & lig & ":AZ" & lig).Value = Worksheets("Base").Range(Cells(Phonenmb.Row, 1), Cells(Phonenmb.Row, 42)).Value
Set Phonenmb = Application.FindNext(Phonenmb)
 lig = lig + 1
 Loop While Phonenmb.Adress <> firstAddress
 
End If

[Menhir]

il ne marche pas.

J'adore quand la description du dysfonctionnement est aussi précise et détaillée.

A vue de nez, ton lig = 2 me semble assez curieusement placé...
Initialiser une variable en début de boucle, c'est bien... à condition que ce soit à l'extérieur de la boucle.

[Docmarti]

Voici un exemple :

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
18
19
20
21
22
23
Sub tt()
Dim ctn As Variant
'tester avec chacune de ces 3 valeurs de types différents
 ctn = "allo"
 ctn = 1.5
 ctn = CDate("10/01/2016")
 
Set Phonenmb = Cells.Find(what:=ctn, LookAt:=xlWhole, LookIn:=xlFormulas)
If Phonenmb Is Nothing Then
CTNreport = 0
Else
firstAddress = Phonenmb.Address
Do
lig = 2
Phonenmb.Select 'Un Select temporaire pour tester le code
'WS.Range("A" & lig & ":AZ" & lig).Value = Worksheets("Base").Range(Cells(Phonenmb.Row, 1), Cells(Phonenmb.Row, 42)).Value
Set Phonenmb = Cells.FindNext(Phonenmb)
 lig = lig + 1
 Loop While Phonenmb.Address <> firstAddress
 
End If
 
End Sub

[Deuffr]

J'adore quand la description du dysfonctionnement est aussi précise et détaillée.

A vue de nez, ton lig = 2 me semble assez curieusement placé...
Initialiser une variable en début de boucle, c'est bien... à condition que ce soit à l'extérieur de la boucle.

En toute honnetete, j'etais en retard pour un rendez-vous lors de mon premier post donc je n'ai pas vraiment pris le temps d'etre plus descriptif.

L'ensemble marche mais bloque au niveau de Set Phonenmb = Cells.FindNext(Phonenmb). Comme s'il n'arrivait pas a trouver l'occurence suivante dans ma liste de valeur.

Je corrige la declaration de variable (nous sommes d'accord, elle doit etre declare avant le Do.

[Deuffr]

Solution

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
Set Phonenmb = Cells.Find(what:=CTN, LookAt:=xlWhole)
 
 
If Phonenmb Is Nothing Then
CTNreport = 0
Else
firstAddress = Phonenmb.Address
lig = 2
Do
 
WS.Range("A" & lig & ":AZ" & lig).Value = Worksheets("Base").Range(Cells(Phonenmb.Row, 1), Cells(Phonenmb.Row, 42)).Value
Set Phonenmb = Cells.FindNext(Phonenmb)
 lig = lig + 1
 Loop While Phonenmb.Address <> firstAddress
 
End If

L'erreur etait sur Address, ecrit avec un seul d ...... Coder en fin de journee, n'est pas une bonne idee