Discussion :

[Fabweb]

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 :

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

1
2
3
4
5
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
 Call CreationCalqueWord
 
End Sub

et le code du module :

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
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

[Philippe Tulliez]

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

[Fabweb]

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

[Philippe Tulliez]

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

[Fabweb]

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

[Philippe Tulliez]

Bonjour,

Au lieu de

Code :

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

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 :

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

.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

[Fabweb]

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

[Philippe Tulliez]

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

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



Résultat avec vos lignes de code

Code :

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

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

Résultat avec ma ligne de code

Code :

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

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

[Fabweb]

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

[Philippe Tulliez]

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 :

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

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

[Fabweb]

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 :

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

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 :

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

1
2
3
4
5
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
 Call CreationCalqueWord
 
End Sub

ou à un autre endroit?

Fabrice

[Philippe Tulliez]

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 ?

[Fabweb]

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

[Philippe Tulliez]

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 ?

[Fabweb]

MP envoyé

[Philippe Tulliez]

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 :

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

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é

[Fabweb]

Ok je pense avoir compris, merci Philippe

[Fabweb]

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

[Philippe Tulliez]

Bonjour Fabrice,

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.

[Fabweb]

Ok, je fais ça
Merci encore
Fabrice