while / wend: macro ne répète pas l'opération: pb fonctionnement boucle

[tweedi]

Bonjour à tous,

Voilà je suis actuellement en train de lire un livre sur VBA, et j'ai un problème avec la méthode while / wend.

Avec ce code: seul le premier bloc de lignes ayant le même nom fusionne:

Sub fusion_final()

Dim num_row As Integer
Dim row_fin As Integer
num_row = 2
Application.DisplayAlerts = False
While Cells(num_row) <> ""
row_fin = num_row
While Cells(row_fin, 1) = Cells(row_fin + 1, 1)
row_fin = row_fin + 1
Wend

With Range(Cells(num_row, 1), Cells(row_fin, 1))
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
num_row = row_fin + 1
Wend
Application.DisplayAlerts = True

End Sub

Savez-vous ce qui ne va pas ? d'autre part utilisez-vous parfois cette méthode ou vous concentrez-vous davantage sur les do / while ?

Merci beaucoup !

Tweedi.

 

[Efgé]

Re : while / wend: macro ne répète pas l'opération: pb fonctionnement boucle

Bonjour tweedi, EDIT Je te laisse aussi une autre macro sans While, plus simple. pour le Wend voir mon post suivant 4 Cordialement

 

[Dranreb]

Re : while / wend: macro ne répète pas l'opération: pb fonctionnement boucle

Bonjour.
Information sur le jargon: While et Wend sont des instructions et non des méthodes.
Une méthode est une procédure propre à un certain type d'objet.
P.S. Le mot "objet" doit aussi seulement être employé à bon escient: c'est un type de donnée muni d'au moins une de ces caractéristiques: les méthodes, les propriétés et la faculté de décréter des évènements.
Cordialement.

 

[Efgé]

Re : while / wend: macro ne répète pas l'opération: pb fonctionnement boucle

Re tweedi, Bonjour Dranreb. @ tweedi, Ta solution fonctionne en remplaçant

While Cells(num_row)  ""

par

While Cells(num_row, 1)  ""

Tu as oublié le numéro de colonne... Cordialement

 

[tototiti2008]

Re : while / wend: macro ne répète pas l'opération: pb fonctionnement boucle

Bonjour tweedi, Bonjour Efgé , Bonjour Dranreb ,

d'autre part utilisez-vous parfois cette méthode ou vous concentrez-vous davantage sur les do / while ?

Les boucles Do....Loop permettent tout ce que font les While....Wend et plus, personnellement j'ai oublié le While...Wend au profit du Do....Loop

Le Do....Loop peut s'écrire de multiples manières,

condition en début de boucle (pas sûr de rentrer dedans) :

Do While [Condition]
...
Loop

While = Tant que

ou bien

Do Until [Condition]
...
Loop

Until = Jusqu'à ce que

Condition en fin de boucle (au moins un passage dans la boucle) :

Do
...
Loop While [Condition]

ou bien

Do
...
Loop Until [Condition]

ou bien même

Do
...
If [Condition] then Exit Do
...
Loop

 

[tweedi]

Re : while / wend: macro ne répète pas l'opération: pb fonctionnement boucle

Re tweedi, Bonjour Dranreb. @ tweedi, Ta solution fonctionne en remplaçant

While Cells(num_row)  ""

par

While Cells(num_row, 1)  ""

Tu as oublié le numéro de colonne... Cordialement

Merci à tous pour vos messages et explications très intéressantes.

Cependant la correction de ma version avec l'ajout de la colonne n'améliore pas le résultat car la macro s'arrête à la fusion des lignes du premier client. quelqu'un sait pourquoi ?

La deuxième méthode proposée avec for / if fonctionne parfaitement.

Merci encore.

Tweedi