Concaténation d'une cellule texte et numérique d'une même ligne en macro
4 réponses
Richard Martin
Je suis dans une cellule, je veux faire une macro qui concatène une cellule
de la même ligne avec une autre de la même ligne. La première est du texte
et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le
contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour
la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il
aurait fallu avoir C5 & D5.
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
Philippe.R
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a() 'MPFE le 22/01/2005 Dim r As Long Dim c As Integer Dim t As String c = ActiveCell.Column r = ActiveCell.Row t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value Cells(r + 16, 1).Value = t Cells(r + 1, c).Select End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news:
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il aurait fallu avoir C5 & D5.
Suggestions s.v.p. (Merci d'avance !)
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a()
'MPFE le 22/01/2005
Dim r As Long
Dim c As Integer
Dim t As String
c = ActiveCell.Column
r = ActiveCell.Row
t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value
Cells(r + 16, 1).Value = t
Cells(r + 1, c).Select
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Richard Martin" <nospam@nospam.com> a écrit dans le message de news:
uEmaVqDAFHA.1296@TK2MSFTNGP10.phx.gbl...
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une
autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4
est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si
j'avais été sur E5, il aurait fallu avoir C5 & D5.
Sub concat_c_d_en_a() 'MPFE le 22/01/2005 Dim r As Long Dim c As Integer Dim t As String c = ActiveCell.Column r = ActiveCell.Row t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value Cells(r + 16, 1).Value = t Cells(r + 1, c).Select End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news:
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il aurait fallu avoir C5 & D5.
Suggestions s.v.p. (Merci d'avance !)
AV
......obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre.
PS : Je vois pas en quoi en quoi le fait que C4 soit du texte et D4 soit numérique est important pour concaténer...? AV
Richard Martin
Merci à tous.
"Philippe.R" a écrit dans le message de news: %
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a() 'MPFE le 22/01/2005 Dim r As Long Dim c As Integer Dim t As String c = ActiveCell.Column r = ActiveCell.Row t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value Cells(r + 16, 1).Value = t Cells(r + 1, c).Select End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news:
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il aurait fallu avoir C5 & D5.
Suggestions s.v.p. (Merci d'avance !)
Merci à tous.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
%236LSwmEAFHA.936@TK2MSFTNGP12.phx.gbl...
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a()
'MPFE le 22/01/2005
Dim r As Long
Dim c As Integer
Dim t As String
c = ActiveCell.Column
r = ActiveCell.Row
t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value
Cells(r + 16, 1).Value = t
Cells(r + 1, c).Select
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Richard Martin" <nospam@nospam.com> a écrit dans le message de news:
uEmaVqDAFHA.1296@TK2MSFTNGP10.phx.gbl...
Je suis dans une cellule, je veux faire une macro qui concatène une
cellule de la même ligne avec une autre de la même ligne. La première
est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20
le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important
pour la concaténation). Tout est sur la même ligne. Si j'avais été sur
E5, il aurait fallu avoir C5 & D5.
Sub concat_c_d_en_a() 'MPFE le 22/01/2005 Dim r As Long Dim c As Integer Dim t As String c = ActiveCell.Column r = ActiveCell.Row t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value Cells(r + 16, 1).Value = t Cells(r + 1, c).Select End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news:
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il aurait fallu avoir C5 & D5.
Suggestions s.v.p. (Merci d'avance !)
Philippe.R
C'était avec plaisir, Richard ! ;o)))) -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news: %
Merci à tous.
"Philippe.R" a écrit dans le message de news: %
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a() 'MPFE le 22/01/2005 Dim r As Long Dim c As Integer Dim t As String c = ActiveCell.Column r = ActiveCell.Row t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value Cells(r + 16, 1).Value = t Cells(r + 1, c).Select End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news:
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il aurait fallu avoir C5 & D5.
Suggestions s.v.p. (Merci d'avance !)
C'était avec plaisir, Richard !
;o))))
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Richard Martin" <nospam@nospam.com> a écrit dans le message de news:
%23EyM5oXAFHA.1264@TK2MSFTNGP12.phx.gbl...
Merci à tous.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
%236LSwmEAFHA.936@TK2MSFTNGP12.phx.gbl...
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a()
'MPFE le 22/01/2005
Dim r As Long
Dim c As Integer
Dim t As String
c = ActiveCell.Column
r = ActiveCell.Row
t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value
Cells(r + 16, 1).Value = t
Cells(r + 1, c).Select
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Richard Martin" <nospam@nospam.com> a écrit dans le message de news:
uEmaVqDAFHA.1296@TK2MSFTNGP10.phx.gbl...
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec
une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4
est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne.
Si j'avais été sur E5, il aurait fallu avoir C5 & D5.
C'était avec plaisir, Richard ! ;o)))) -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news: %
Merci à tous.
"Philippe.R" a écrit dans le message de news: %
Bonjour à toi aussi,
Ceci convient il ?
Sub concat_c_d_en_a() 'MPFE le 22/01/2005 Dim r As Long Dim c As Integer Dim t As String c = ActiveCell.Column r = ActiveCell.Row t = Cells(r, c - 2).Value & " " & Cells(r, c - 1).Value Cells(r + 16, 1).Value = t Cells(r + 1, c).Select End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Richard Martin" a écrit dans le message de news:
Je suis dans une cellule, je veux faire une macro qui concatène une cellule de la même ligne avec une autre de la même ligne. La première est du texte et la deuxième est un nombre.
Exemple je suis en E4 et je veux qu'en exécutant la macro obtenir en A20 le contenue de C4 & D4. C4 est du texte et D4 est un nombre. (Important pour la concaténation). Tout est sur la même ligne. Si j'avais été sur E5, il aurait fallu avoir C5 & D5.