XL 2016 Macro pour isoler des cellules en fonction d'une donnée commune.

[A1B2C3]

Bonjour,

Je souhaite à partir d'une base de données déjà triée par la colonne A disposer d'une macro qui marque une ligne de séparation quand la condition en colonne A n'est plus la même d'une ligne à l'autre.

Merci pour votre aide,

A1B2C3

 

[A1B2C3]

Et idem si je voulais fusionner toutes les cellules de la colonnes D en fonction de la marque de voiture svp?

 

[Staple1600]

Bonsoir

Pas besoin de macro (pour l'ajout de bordure)
Une MFC peut suffire
(je viens de le tester)
Avec une formule de ce type
=$A1<>$A2

 

[Staple1600]

Re

Voici mon test

 

[A1B2C3]

Oui! je suis stupide, j'avais même pas pensé à cette solution là...
En revanche pour fusionner des cellules de la colonne D en fonction de la colonne A, là, à part une macro, je ne vois pas. Et il faudrait en plus que ça se mette à jour si on change les données de la colonne A

 

[Staple1600]

Re

Je n'aime pas les cellules (à cause des prisons)
Je n'aime pas la fusion (à cause du nucléaire)
Donc je n'aime pas fusionner des cellules.

Par contre, j'aime bien les TCD

 

[Staple1600]

Re

Voici mon TCD de test

 

[A1B2C3]

En fait ça ne marche pas vraiment dans l'utilisation que je veux en faire car je voudrais fusionner les cellules colonne D Peugeot par exemple, pour ensuite rentrer un commentaire écrit dedans, donc je veux que ca s'intègre dans la base de données. On peut imaginer une colonne D qui s'appelerait "commentaires pour chaque constructeur" avec une grande case Peugeot, Renault, Citröen dans laquelle on pourrait écrire librement

 

[Staple1600]

Re

Fais ce que tu veux
Moi, je suis pour d'abord employer les fonctions natives d'Excel.
Je n'utilise le VBA qu'en dernier recours
(où les nuits de pleine lune et les mois en bre )

 

[Staple1600]

Re

Pour infos
La colonne D est vide sur ta copie d'écran.
C'est la colonne A qui contient les marques.

 

[A1B2C3]

On est en DécemBRE non?

 

[A1B2C3]

Oui l'idée est de fusionner des cellules vides de la colonne D pour créer une grand case vide sur les lignes Peugeot... et pouvoir après écrire un commentaire à l'intérieur

 

[soan]

Bonsoir,

Je n'utilise le VBA qu'en dernier recours
(où les nuits de pleine lune et les mois en bre )

car les nuits de pleine lune, Staple se change en lycanthrope !
(c'est plus facile de faire de la programmation VBA quand on est un loup-garou)

soan

 

[Staple1600]

Re

=>A1B2C3
T'as de la chance
Je suis tout confiné
J'ai donc du temps à perdre

Sub Fusionner_COL_A()
With Application
    .DisplayAlerts = 0: .ScreenUpdating = 0
    Set p = Range(Cells(1), Cells(Rows.Count, 1).End(3))
vBis:
        For Each c In p
            If c.Value = c.Offset(1, 0).Value And Not IsEmpty(c) Then
                Range(c, c.Offset(1, 0)).Merge
                c.VerticalAlignment = -4108
                GoTo vBis
            End If
        Next
    .DisplayAlerts = -1: .ScreenUpdating = -1
End With
End Sub

NB: macro retrouvée dans l'armoire au fond du couloir, dans le tiroir : "macros à oublier"

 

[A1B2C3]

Ahah ! Ouf ça s'est joué à 1j!