Discussion :

[SamSag]

Bonjour à toutes et tous,

Je débute dans le domaine des macros.
Je cherche à regrouper plusieurs cellules en une seule.
Pour exemple, et pour être plus clair, voici ce que j'ai aujourd'hui dans plusieurs cellules :

Nom / Prénom / Adresse 1 / Adresse 2 / Adresse 3 / CP / Ville

Je souhaite dans une même cellule :

Nom
Prénom
Adresse 1
Adresse 2
Adresse 3
CP
Ville

Et ce qui serait top, c'est d'éliminer les éventuelles cellules vides pour ne pas se retrouver avec des espaces vides.

D'avance merci pour vos retours.

Sam.

[patricktoulon]

Bonjour
regarde un peu les variables tableau et array
regarde aussi la fonction"join" pour les arrays
peu etre aussi la fonction replace
peu etre aussi la fonction index afin de recupérer un array d'une ligne d'un tableau a 2 dimentions

bonne route

[SamSag]

Bonjour Patrick et merci pour votre retour.
Pouvez-vous me donner plus d'explications.
J'ai regardé les différents points sur des forums et, vu mon niveau, je n'arrive pas à voir comment procéder.
Sam.

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part, ce que tu cherches à faire c'est tout simplement une concaténation des cellules
Soit en Excel (Pour l'exemple le nom est en cellule B2 et le prénom en C2)

Code :

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

=B2 & " " & C2

Facilement traduisible en VBA si c'est absolument nécessaire.

[SamSag]

Bonjour Philippe,

Oui, c'est effectivement ça.
Je viens de trouver une solution en passant par les fonctions.
En imaginant que je souhaite mon résultat sur la colonne A et que j'ai 7 colonnes à concaténer :

=SI(B2="";"";B2&CAR(13))&SI(C2="";"";C2&CAR(13))&SI(D2="";"";D2&CAR(13))&SI(E2="";"";E2&CAR(13))&SI(F2="";"";F2&CAR(13))&SI(G2="";"";G2&CAR(13))&SI(H2="";"";H2)

Et en format de cellule, je passe en renvoi à la ligne automatique.

Ce qui était problématique, c'était les lignes vides, mais avec le conditionnement, cela disparait.

Si il existe un moyen de transformer cela en macro, je suis preneur.

D'avance merci.

PS : pour un PC, il faut mettre CAR(10) et non 13 pour renvoyer à la ligne.

[Docmarti]

Bonjour.
En VBA.

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
Sub tt()
Set f = Worksheets("FEUIL1")
ligneDestination = 1
colonneDestination = "H"
f.Columns(colonneDestination).Clear
 
derniereligne = f.Cells(Rows.Count, "B").End(xlUp).Row
For ligne = 1 To derniereligne
nom = Trim(f.Cells(ligne, "B")) & Trim(f.Cells(ligne, "C"))
If nom = "" Then
Else
 
tout = ""
For colonne = 2 To 6
 a = Trim(f.Cells(ligne, colonne))
 If a <> "" Then
  tout = tout & a & Chr(10)
 End If
 Next
 
 ligneDestination = ligneDestination + 1
 f.Cells(ligneDestination, "H") = tout
 End If
Next
End Sub