Discussion :

[Pedro3000]

Bonjour à tous, alors voilà

Je suis tout à fait débutant en VBA donc peut être que ma question sera un peu simpliste.
Pour l'instant, la plupart des problèmes que j'ai rencontrés ont déjà été traités sur ce site, du coup je n'avais pas besoin de m'inscrire mais là, je ne trouve pas..
J'utilise pour l'instant l'enregistreur de macro principalement, qui permet de comprendre assez facilement quelle action correspond à quelle partie du code.

Ce que je cherche à faire :
Je dois extraire des lignes de plusieurs TCD, et les rassembler ensuite en un seul tableau dans une seule feuille. Cependant, certaines lignes de mon tableau sont des doublons, je cherche donc grâce à VBA à supprimer les doublons, action que l'enregistreur me traduit par

ActiveSheet.Range("Tableau1[#Tout]").RemoveDuplicates Columns:=5, Header:= _
xlYes

où la colonne 5 est celle que j'utilise pour repérer les doublons (qui est la référence de ma donnée)

Or dans mon cas, le tableau s'appelle Tableau1, et je voudrais y faire référence sans son nom (qui varie dès qu'on crée un nouveau tableau)

Pour faire référence aux feuilles sans utiliser leur nom, ou bien même leur numéro qui varie quand on ouvre de nouvelles feuilles, j'ai contourné le problème en utilisant les commandes ActiveSheet.Next.Select et ActiveSheet.Previous.Select. Mais dans ce cas, je ne sais pas comment faire référence à ce tableau précisément.

Si vous savez m'aider je vous en serait reconnaissant. J'espère que ma question est claire et je m'excuse si non, c'est difficile de se rendre compte..

[parmi]

Bonjour,

Tu peux prendre exemple là-dessus, en changeant le nom de la feuille selon ce que tu as à faire
Tu pourrais boucler les feuilles à l'aide d'une variable worksheet plutôt que d'y aller avec le nom directement

Code :

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

1
2
3
4
5
    Dim Tablo As ListObject
 
    For Each Tablo In Sheets("Feuil1").ListObjects
        Sheets("Feuil1").Range(Tablo).RemoveDuplicates Columns:=5, Header:=xlYes
    Next

En passant, il y a un forum dédié aux macros...

[joe.levrai]

Bonjour,

si tu n'as qu'un seul tableau sur ta feuille (chose à toujours faire à mon sens, pour ne pas s'emmêler les pinceaux), tu peux aussi passer par la collection ListObjects indicée

Code :

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

1
2
3
4
Sub Toto()
 
' le premier tableau de Feuil1
Sheets("Feuil1").ListObjects(1).DataBodyRange.RemoveDuplicates Columns:=5, Header:=xlYes

on peut même localiser la colonne via son nom plutôt que sa position
exemple si la colonne a pour en-tête "MaColonne"

Code :

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

1
2
3
With Sheets("Feuil1").ListObjects(1)
    .DataBodyRange.RemoveDuplicates Columns:=.ListColumns("MaColonne").Index, Header:=xlYes
End With

[Pedro3000]

Fiou désolé pour ma réponse un peu tardive mais j'étais un peu bloqué, je savais pas trop comment faire référence à la feuille actuelle via un nom entre guillemets

En effet, dans ma macro j'ouvre déjà 4 feuilles depuis des TCD, ensuite j'extrait des données et ensuite je supprime la feuille dans laquelle j'ai copié collé le tableau (les données) du coup mes feuilles changent de noms : la première va s'appeler Feuil1 ensuite Feuil2 donc je ne savais pas quel nom mettre. Du coup j'ai simplement utilisé : ActiveSheet.Name="le nom que je veux", et grâce à ça je peux utiliser vos programmes, qui ceci dit en passant marchent parfaitement.

Donc merci beaucoup joe.levrai et parmi c'est super, et ça va me faire gagner beaucoup de temps chaque semaine c'est top !