récupérer le contenu d'une plage en string

Version imprimable

15/11/2007, 22h23
casavba

récupérer le contenu d'une plage en string

bonsoir,

comment récupérer le contenu d'une plage de cellule en string dans une ligne.

je m'explique:

supposons le Range("A1:A20")
au sein de cette plage, chaque cellule a une valeur.

Je voudrais récupérer ce contenu en une seule ligne (si c possible les valeurs de cellule séparé par des points virgules pour fair plus chic) et en plus en string. ET ça j'arrive pas à le récupérer.

Y a t il quelqu'un pour m'aiguiller?

D'avance Merci

bonsoir,

ce code devrait t aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ALaPlageEnString()
Dim Derli As Long
Dim C As Range
Dim Msg As String
 
Derli = Columns(1).Find("*", , , , , xlPrevious).Row
Msg = [A1]
For Each C In Range("A2:A" & Derli)
  Msg = Msg & ";" & C.Value
Next C
MsgBox Msg
End Sub

cordialement

15/11/2007, 22h51
casavba

Merci fred c ce que je cherche.

Par contre peux tu m'expliquer

Code:

Derli = Columns(1).Find("*", , , , , xlPrevious).Row

ce code te donne la dernière cellule pleine c ça

bien cordialement
15/11/2007, 22h59
fred65200

rebonsoir

Dans l'aide (F1)

Citation:

expression.Find(Quoi, Après, RechercherDans, Regarder, OrdreRecherche, SensRecherche, RespecterCasse, RespecterNbreOctets, FormatRecherche)

Code:

Derli = Columns(1).Find("*", , , , , xlPrevious).Row

expression = Columns(1) = Variable qui représente un objet Range, ici on recherche dans la colonne 1
Quoi = "*" = n'importe quel caractère
SensRecherche = xlPrevious = en partant de la dernière cellule (ici de la colonne)
les autres paramètres sont omis.
.row nous donne la ligne

cordialement
15/11/2007, 23h17
casavba

Merci fred
c intéressant ta solution

Bonne soirée