Fusionner cellules selon contenu

[mikael2235]

Bonjour à tous,

Je souhaite faire une macro, qui vérifie dans ma colonne A les dates par rapport à la date du jour, puis fusionne les cases où la date est identique.

Exemple :

Ma macro doit comparer la date de la cellule A1 avec la date du jour, si elle est identique alors elle passe à la cellule A2, … , Si elle rencontre une date différente (ex : A10, alors elle sélectionne la cellule juste au dessus dans la même colonne (donc A9), puis fusionne de A9 jusqu'à A1.

J’ai fais ce code mais j’ai toujours une erreur :

Sub Fusion_date()

Range("A1").Select

Dim n As Byte

Do While Cells(n, 1) = Date

   ActiveCell.Offset(1, 0).Select
 
Loop

Range(Cells(n - 1, 1), Cells(1, 1)).Select

With Selection
.MergeCells = True
End With

End Sub

La valeur de mon « n » reste toujours à 0, je ne comprends pas !

Merci

 

[Robert]

Re : Fusionner cellules selon contenu

Bonjour Mikael, bonjour le forum,

Pas de réponse de ta part sur ce fil. Ça donne pas envie de continuer de t'aider...

 

[mikael2235]

Re : Fusionner cellules selon contenu

Bonjour Mikael, bonjour le forum,

Pas de réponse de ta part sur ce fil. Ça donne pas envie de continuer de t'aider...

Excuse moi pour la réponse, je viens de le faire. 😱

 

[Robert]

Re : Fusionner cellules selon contenu

Bonjour Mikael, bonjour le forum,

peut-être comme ça :

Sub Fusion_date()

Range("A1").Select

Dim n As Byte

Do While Cells(n, 1) = Date
   [COLOR=red]n=n+1[/COLOR]
   'ActiveCell.Offset(1, 0).Select
 
Loop

Range(Cells(n - 1, 1), Cells(1, 1)).Select

With Selection
.MergeCells = True
End With

End Sub

 

[mikael2235]

Re : Fusionner cellules selon contenu

Bonjour Mikael, bonjour le forum,

peut-être comme ça :

Sub Fusion_date()

Range("A1").Select

Dim n As Byte

[COLOR="Black"]Do While Cells(n, 1) = Date[/COLOR]
     n=n+1
   ActiveCell.Offset(1, 0).Select
 
Loop

Range(Cells(n - 1, 1), Cells(1, 1)).Select

With Selection
.MergeCells = True
End With

End Sub

Il me met Erreur d'éxécution 1004 : Erreur définie par l'application ou par l'objet à la ligne en gras.
En fait, la première fois qu'il execute ma boucle, à la ligne Do While, il me trouve la valeur de mon n=0, donc renvoie une erreur parce qu'il ne peut pas y avoir de ligne 0. Je pense qu'il faudrait lui définir le n à 1 pour la première éxécution, si c'est possible ?

 

[Robert]

Re : Fusionner cellules selon contenu

Bonjour Mikael, bonjour le forum,

Oui en initialisant avec n = 1, avant le Do While...

Sinon je n'ai ni testé ni pris le temps de bien lire ton code mais j'ai l'impression que tu vas avoir un bug en voulant fussionner plusieurs cellules contenant chacunes du texte...

 

[mikael2235]

Re : Fusionner cellules selon contenu

Merci Robert, initialiser le n à 1 avant le Do While a résolu mon pb.

Pour la fusion des cellules, il me met un message d'alerte disant qu'il va garder la valeur de la cellule supérieur.

Il me semble qu'on peut désactiver les messages d'alerte ?

 

[mikael2235]

Re : Fusionner cellules selon contenu

J'ai trouvé :

Application.DisplayAlerts = False

Tout marche.

Merci encore pour l'aide