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

Résolu

micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention -
micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention - 10 déc. 2014 à 08:12

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

A voir également:

Je ne réussis pas à faire une boucle , elle bloque sur la premiè
Code puk bloqué - Guide
Téléphone bloqué code verrouillage - Guide
Pavé tactile bloqué - Guide
Compte gmail bloqué - Guide
Si je bloque quelqu'un sur messenger le voit il - Guide

6 réponses

Réponse 1 / 6

NHenry Messages postés 15219 Date d'inscription Statut Modérateur Dernière intervention 365

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) ?

Réponse 2 / 6

micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention

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

Réponse 3 / 6

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 String
Dim Nbre As Integer, Lig As Integer, Cptr As Integer
Dim Concat As String

'fige le défilement de l'écran=rapidité, confort visuel
Application.ScreenUpdating = False
Nchrono = "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
    Next

End Sub

Michel

Réponse 4 / 6

micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention

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

Réponse 6 / 6

micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Accéder à une conversation Snapchat après blocage

la personne qui me bloque peut elle voir ma page FB ?

Retrouver la conversation d’une personne bloquée sur snap ?

quel difference entre supprimer et bloquer un contact

Votre réponse

Discussions similaires