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!