Excel VBA listbox vers signets Word

Bonjour à tous,

je recherche un peu d'aide pour mon projet...

J'ai réalisé (à partir de tutos et d'aide ici) un VBA qui me permet de trier et faire des recherches depuis un Google sheet, et ça fonctionne très bien.

Voila maintenant, j'aimerai que en double cliquant sur une des lignes de la Listbox, le contenu des colonnes arrive dans un document Word dans lequel j'ai placé des signets.

Mon problème est que ce n'est pas le contenu de la cellule qui est copié mais la cellule elle même avec sa couleur de fond, ce qui décale tout mon document(voir photo)

Et que ce qui est copié n'est pas le contenu de la ligne sur laquelle j'ai double cliqué mais toujours la première ligne (je sais que c'est à cause du 2 dans (cells (2,"E"......) mais je ne sais pas par quoi il faut le remplacer.

Merci d'avance

Fabrice

Voici le code pour le double clic:

Code:

---

1 2 3 4 5

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)   Call CreationCalqueWord   End Sub

---

et le code du module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Option Explicit   Sub CreationCalqueWord()   Dim wdapp As Word.Application   Set wdapp = New Word.Application   With wdapp .Visible = True .Activate .Documents.Add "C:\Users\Fabrice\Desktop\Dossier Temp VBA Pret\Test VBA avec word signets\Calque Word.dotx"   Cells(2, "E").Copy .Selection.GoTo what:=-1, Name:="Nom" .Selection.Paste   Cells(2, "F").Copy .Selection.GoTo what:=-1, Name:="Prénom" .Selection.Paste   Cells(2, "B").Copy .Selection.GoTo what:=-1, Name:="DATETEST" .Selection.Paste   Cells(2, "H").Copy .Selection.GoTo what:=-1, Name:="DDN" .Selection.Paste   Cells(2, "BT").Copy .Selection.GoTo what:=-1, Name:="francais" .Selection.Paste   Cells(2, "EC").Copy .Selection.GoTo what:=-1, Name:="math" .Selection.Paste   Cells(2, "FR").Copy .Selection.GoTo what:=-1, Name:="CG" .Selection.Paste   Cells(2, "FS").Copy .Selection.GoTo what:=-1, Name:="total" .Selection.Paste   End With   End Sub

---

Pièce jointe 615644
Pièce jointe 615645

Bonjour Fabrice,
Si vous travaillez avec des signets, vous pouvez parfaitement copier le tableau complet.
Voir mon billet titré VBA Excel - Transférer des données d'excel vers Word

Le tableau est collé tel qu'il apparaît (Valeur + format) mais les cellules avec la valeur et le format nombre

Merci Philippe,
mais je souhaite partir de mon VBA, et sans inclure de tableau, et copier seulement le contenu des cellules concernées vers leur signet respectif dans Word
Fabrice

Bonjour Fabrice,
En lisant mon billet, vous verrez comment je procède avec les cellules uniques

Mon niveau est vraiment trop faible pour comprendre les subtilités :-(

Bonjour,

Au lieu de

Code:

---

1 2 3

Cells(2, "E").Copy .Selection.GoTo what:=-1, Name:="Nom" .Selection.Paste

---

Ecrivez cette ligne (en supposant que les cellules à copier sont bien dans la feuille active, sinon, il y a lieu de préciser, pour une bonne pratique, la parentalité de l'objet Range)

Code:

---

.ActiveDocument.Bookmarks("Nom").Range.Text = Cells(2, "E").Text

---

et bien entendu, il y a lieu d'effectuer ce remplacement pour toutes les lignes traitant le Copier/Coller

Merci pour votre aide,
je viens de faire la modification, mais j'ai la même chose, toujours la ligne 2 (ce qui me parait normal, puisque le code indique Cells(2, "E").Text, alors que je souhaiterai que cela concerne la ligne que je double clic dans la listbox

Et toujours une couleur de fond derrière le texte collé, je vous joint mon modèle Word et son résultat après avoir double cliqué sur une ligne de la listbox

Pièce jointe 615669

Pièce jointe 615670

Bonjour,
Je ne publie jamais un code sans le tester au préalable

Citation:

---

je viens de faire la modification, mais j'ai la même chose, toujours la ligne 2 (ce qui me parait normal, puisque le code indique Cells(2, "E").Text, alors que je souhaiterai que cela concerne la ligne que je double clic dans la listbox

---

Effectivement, j'ai corrigé votre code concernant la même cellule.

En illustration vous verrez à gauche la cellule E2 qui sera transférée vers le signet nommé RaisonSociale

Pièce jointe 615674

Résultat avec vos lignes de code

Code:

---

1 2 3

Cells(2, "E").Copy .Selection.GoTo what:=-1, Name:="RaisonSociale" .Selection.Paste

---

Pièce jointe 615676


Résultat avec ma ligne de code

Code:

---

.ActiveDocument.Bookmarks("RaisonSociale").Range.Text = Cells(2, "E").Text

---

Pièce jointe 615677

Oui je comprends bien votre tableau, mais, vous partez d'une cellule tableau (donc E2 pour l'exemple) alors que je suis dans une listbox, je souhaite donc que le double clic désigne la bonne ligne de mon tableau
Pardonnez mon ignorance...

Edit:
avec votre code, ça fonctionne très bien, merci beaucoup

Reste plus que le choix de la ligne du double clic

Bonjour,
Il est bien entendu possible de savoir quelle ligne a été sélectionnée en faisant un double click dans un ListBox à condition évidemment d'avoir chargé toute la liste. Il suffit de lire la valeur de la propriété ListIndex du contrôle ListBox en sachant que la première ligne commence à 0 (-1 si rien n'est sélectionné)

Cependant je m'interroge sur la pertinence d'utiliser un UserForm si c'est juste pour faire un double click sur la liste pour envoyer vers Word les informations de la ligne sélectionnée alors qu'utiliser l'événement DoubleClick de l'objet Worksheet (Feuille) pourrait tout aussi bien faire l'affaire.

Le code placé dans le module de la feuille où se trouve le tableau (il suffira de remplacer la ligne en appelant la procédure qui exportera les données vers Word)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Rng As Range Set Rng = Range("T_Population")   If Not Intersect(Rng, Target) Is Nothing Then MsgBox "Vous avez cliqué sur une cellule de la ligne " & Target.Row - Rng.Row + 1 & " du tableau" Cancel = True End If End Sub

---

Illustration de la liste de données (tableau structuré) nommé t_Population et l'affichage du n° de la ligne du tableau après le double click

Pièce jointe 615680

Bonjour et merci Philippe pour toutes ces explications.

Voici pourquoi je ne veux pas partir de l'userforme:

Toutes les données sont récupérées sur un Google Sheet et moi je ne lance que le userform à l'écran (pas de tableau Excel en arrière plan)

Ce Userform, me sert à dégrossir la recherche, d'où une listbox qui peut comporter plusieurs lignes).

Si je vais une recherche par date, par exemple, j'aurai forcément plusieurs réponses (lignes)

Voila pourquoi, le fait de pouvoir double cliquer sur la ligne qui m’intéresse me permettrait me faciliterait le travail et ainsi d'imprimer la feuille de l'individu concerné.

NB: si j'ai bien compris, je dois placer ton dernier code :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Rng As Range Set Rng = Range("T_Population")   If Not Intersect(Rng, Target) Is Nothing Then MsgBox "Vous avez cliqué sur une cellule de la ligne " & Target.Row - Rng.Row + 1 & " du tableau" Cancel = True End If End Sub

---

à la place de celui-ci: ?

Code:

---

1 2 3 4 5

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)   Call CreationCalqueWord   End Sub

---

ou à un autre endroit?

Fabrice

Bonjour,
Je ne comprends plus.
Si je vous lit bien, les données ne sont pas dans une feuille Excel mais dans un Google Sheet ?
Comment faites-vous pour les obtenir dans un UserForm ?

C'est exact, comme je le disais dans le post 1, les données sont récupérées dans un Google Sheet (obtention du lien, puis dans Excel "données à partir du Web"

La, elles sont traitées pour faire des sommes, moyennes et %

Le tout est lié à un Userform qui me permet de trier.

Le fait d'utiliser seulement un userform, permet à un jeune une utilisation rapide, plus simple qu'un tableur et surtout sans risque de modification.

Si vous le souhaitez, je peux vous envoyer par mail ou MP ce VBA qui en plus à l'avantage que de "peser" 400 ko

Fabrice

Bonjour,
Donc vous si vous le chargez depuis le web, vous utilisez Power Query ?
Les données sont donc stockées en mémoire et pas dans une feuille Excel ?

MP envoyé

Bonjour,
Vous avez donc bien une requête effectuée par PowerQuery et les données sont bien chargées dans une feuille Excel

Le problème depuis le début, c'est qu'à la fois le titre de votre sujet, le code que vous publiez m'a induit en erreur quant à votre problème réel qui est "comment obtenir le numéro de la ligne de ma liste de données lorsque je fais un double click dans un ListBox"
Vous auriez dû alors publier le code qui vous permet de charger le ListBox
Tout ce qui concerne Excel vers Word est votre autre problème et pour celui-ci, je vous ai apporté une solution.

Comme je l'avais écrit dans ma réponse, pour obtenir le numéro de la ligne en chargeant la liste complète, le code est simple

Code:

---

1 2 3 4

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) MsgBox "Vous avez sélectionné " & Me.ListBox1.ListIndex + 1 ' Call CreationCalqueWord End Sub

---

Mais comme vous avez mis en place un système de recherche dans votre UserForm, le ListBox n'affiche que les enregistrements résultant de vos critères de recherche donc vous devez revoir votre chargement de données qui devrait contenir le numéro de la ligne de votre liste (il semble qu'il y ait de numéro d'identifiant unique dans la première colonne de votre liste de données mais comme il y a un décalage de 1, je n'affirmerais pas qu'il est unique puisque je n'ai vu que des données partielles

Je vous conseille donc d'ouvrir une nouvelle discussion avec comme question "Comment charger un ListBox en plaçant en colonne 1, le numéro de la ligne de mes données" ensuite lorsque vous aurez résolu ce problème, il suffira de remplacer la constante 2 de la ligne .ActiveDocument.Bookmarks("Nom").Range.Text = Cells(2, "E").Text par le numéro de la ligne que vous aura renvoyé le ListBox

Evitez aussi de mettre autant de sécurité avant que votre code ne soit complètement terminé

Ok je pense avoir compris, merci Philippe

Avec votre code, il identifie bien le numéro de la ligne, que dois je mettre à la place du 2 dans ce cas?

Pièce jointe 615746

Bonjour Fabrice,

Citation:

---

Avec votre code, il identifie bien le numéro de la ligne, que dois je mettre à la place du 2 dans ce cas?

---

Non, si vous relisez ce que j'ai écrit, c'est une ligne de code qui aurait pu servir si vous chargiez la liste complète et sans recherche car à ce moment là, le numéro de la ligne renvoyé par le ListBox coincide avec le numéro de ligne de la table des données;

Comme je vous l'ai suggéré, ouvrez une nouvelle discussion avec une demande en ce sens. Oubliez pour l'instant le reste.

Ok, je fais ça
Merci encore
Fabrice