Discussion :

[heloisebn]

Bonjour à tous,

J'en appelle encore à votre aide
J'ai une liste de données que j'ai par la suite besoin de retraiter dans un calendrier. Afin d'en faciliter la lecture et éviter les répétitions, j'aimerais que lorsque l'évènement et la date sont les mêmes sur plusieurs lignes, il ne reste plus qu'une seule ligne avec le nom de l'évnement, la date, et que les noms d'hôtels se concatènent.
Par exemple, on aurait "Montparnasse / Etoile" - "Salon" - "16/03/2019" au lieu de deux lignes.



J'ai trouvé la macro suivante sur le forum qui me permet d'effacer les données lorsque ce sont les mêmes. Je voulais l'adapter pour ajouter une deuxième condition (que la colonne C soit identique mais aussi la E) seulement je suis bloquée puisqu'il m'indique une erreur d'exécution 6 "dépassement de capacité" sur la ligne "For i = LigneFin To LigneDebut Step -1".

Code :

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

1
2
3
4
5
6
7
8
9
Sub tesssst()
Dim c As Range, Ref As Range, LigneDebut As Long, LigneFin As Long, i As Integer
    Set Ref = Intersect(ActiveSheet.UsedRange, Range("C:C"))
    LigneDebut = Ref.Row
    LigneFin = LigneDebut + Ref.Rows.Count - 1
        For i = LigneFin To LigneDebut Step -1
            If Range("C" & i) = Range("C" & i - 1) Then Range("C" & i).ClearContents
        Next
End Sub

Savez-vous d'où peut provenir l'erreur ?
Après deux heures dessus, je commence à désespérer et je ne trouve pas d'autre moyen de commencer ma macro…

Merci de votre aide !!

[RyuAutodidacte]

Bonjour

Je pense que tu pourrais faire cela simplement via le filtres avancés sur les colonnes concernées qui plus est, permet par la même occasion d’effacer les doublons.
https://philippetulliez.developpez.c...dvancedfilter/

[heloisebn]

Bonjour, merci de ta réponse

J'y ai pensé, simplement de ce que j'ai compris il faut mettre les critères manuellement pour que cela fonctionne, or j'ai des centaines d'évènements et de dates à traiter donc je voulais l'automatiser.
J'ai cherché mais je ne vois pas comment faire cela avec les filtres avancés, il me semble qu'il est nécessaire de chercher donnée par donnée pour filtrer ?

[RyuAutodidacte]

En effet cela peut être des critères, mais dans ton cas se sera à mon avis plutôt par formule …
Penche toi de ce côté là.
Il y a des exemples dans le lien.
Sinon il y a aussi le site de Philippe Tulliez qui donne différentes façons d’utilisation des filtres avancés. A voir absolument

[Philippe Tulliez]

Bonjour,

J'y ai pensé, simplement de ce que j'ai compris il faut mettre les critères manuellement pour que cela fonctionne, or j'ai des centaines d'évènements et de dates à traiter donc je voulais l'automatiser.

Une zone des critères peut se résumer à deux cellules si tu utilises un critère calculé et donc tu peux parfaitement le faire par VBA et créer dynamiquement cette zone des critères que tu places dans deux cellules quelconques du classeur et que tu effaces ensuite dès que l'opération est terminée. Personnellement je place cette zone des critères dynamiques en me déplacant de deux colonnes à droite de la zone source, pour les cas ou il n'y a qu'une liste de données par feuille.

[heloisebn]

Merci Ryu & Philippe de vos réponses

Je ne suis pas sûre de bien visualiser comment cela pourrait fonctionner dans mon cas, sachant que les critères vont être amenés à changer constamment.
Est-ce qu'en recopiant ces critères par simple renvoi à la cellule cela fonctionnerait ?
Et je ne comprends pas l'utilisation de VBA dans le cas de l'utilisation de filtres ?

Désolée d'être un peu lente à la compréhension, je suis très très débutante sur VBA

[Philippe Tulliez]

Bonjour,
Je viens de lire ta question initiale.
Le filtre avancé n'a pas pour vocation de faire de la concaténation.
En revanche, tu peux l'utiliser pour exporter une liste sans les doublons donc en plusieurs étapes avec le VBA

• Créer une liste sans doublons avec comme étiquette de colonne Date
• Ensuite à l'aide d'une boucle sur la liste ainsi exportée, chercher tous les éléments concernant cette date (à l'aide de la méthode Find par exemple) et effectuer la concaténation

[heloisebn]

Je vais regarder tout ça en espérant que ça marche, merci beaucoup

Sans vouloir abuser, est-ce que tu saurais d'où peut venir une erreur d'exécution 1004 "La méthode Range de l'objet Global a échoué" dans ma macro ? Impossible d'en trouver la source, j'ai essayé de rajouter des activesheet mais rien n'y fait

[Philippe Tulliez]

Bonjour,

est-ce que tu saurais d'où peut venir une erreur d'exécution 1004 "La méthode Range de l'objet Global a échoué" dans ma macro ? Impossible d'en trouver la source

Sans savoir sur quelle ligne a lieu l'erreur (celle qui est soulignée en jaune par l'éditeur), il est difficile de t'aider

[heloisebn]

Oups, en effet !

Code :

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

 If Range("E" & i) = Range("E" & i - 1) Then Range("E" & i).ClearContents

[Philippe Tulliez]

Bonjour,
A la première lecture, je soupçonne que la variable i soit égale à 1 donc i-1 donnera 0 et E0 n'existe pas

Petite remarque. Il est important pour éviter les problèmes de préciser la parentalité de tes objets. Cellule a comme parent la feuille qui est elle même a comme parent le classeur
Exemple

Code :

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

ThisWorkbook.Worksheets("maFeuille").Range("A1").Value = "Toto"

au lieu de

Code :

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

Range("A1").Value = "Toto"

[heloisebn]

Ah génial !
En effet, ça marche en rajoutant la parentalité et un exit lorsque l'on atteint la première cellule.
Est-ce que du coup je peux rajouter dans cette macro un AND avec le FOR ou dois-je revoir entièrement la syntaxe ?
C'est à dire que je dirais "For i = LigneFin To LigneDebut Step -1" et "b = LigneFin2 to LigneDebut2", afin d'ajouter une condition pour activer l'effacement des données.

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
Sub test()
Dim c As Range, Ref As Range, LigneDebut As Long, LigneFin As Long, i As Integer, Ref2 As Range, LigneDebut2 As Long, LigneFin2 As Long, b As Integer
    Set Ref = Intersect(ActiveSheet.UsedRange, Range("E:E"))
    Set Ref2 = Intersect(ActiveSheet.UsedRange, Range("C:C"))
    LigneDebut = Ref.Row
    LigneDebut2 = Ref2.Row
    LigneFin = Range("E:E").End(xlDown).Row
    LigneFin2 = Range("C:C").End(xlDown).Row
        For i = LigneFin To LigneDebut Step -1 and b = LigneFin2 to lignedebut2
            If ThisWorkbook.Worksheets("Liste").Range("E" & i) = ThisWorkbook.Worksheets("Liste").Range("E" & i - 1) And ThisWorkbook.Worksheets("Liste").Range("C" & b) = ThisWorkbook.Worksheets("Liste").Range("C" & b - 1) Then ThisWorkbook.Worksheets("Liste").Range("E" & i).ClearContents 'Pour effacer le contenu en E si les deux conditions sont validées
            If ThisWorkbook.Worksheets("Liste").Range("E" & i) = ThisWorkbook.Worksheets("Liste").Range("E" & i - 1) And ThisWorkbook.Worksheets("Liste").Range("C" & b) = ThisWorkbook.Worksheets("Liste").Range("C" & b - 1) Then ThisWorkbook.Worksheets("Liste").Range("C" & b).ClearContents 'Pour effacer le contenu en C si les deux conditions sont validées
            If ThisWorkbook.Worksheets("Liste").Range("E" & i) = ActiveCell Then 'Pour sortir de la boucle quand on arrive sur la première ligne
            Exit For
            End If
        Next
End Sub

Je vois bien que c'est mal écrit puisque VBA ne l'accepte pas mais je ne trouve pas comment expliciter ma deuxième variable (b)...

[RyuAutodidacte]

En fait il y a beaucoup plus simple :

code à adapter :

Code :

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

1
2
3
4
5
6
7
8
Sub SuppDoublons()
 
    With Sheets("Feuil1") ' mettre le nom de la feuille
    DL = .Cells(.Rows.Count, 1).End(xlUp).Row ' Dernière ligne non vide (mettre le n° de col voulue - ici j'ai mis 1)
        .Range("A1:C" & DL).RemoveDuplicates Columns:=Array(1, 3), Header:=xlYes ' remplacer les les lettre de la plage- remplacer dans l'array les colonnes constituant les doublons
    End With
 
End Sub

Edit : code à prendre juste dans le cas de vrai doublons

[heloisebn]

Le souci c'est que moi je ne veux supprimer que les lignes qui ont en commun les cellules en colonnes C et E, et non toutes les données.



Je pense que c'est plus clair avec l'exemple

[RyuAutodidacte]

As tu modifié le code en conséquence ??

Édit : autant pour moi je vois , que tu as concaténé les hôtels entre eux
Désolé j’avais oublié ce détail important

[RyuAutodidacte]

Pour me faire pardonner d’avoir mal lu,
Je te ferai un code différent dès que j’ai un moment (pas avant ce soir, voir demain matin)

[heloisebn]

J'ai réessayé donc oui en effet il marche bien, j'essayais de modifier le numéro des colonnes mais en fait pas besoin !
Mais du coup je ne saisis pas bien ce que fait l'array puisque j'aurais pensé mettre les numéros de colonne correspondant à C et E qui s'effacent, hors on a ici 1, 3 ?

Merci infiniment pour ton aide et ta patience

[RyuAutodidacte]

C’est un exemple, te laissant le soin d’adaptet le code à ton contexte,
et donc de modifier la plage et les colonnes dans l’Array …

[heloisebn]

Non mais justement, je voulais changer pour avoir Array(3, 5) qui correspond aux numéros de colonnes qui s'effacent (C et E) ; or pour ces mêmes colonnes le bon numéro est bien (1, 3).
C'est pou ça que j'ai du mal à comprendre comment lire l'array. Les numéros correspondent bien aux numéros des colonnes dans lesquelles les cellules existants plusieurs fois doivent s'effacer non ?

[RyuAutodidacte]

Les numéros correspondent bien aux numéros des colonnes dans lesquelles les cellules existants plusieurs fois doivent s'effacer non ?

oui
Tu peux retrouver la fonction native d’excel à faire manuellement qui correspond à supprimer les doublons