Discussion :

[thibaut.poullain]

Bonjour à tous,

Merci à ceux qui pourrons m'aider à résoudre cette petite tuile.
Voilà ma question : Comment, dans VBA excel, prendre les valeurs de plusieurs cellules d'une feuille, pour les mettre dans une seule cellule (à la suite s'il vous plait) sur une autre feuille ?

Mon but est : tant que je ne rencontre pas de cellule vide, je prend leurs valeurs et je les colles dans une autre cellule. Simple, mais diabolique.

J'ai tenté ceci : (hum...)

Code :

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

1
2
3
4
5
ligne = inputbox("Veuillez indiquer la dernière ligne vierge (ex. 170).", Title) 
x = 18 'je commence à partir de la cellule B18, et j'avance...
While IsEmpty(Worksheets(2).Range("B" & x).Value) Is False
Worksheets(2).Range("B" & x).Value.Copy Destination:=Worksheets(1).Range("T" & ligne)
x=x+1

Qu'en pensez vous? Moi je pense que je vais effacer mon coller précédent à chaque fois... comment dois-je procéder ???

[Many31]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub transfert_click()
 
Dim ligne As Integer
Dim ligneR As Integer
Dim colonne As Integer
Dim total As String
 
colonne = 1
 
ligne = InputBox("Veuillez indiquer la dernière ligne vierge (ex. 170).")
ligneR = 1
Do While Cells(ligneR, colonne) <> "" And ligneR <> ligne
 
    If total = "" Then
        total = Cells(ligneR, colonne)
    Else
        total = total & "; " & Cells(ligneR, colonne)
    End If
 
    ligneR = ligneR + 1
Loop
 
Sheets("Feuil2").Cells(3, 3) = total
 
End Sub

' dans ce code j'ai viré le Title que tu utilise... je n'ai pas le reste de ton code mais s'il n'est pas déclaré precedemment ca génére une erreur.
'j'ai mis de base un séparateur "; " tu peux mettre ce que tu veux. a la place de Feuil2 met le nom de la feuille ou tu veux coller ta concaténation et choisi la cellule dans laquelle tu veux la mettre.


' La fonction s'arrete si:
' elle est arrivée a la ligne maximale renseigné par l'utilisateur
' elle rencontre une cellule vide

'cest bon?

[Singular]

Essayes cette macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ConcatenerSelectionDansPremiereLigneVierge()
    Dim rng As Range
    Dim c As Range
 
    Set rng = ActiveSheet.UsedRange
    Set rng = ActiveSheet.Cells(rng.Rows.Count + 1, 1)
    For Each c In Selection
        rng.Value = rng.Value & CStr(c.Value)
    Next c
End Sub

[thibaut.poullain]

Ok ok. Eh bien merci, je vais tester et je vous dis quoi ^^