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