regroupement par valeur colonne

[jmxlinux]

Bonjour a tous les EXCELS 🙂,

je cherche a trouver une solution (c'est mieux en VBA ) pour regrouper les ligne qui contenant la même valeur dans un colonne précis
l'exemple ci joint explique le besoin .

merci

 

[Modeste]

Re : regroupement par valeur colonne

Bonjour jmxlinux,

sans vba, un filtre élaboré donnerait la même chose pour un "statut paiement" à la fois (à condition de nommer la plage A12:K35 de ta feuille1)

Pour info, l'enregistreur de macro donne le code suivant:

Sub FiltreElabo()
    Range("[COLOR="Red"]reglements[/COLOR]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("G11:G12"), CopyToRange:=Range("A15"), Unique:=False
End Sub

reglements est ici, le nom de la plage

Modeste

 

[jmxlinux]

Re : regroupement par valeur colonne

Bonjour Modeste,
j'ai déja essayé les filtres élaborées, mais j'ai pas réussir de faire la même résultat dans le fichier teste.

merci de me attacher votre solution comme pj. 😉

 

[Modeste]

Re : regroupement par valeur colonne

Re-bonjour jmxlinux,

Comme demandé, en pièce jointe, le résultat de filtres élaborés, avec 2-3 petites indications (dont une capture d'écran)
Pour rappel, il faudrait 3 filtres élaborés successifs, si tu as 3 statuts de paiement différents.

A toi de voir,

Modeste

 

[Catrice]

Re : regroupement par valeur colonne

Bonsoir,

Ci-joint une petite macro à tester.

J'a considéré que la colonne B "Date Emission" était fiable.
C à d qu'il y avait une date par fiche (pas de trou).
Contrairement à la colonne A dans laquelle il y a des données non renseignées.

 

[jmxlinux]

Re : regroupement par valeur colonne

Bonsoir,

Ci-joint une petite macro à tester.

J'a considéré que la colonne B "Date Emission" était fiable.
C à d qu'il y avait une date par fiche (pas de trou).
Contrairement à la colonne A dans laquelle il y a des données non renseignées.

Bonsoir Catrice,
toujours tu es le mètre sur mes messages 😛
concernant le remarque que ta fait c'eat pas mechant de trouver des dates doublons et même aussi dans des cellules dans la colonne A qui ne contenant aucun données.
exactement c'est la même résultats que je cherche ,🙂
j'ai une autre question sur le syntaxe vba pour une autre macro:
pour changer la couleur d'une ligne entier
Sub Color()
Range("A1:L1").Select
For Each Cell In Selection
If Left$(Cell.Value, 4) = "condition" Then
Cell.EntireRow.Interior.Color = vbRed
Else
Cell.EntireRow.Interior.Color = vbWhite
End If
Next Cell
End Sub
je cherche a changer la couleur juste de la partie A1 a L1 sur la ligne par exemple
et aussi de fait un border sur cette partie
je remplace EntireRow par quoi ??

j'attends votre réponse

merci a vous Catrice🙂

 

[Catrice]

Re : regroupement par valeur colonne

Bonjour,

Si j'ai bien compris la question :
Sub Color()
For Each X In Range("A1:A" & Range("A65536").End(xlUp).Row)
X.Resize(1, 12).Interior.Color = IIf(Left(X.Value, 4) = "toto", vbRed, vbWhite)
Next X
End Sub

Voir le fichier joint

 

[jmxlinux]

Re : regroupement par valeur colonne

Bonjour,

Si j'ai bien compris la question :
Sub Color()
For Each X In Range("A1:A" & Range("A65536").End(xlUp).Row)
X.Resize(1, 12).Interior.Color = IIf(Left(X.Value, 4) = "toto", vbRed, vbWhite)
Next X
End Sub

Voir le fichier joint

bonjour,
ca marche,
mais comment je peux faire pour entourer cette cellule (1, 12) avec un bordure pour qu'il soit claire 🙄??
merci

 

[Catrice]

Re : regroupement par valeur colonne

Re,

Tu peux essayer ceci :
Sub Color()
For Each X In Range("A1:A" & Range("A65536").End(xlUp).Row)
With X.Resize(1, 12)
If Left(X.Value, 4) = "toto" Then
.Interior.Color = vbRed
.Borders.LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlNone
Else
.Interior.Color = vbWhite
.Borders.LineStyle = xlNone
End If
End With
Next X
End Sub

A tester avec le fichie précédent