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

A

A1B2C3

XLDnaute Junior

• 14 Décembre 2020

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #4

Re

Voici mon test

 

Vote positif 0 Vote négatif

A

A1B2C3

XLDnaute Junior

• 14 Décembre 2020

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #6

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 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #7

Re

Voici mon TCD de test 😉

 

Vote positif 0 Vote négatif

A

A1B2C3

XLDnaute Junior

• 14 Décembre 2020

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #10

Re

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

 

Vote positif 0 Vote négatif

A

A1B2C3

XLDnaute Junior

• 14 Décembre 2020

• #11

On est en DécemBRE non?😂

 

Vote positif 0 Vote négatif

A

A1B2C3

XLDnaute Junior

• 14 Décembre 2020

• #12

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 14 Décembre 2020

• #13

Bonsoir,

Staple à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2020

• #14

Re

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

VB:

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"
😉

 

Vote positif 0 Vote négatif

A

A1B2C3

XLDnaute Junior

• 14 Décembre 2020

• #15

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

 

Vote positif 0 Vote négatif