Discussion :

[casavba]

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

[fred65200]

bonsoir,

ce code devrait t aider

Code :

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

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

[casavba]

Merci fred c ce que je cherche.

Par contre peux tu m'expliquer

Code :

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

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

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

bien cordialement

[fred65200]

rebonsoir

Dans l'aide (F1)

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

Code :

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

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

[casavba]

Merci fred
c intéressant ta solution

Bonne soirée