Discussion :

[Martin3192]

Bonsoir à tous ou peut être bonne nuit
Une petite question concernant un code VBA :

Code :

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

1
2
3
Sub auto_open()
Sheets("bdd").Columns("A:V").Copy Sheets("tcd1").Columns(1)
End Sub

je voudrais le compléter pour que les doublons soient supprimés après la copie des colonnes A à V dans l'onglet tcd1.

Pouvez vous m'aider svp?
Merci infiniment

[Menhir]

Utilise la méthode RemoveDuplicates appliquée à Sheets("tcd1").Columns("A:V").
Lire ça : https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)

[Martin3192]

Bonjour Menhir et merci du retour
je viens d'essayé mais cela ne fonctionne pas. voici le fichier test Pièce jointe 573330

Pouvez vous m'aider?

Merci d'avance

[BENNASR]

bonjour
vous pouvez toujours utiliser l'enregistreur automatique du macro...il te donne presque la solution
à tester :

Code :

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

1
2
3
4
Sub auto_open()
Sheets("bdd").Columns("A:V").Copy Sheets("tcd1").Columns(1)
Sheets("tcd1").Range("$A$1:$V$11").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

[Menhir]

Pouvez vous m'aider?

Pour ça, il faudrait que tu montres le code que tu as écrit, de préférence encadré de balises CODE.

[Martin3192]

Merci BENNASR et Menhir
cela fonctionne parfaitement
2 autres et dernières questions :
- si la bdd vient à évoluer (ce qui est souvent le cas), les lignes vont augmenter. Est ce que le fait de marquer $V$11 prendra en compte une douxième voire treizième ligne le cas échéant.
- Dans le tableur test1, à l'ouverture du tableur l'onglet bdd se copie dans l'onglet tcd1 et supprime les doublons maintenant les futurs TCD seront donc automatiquement mis à jour (cf code vba du tableur test1). est il possible une fois le tableur ouvert, si la bdd doit être mise à jour par un utilisateur que le même procédé se réalise. (copie colle efface doublons et donc mise à jour des tcd). cela permettrait d'éviter de fermer le tableur et de le réouvrir pour que le code fonctionne (auto open)

Pièce jointe 573346

J'espère avoir été clair dans mes explications

Merci d'avance

[Pierre Fauconnier]

Salut.

[...]Est ce que le fait de marquer $V$11 prendra en compte une douxième voire treizième ligne le cas échéant.[...]

En 2020, on utilise les tableaux structurés. Ces outils ont été créés pour s'adapter aux nouvelles données qui vont immanquablement arriver dans la feuille. L'utilisation des tableaux structurés en VBA va permettre, justement, d'éviter le problème que tu soulèves car tu pourras utiliser les références structurées qui s'adaptent aux changements de ton tableau. En 2020, on ne programme plus Excel comme en 2003, notamment parce que les tableaux structurés apportent une souplesse dans le code qui permet de coder mieux et plus vite.

$V$11 dans le code pose problème, bien sûr. C'est du hard coding et ça ne doit jamais être utilisé dans du code. C'est une très mauvaise façon de procéder.



Pour ce genre de traitement, on fait d'abord un peu de mise en place. On crée à la main le tableau qui recevra les données à dédoublonner, et le code VBA consiste alors à:

• vider ce tableau
• copier l'autre
• dédoublonner

Le fait de travailler avec des tableaux structurés va te permettre de ne pas te soucier du nombre de lignes ni du déplacement éventuel des tableaux, tant dans ton code VBA que pour la gestion du TCD qui, je suppose, viendra ensuite. Si tu appuies un TCD sur un tableau structuré, le TCD tiendra compte des nouvelles lignes sur simple rafraîchissement. Les tableaux structurés existent depuis 13 ans, il serait temps de les utiliser


J'ai créé un tableau dans BDD et je l'ai nommé t_Source. Dans TCD1, j'ai créé un tableau avec les mêmes colonnes (par copier/coller) et je l'ai nommé t_TCD.

Dès lors, le code est le suivant. Comme tu le vois, je l'ai découplé de Auto_Open, car ce code n'a rien à y faire. Il doit être déporté dans une procédure spécifique, car la responsabilité de Auto_Open ne s'arrête peut-être pas à ce traitement. Je t'invite à toujours procéder ainsi dans tes développements (voir ce billet ou celui-ci à ce sujet, ou cette discussion dans laquelle je donne un schéma explicite)

Code :

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

1
2
3
4
5
6
7
8
9
Sub auto_open()
  PrepareTable
End Sub
 
Sub PrepareTable()
  If Not Range("t_TCD").ListObject.DataBodyRange Is Nothing Then Range("t_TCD").ListObject.DataBodyRange.Delete
  Range("t_tcd").Resize(Range("t_source").Rows.Count).Value = Range("t_source").Value
  Range("t_tcd").ListObject.DataBodyRange.RemoveDuplicates 1, xlYes
End Sub

Dès lors, Si tu veux y associer un bouton, il te suffit de placer un bouton de formulaire sur ta feuille et de lui affecter la macro Prepare


Cela dit, quelle est l'utilité de dédoublonner? N'y aurait-il pas un problème en amont?