Récupérer des adresses sérapées par un point virgule
2 réponses
F
Bonsoir à tous,
Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une
colonne et les regrouper dans une cellule. Avec le code suivant j'arrive
incomplètement à mes fins car en lieu et place des espaces je voudrais un
point virgule (;)
En vous remerciant
Private Sub CommandButton1_Click()
Dim rngColumn As Range
Dim lngEndRow As Long
Dim objCell As Range
Dim strContents As String
'recherche jusqu'à la dernière cellule vide.
Range("a65536").End(xlUp).Select
lngEndRow = Selection.Row
Set objCell = Range("a1")
While objCell.Row <= lngEndRow
If objCell.Value <> "" Then
strContents = strContents & Chr(32) & objCell.Value
End If
Set objCell = objCell.Offset(1, 0)
Wend
Range("h1") = strContents
End Sub
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
MichDenis
Si ta procédure fonctionne bien que tu veux seulement modifier l'espace pour un point virgule, modifie Chr(32) pour Chr(59)
"" a écrit dans le message de news: % Bonsoir à tous, Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une colonne et les regrouper dans une cellule. Avec le code suivant j'arrive incomplètement à mes fins car en lieu et place des espaces je voudrais un point virgule (;) En vous remerciant
Private Sub CommandButton1_Click() Dim rngColumn As Range Dim lngEndRow As Long Dim objCell As Range Dim strContents As String 'recherche jusqu'à la dernière cellule vide. Range("a65536").End(xlUp).Select lngEndRow = Selection.Row Set objCell = Range("a1")
While objCell.Row <= lngEndRow If objCell.Value <> "" Then strContents = strContents & Chr(32) & objCell.Value End If Set objCell = objCell.Offset(1, 0) Wend Range("h1") = strContents End Sub
Si ta procédure fonctionne bien que tu veux seulement modifier
l'espace pour un point virgule, modifie Chr(32) pour Chr(59)
"F@brice" <nospam-moralesfabrice@tele2.fr> a écrit dans le message de news:
%23HQvXI1NHHA.4100@TK2MSFTNGP04.phx.gbl...
Bonsoir à tous,
Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une
colonne et les regrouper dans une cellule. Avec le code suivant j'arrive
incomplètement à mes fins car en lieu et place des espaces je voudrais un
point virgule (;)
En vous remerciant
Private Sub CommandButton1_Click()
Dim rngColumn As Range
Dim lngEndRow As Long
Dim objCell As Range
Dim strContents As String
'recherche jusqu'à la dernière cellule vide.
Range("a65536").End(xlUp).Select
lngEndRow = Selection.Row
Set objCell = Range("a1")
While objCell.Row <= lngEndRow
If objCell.Value <> "" Then
strContents = strContents & Chr(32) & objCell.Value
End If
Set objCell = objCell.Offset(1, 0)
Wend
Range("h1") = strContents
End Sub
Si ta procédure fonctionne bien que tu veux seulement modifier l'espace pour un point virgule, modifie Chr(32) pour Chr(59)
"" a écrit dans le message de news: % Bonsoir à tous, Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une colonne et les regrouper dans une cellule. Avec le code suivant j'arrive incomplètement à mes fins car en lieu et place des espaces je voudrais un point virgule (;) En vous remerciant
Private Sub CommandButton1_Click() Dim rngColumn As Range Dim lngEndRow As Long Dim objCell As Range Dim strContents As String 'recherche jusqu'à la dernière cellule vide. Range("a65536").End(xlUp).Select lngEndRow = Selection.Row Set objCell = Range("a1")
While objCell.Row <= lngEndRow If objCell.Value <> "" Then strContents = strContents & Chr(32) & objCell.Value End If Set objCell = objCell.Offset(1, 0) Wend Range("h1") = strContents End Sub
F
Merci pour ta réponse. Tout fonctionne à merveille.
"MichDenis" a écrit dans le message de news:
Si ta procédure fonctionne bien que tu veux seulement modifier l'espace pour un point virgule, modifie Chr(32) pour Chr(59)
"" a écrit dans le message de news:
% Bonsoir à tous, Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une colonne et les regrouper dans une cellule. Avec le code suivant j'arrive incomplètement à mes fins car en lieu et place des espaces je voudrais un point virgule (;) En vous remerciant
Private Sub CommandButton1_Click() Dim rngColumn As Range Dim lngEndRow As Long Dim objCell As Range Dim strContents As String 'recherche jusqu'à la dernière cellule vide. Range("a65536").End(xlUp).Select lngEndRow = Selection.Row Set objCell = Range("a1")
While objCell.Row <= lngEndRow If objCell.Value <> "" Then strContents = strContents & Chr(32) & objCell.Value End If Set objCell = objCell.Offset(1, 0) Wend Range("h1") = strContents End Sub
Merci pour ta réponse. Tout fonctionne à merveille.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uk6ytO1NHHA.3544@TK2MSFTNGP03.phx.gbl...
Si ta procédure fonctionne bien que tu veux seulement modifier
l'espace pour un point virgule, modifie Chr(32) pour Chr(59)
"F@brice" <nospam-moralesfabrice@tele2.fr> a écrit dans le message de
news:
%23HQvXI1NHHA.4100@TK2MSFTNGP04.phx.gbl...
Bonsoir à tous,
Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une
colonne et les regrouper dans une cellule. Avec le code suivant j'arrive
incomplètement à mes fins car en lieu et place des espaces je voudrais un
point virgule (;)
En vous remerciant
Private Sub CommandButton1_Click()
Dim rngColumn As Range
Dim lngEndRow As Long
Dim objCell As Range
Dim strContents As String
'recherche jusqu'à la dernière cellule vide.
Range("a65536").End(xlUp).Select
lngEndRow = Selection.Row
Set objCell = Range("a1")
While objCell.Row <= lngEndRow
If objCell.Value <> "" Then
strContents = strContents & Chr(32) & objCell.Value
End If
Set objCell = objCell.Offset(1, 0)
Wend
Range("h1") = strContents
End Sub
Merci pour ta réponse. Tout fonctionne à merveille.
"MichDenis" a écrit dans le message de news:
Si ta procédure fonctionne bien que tu veux seulement modifier l'espace pour un point virgule, modifie Chr(32) pour Chr(59)
"" a écrit dans le message de news:
% Bonsoir à tous, Voilà je souhaiterais pouvoir récupérer des adresses alignées sur sur une colonne et les regrouper dans une cellule. Avec le code suivant j'arrive incomplètement à mes fins car en lieu et place des espaces je voudrais un point virgule (;) En vous remerciant
Private Sub CommandButton1_Click() Dim rngColumn As Range Dim lngEndRow As Long Dim objCell As Range Dim strContents As String 'recherche jusqu'à la dernière cellule vide. Range("a65536").End(xlUp).Select lngEndRow = Selection.Row Set objCell = Range("a1")
While objCell.Row <= lngEndRow If objCell.Value <> "" Then strContents = strContents & Chr(32) & objCell.Value End If Set objCell = objCell.Offset(1, 0) Wend Range("h1") = strContents End Sub
