Je ne réussis pas à faire une boucle , elle bloque sur la premiè Résolu/Fermé

Question

BONSOIR A TOUT LE FORUM.
Je ne réussis pas à faire une boucle , elle bloque sur la première donnée.

Sub AAselecCELetFUSIONautre()
'BLOQUE SUR LE PREMIER
Dim CelleLa As Variant

  For Each CelleLa In Worksheets("Feuil1").Range("A1:A5000").Cells

    Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil1")
    Dim rng As Range: Set rng = sht.Range("A1:A5000")
    Dim nChrono$: nChrono = "M.ou Mme"
 With rng.Find(nChrono)
    Range(.Offset(-2, 0), .Offset(-2, 2)).Select
    Selection.MergeCells = True
    Range(.Offset(-2, 4), .Offset(-2, 7)).Select
    Selection.MergeCells = True
 End With
  Next CelleLa

End Sub

DOSSIER CI-JOINT     https://www.cjoint.com/?DKCwSlVap7m

Merci  de votre aide.
micheleliane

NHenry · Answer

Bonsoir,

As-tu mis un point d'arrêt (F9) et avancé en pas à pas (F8) et regardé les valeurs des éléments (Shift+F9) ?

micheleliane · Answer

Bonjour  NHenry
Merci de ta réponse, mais je suis faible en VBA.
J'avais fait le pas à pas la macro tourne normalement 
jusqu'au-bout et sur le travail reste bloquée.
Je connaissais pas (Shift+F9) cela me dit pas d'expression espionne sélectionnée.
Merci encore de t'on aide.
micheleliane

michel_m · Answer

Bonjour

Normal car ta ligne 
For Each CelleLa In Worksheets("Feuil1").Range("A1:A5000").Cells est placée car, Après, tu réinitialises la plage à A1:A5000, donc on repart sur A1
D'autre part évite au maximum les cellules fusionnées ( véritable poison pour la suite) mais opte plutôt pour "centré sur plusieurs colonnes"
dans le code ci dessous, on ne boucle que sur le nombre de Nchrono 


Sub aménager_tableau()Dim Nchrono As StringDim Nbre As Integer, Lig As Integer, Cptr As IntegerDim Concat As String'fige le défilement de l'écran=rapidité, confort visuelApplication.ScreenUpdating = FalseNchrono = "M.ou Mme "Sheets(1).Activate    Nbre = Application.CountIf(Columns("A"), Nchrono) 'compte le nombre  de nchrono    Lig = 1    'on ne boucle que sur le nombre de Nchrono    For Cptr = 1 To Nbre        ' lig= 2 lignes au dessus de nchrono        Lig = Columns("A").Find(Nchrono, Cells(Lig, "A"), xlValues).Row - 2        'centre le texte  "M. Xyz" sur colonnes A et B        Range(Cells(Lig, "A"), Cells(Lig, "B")).HorizontalAlignment = xlCenterAcrossSelection        'inscrit la concaténation col D & E et centre sur colonnes D à G        Concat = Cells(Lig, "D") & " " & Cells(Lig, "E")        Range(Cells(Lig, "D"), Cells(Lig, "E")).ClearContents        Cells(Lig, "D") = Concat        Range(Cells(Lig, "D"), Cells(Lig, "G")).HorizontalAlignment = xlCenterAcrossSelection         Lig = Lig + 2    NextEnd Sub
 
 
 Michel

micheleliane · Answer

re Bonjour NHenry 

Merci de ta réponse avec explication très rapide et surtout efficace.
J'avais vue "centré sur plusieurs colonnes" mais pas réussi à mettre en application,
Je vais essayer de la comprendre, les explications sont bien précise.
J'espère ne pas avoir besoin de vos connaissances pour cette année
aussi je vous souhaite ainsi qu'a tout le forum des bonnes fêtes.
MERCI et encore MERCI NHenry
micheleliane

micheleliane · Answer

Bonsoir à tous et surtout à MICHEL_M  pour le travail et les explications de macro
Mil et mil excusent  MICHEL_M car c'est bien votre macro que j'ai utilisée je viens d'ouvrir
mon MAIL à l'instant et suis sidérer de ne pas avoir remarqué que le poste ne  venais pas
de NHenry.
Depuis j'ai travaillé avec votre macro et modifié certain de mes dossiers.
 MICHEL_M  VEUILLEZ ACCEPTER MES EXCUSES LES PLUS SINCÈRES .
Remerciement à tous pour l'aide que vous nous apportez .
micheleliane

micheleliane · Answer

Bonsoir à tous et surtout à MICHEL_M pour le travail et les explications de macro 
Mille et mille excuses MICHEL_M car c'est bien votre macro que j'ai utilisée je viens d'ouvrir mon MAIL à l'instant et suis sidérer de ne pas avoir remarqué que le poste ne venais pas de NHenry. 
Depuis j'ai travaillé avec votre macro et modifié certain de mes dossiers. 
 MICHEL_M VEUILLEZ ACCEPTER MES EXCUSES LES PLUS SINCÈRES . 
Remerciement à tous pour l'aide que vous nous apportez . 
micheleliane
Encore MERCI MICHEL_M et mille excuses et MERCI à NHENRY et tous les personnes qui aident.
Commenter la réponse de micheleliane - Modifier

Je ne réussis pas à faire une boucle , elle bloque sur la premiè

6 réponses

Discussions similaires