Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Coller dans Word les références d'une plage

Coller dans Word les références d'une plage

5 réponses
Avatar
AB
Salut à tous,

La macro ci-après (merci à Isabelle !) me permet, à partir d'Excel, je
coller dans Word, au point d'insertion, la référence de la cellule active :

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

Est-il possible de transformer cette macro de façon à coller dans Word la
référence de chaque cellule de la PLAGE active ?
En d'autres termes, je voudrais, si je sélectionne A1 à B3 dans Excel,
obtenir par collage dans Word un tableau qui contiendrait les références
A1, A2, A3
B1, B2, B3

Possible ?
AB
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
Bonsoir AB,
si j'ai tout compris de ce que tu veux et que la macro d' Isa suppose que
Word est déjà ouvert:

'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
col As Range, c As Range

For Each col In Selection.Columns
For Each c In col.Cells
Adresse = Adresse & c.Address
Next c
Adresse = Adresse & Chr(13)
Next col

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

'***
'lSteph
"AB" a écrit dans le message de news:

Salut à tous,

La macro ci-après (merci à Isabelle !) me permet, à partir d'Excel, je
coller dans Word, au point d'insertion, la référence de la cellule active
:

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

Est-il possible de transformer cette macro de façon à coller dans Word la
référence de chaque cellule de la PLAGE active ?
En d'autres termes, je voudrais, si je sélectionne A1 à B3 dans Excel,
obtenir par collage dans Word un tableau qui contiendrait les références
A1, A2, A3
B1, B2, B3

Possible ?
AB



Avatar
AB
Bonsoir Steph,

Oui, tu as parfaitement compris, et je te remercie de ton aide. Mais je me
suis très mal exprimé, et je te prie de m'en excuser.
Si je sélectionne A1 à B3 dans Excel, je voudrais obtenir :
A1 B1 C1
A2 B2 C2
A3 B3 C3

Toujours possible ?
AB


"LSteph" a écrit dans le message de news:
%23S0l$
Bonsoir AB,
si j'ai tout compris de ce que tu veux et que la macro d' Isa suppose que
Word est déjà ouvert:

'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
col As Range, c As Range

For Each col In Selection.Columns
For Each c In col.Cells
Adresse = Adresse & c.Address
Next c
Adresse = Adresse & Chr(13)
Next col

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

'***
'lSteph
"AB" a écrit dans le message de news:

Salut à tous,

La macro ci-après (merci à Isabelle !) me permet, à partir d'Excel, je
coller dans Word, au point d'insertion, la référence de la cellule active
:

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

Est-il possible de transformer cette macro de façon à coller dans Word la
référence de chaque cellule de la PLAGE active ?
En d'autres termes, je voudrais, si je sélectionne A1 à B3 dans Excel,
obtenir par collage dans Word un tableau qui contiendrait les références
A1, A2, A3
B1, B2, B3

Possible ?
AB







Avatar
LSteph
Re,
Comme ceci

'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
rw As Range, c As Range

For Each rw In Selection.Rows
For Each c In rw.Cells
Adresse = Adresse & c.Address
Next c
Adresse = Adresse & Chr(13)
Next rw

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub
'***
'lSteph



"AB" a écrit dans le message de news:

Bonsoir Steph,

Oui, tu as parfaitement compris, et je te remercie de ton aide. Mais je me
suis très mal exprimé, et je te prie de m'en excuser.
Si je sélectionne A1 à B3 dans Excel, je voudrais obtenir :
A1 B1 C1
A2 B2 C2
A3 B3 C3

Toujours possible ?
AB


"LSteph" a écrit dans le message de news:
%23S0l$
Bonsoir AB,
si j'ai tout compris de ce que tu veux et que la macro d' Isa suppose
que Word est déjà ouvert:

'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
col As Range, c As Range

For Each col In Selection.Columns
For Each c In col.Cells
Adresse = Adresse & c.Address
Next c
Adresse = Adresse & Chr(13)
Next col

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

'***
'lSteph
"AB" a écrit dans le message de news:

Salut à tous,

La macro ci-après (merci à Isabelle !) me permet, à partir d'Excel, je
coller dans Word, au point d'insertion, la référence de la cellule
active :

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

Est-il possible de transformer cette macro de façon à coller dans Word
la référence de chaque cellule de la PLAGE active ?
En d'autres termes, je voudrais, si je sélectionne A1 à B3 dans Excel,
obtenir par collage dans Word un tableau qui contiendrait les références
A1, A2, A3
B1, B2, B3

Possible ?
AB











Avatar
LSteph
ou mieux
'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
rw As Range, c As Range

For Each rw In Selection.Rows
For Each c In rw.Cells
Adresse = Adresse & c.Address & " "
Next c
Adresse = Adresse & Chr(13)
Next rw

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub
'***
'lSteph

"AB" a écrit dans le message de news:

Bonsoir Steph,

Oui, tu as parfaitement compris, et je te remercie de ton aide. Mais je me
suis très mal exprimé, et je te prie de m'en excuser.
Si je sélectionne A1 à B3 dans Excel, je voudrais obtenir :
A1 B1 C1
A2 B2 C2
A3 B3 C3

Toujours possible ?
AB


"LSteph" a écrit dans le message de news:
%23S0l$
Bonsoir AB,
si j'ai tout compris de ce que tu veux et que la macro d' Isa suppose
que Word est déjà ouvert:

'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
col As Range, c As Range

For Each col In Selection.Columns
For Each c In col.Cells
Adresse = Adresse & c.Address
Next c
Adresse = Adresse & Chr(13)
Next col

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

'***
'lSteph
"AB" a écrit dans le message de news:

Salut à tous,

La macro ci-après (merci à Isabelle !) me permet, à partir d'Excel, je
coller dans Word, au point d'insertion, la référence de la cellule
active :

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

Est-il possible de transformer cette macro de façon à coller dans Word
la référence de chaque cellule de la PLAGE active ?
En d'autres termes, je voudrais, si je sélectionne A1 à B3 dans Excel,
obtenir par collage dans Word un tableau qui contiendrait les références
A1, A2, A3
B1, B2, B3

Possible ?
AB











Avatar
AB
Excellent !!!
Merci infiniment. La 2è version est effectivement plus pratique : je peux
transformer le résultat en un tableau Word en 2 coups de cuillère à pot.
Merci encore.
Bon week end (froid à Marseille, mais bon...)
AB

"LSteph" a écrit dans le message de news:
%23AS%
ou mieux
'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
rw As Range, c As Range

For Each rw In Selection.Rows
For Each c In rw.Cells
Adresse = Adresse & c.Address & " "
Next c
Adresse = Adresse & Chr(13)
Next rw

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub
'***
'lSteph

"AB" a écrit dans le message de news:

Bonsoir Steph,

Oui, tu as parfaitement compris, et je te remercie de ton aide. Mais je
me suis très mal exprimé, et je te prie de m'en excuser.
Si je sélectionne A1 à B3 dans Excel, je voudrais obtenir :
A1 B1 C1
A2 B2 C2
A3 B3 C3

Toujours possible ?
AB


"LSteph" a écrit dans le message de news:
%23S0l$
Bonsoir AB,
si j'ai tout compris de ce que tu veux et que la macro d' Isa suppose
que Word est déjà ouvert:

'***
Sub RenseignerWord()
Dim WW As Object, Adresse As String, _
col As Range, c As Range

For Each col In Selection.Columns
For Each c In col.Cells
Adresse = Adresse & c.Address
Next c
Adresse = Adresse & Chr(13)
Next col

Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

'***
'lSteph
"AB" a écrit dans le message de news:

Salut à tous,

La macro ci-après (merci à Isabelle !) me permet, à partir d'Excel, je
coller dans Word, au point d'insertion, la référence de la cellule
active :

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
Application.ActivateMicrosoftApp xlMicrosoftWord
'AppActivate "Microsoft Word"
End Sub

Est-il possible de transformer cette macro de façon à coller dans Word
la référence de chaque cellule de la PLAGE active ?
En d'autres termes, je voudrais, si je sélectionne A1 à B3 dans Excel,
obtenir par collage dans Word un tableau qui contiendrait les
références
A1, A2, A3
B1, B2, B3

Possible ?
AB