Discussion :

[JambonBlanc01]

Bonjour à tous,

Je maîtrise un minimum les macros (en fait, j’arrive à jouer avec l’Enregistreur, mais pas à coder de A à Z), mais je bloque sur la problématique suivante.
J’ai un fichier comportant 3 colonnes, avec des valeurs en double dans chacune des colonnes.
Je voudrais une macro pour fusionner automatiquement ces valeurs en double.

J’ai déjà récupéré un bout de code, mais j’ai une erreur d’exécution et je suis incapable de comprendre pourquoi (cd. fichier joint).

Une âme généreuse saurait-elle corriger le problème et m’expliquer brièvement le pourquoi de l’erreur ?

Un grand merci par avance…

[Marc-L]

Bonjour,

que veut dire concrètement, vis à vis de la feuille de calcul d'Excel, fusionner automatiquement ces valeurs en double ?

[JambonBlanc01]

Bonjour,

j'ai mis à jour le fichier Excel dans mon premier mail pour une meilleure compréhension (avec mon tableau source et cible.

Pour faire simple, j'ai des données du type :
A x 1
B x 2
C x 3
C y 4
C y 4
D y 4

Je voudrais que la macro fusionne les doublons (pour n'avoir plus qu'un C dans la 1ère colonne, qu'un x et qu'un y dans la 2ème colonne, qu'un 4 dans la troisième colonne).
PS : je n'arrive pas à représenter ici mon tableau cible, mes espaces blancs sont supprimés lorsque j'enregistre mon message sur le forum...

J'espère que c'est plus clair comme cela...

[Marc-L]

Entre le x et le y dans la deuxième colonne, quel séparateur, un espace ? Ou une ligne par élément de la deuxième colonne …

Plus clair avec un tableau de départ et un tableau d'arrivée ...

Sinon faire une recherche sur dictionnaire ou l'objet Dictionnary évitant les doublons …

[JambonBlanc01]

Marc,

Le tableau de départ et le tableau d'arrivée sont dans la feuille Excel attachée dans mon 1er message, tout comme le bout de code que j'ai utilisé mais qui plante à un moment.

Dedans, tu trouveras tous les détails nécessaires (j'espère) pour solutionner le problème.

[Marc-L]

D'où je suis, je ne peux télécharger … A d'autres endroits sur des machines sensibles, c'est une interdiction hors contexte de travail.

D'autres intervenants de ce forum, dans le même souci évident de sécurité, ne veulent pas ouvrir de pièce jointe …

Et souvent en les ouvrant, ce n'est pas forcément clair !

Donc une démonstration à suivre dont tu auras le loisir d'adapter à tes besoins !

[mercatog]

Si les données sont triées au préalable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Fusionner()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Feuil1
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
        Fusion .Range("A" & i)
        Fusion .Range("B" & i)
        Fusion .Range("C" & i)
    Next i
    .Range("A2:C" & LastLig).VerticalAlignment = xlCenter
End With
End Sub
 
 
Private Sub Fusion(ByVal c As Range)
 
If c.Value = c.Offset(-1, 0).Value And c.Value <> "" Then
    c.MergeArea.ClearContents
    c.Offset(-1, 0).Resize(2, 1).Merge
End If
End Sub

[Marc-L]

Bien vu, simple et efficace as usual ! Effectivement si les données sont triées, pas besoin de dictionnaire …

[JambonBlanc01]

mercatog, je te dois une fière chandelle

Marc-L, merci également pour ton aide et tes conseils, je retiendrai pour la prochaine fois d'essayer d'expliquer le plus clairement possible ma problématique sur le forum sans pièce-jointe

Bonne journée à vous !