Discussion :

[Pierre67]

Bonjour à tous

sans doute l'un d'entre vous a déjà rencontrer ce problème.

j'ai des adresses en lignes que je souhaite regrouper dans une seule cellule.
l'enregistreur de macros le fait mais mon souci est quand une ou plusieurs cellules sont vides.
comment les ignorer

si vous avez des idées ?
bon dimanche

[Theze]

Bonjour,

Une piste, en admettant que la plage commence en colonne A depuis A2 (Noms en colonne A, prénoms en colonne B, etc...). La concaténation à lieu dans les cellules de la colonne A :

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
26
27
28
29
30
31
32
33
34
35
 
Sub Test()
 
    Dim Plage As Range
    Dim PlageLigne As Range
    Dim Cel As Range
    Dim I As Integer
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        Set PlageLigne = Plage.Range(Cel, Plage.Cells(Cel.Row, Columns.Count).End(xlToLeft))
 
        For I = 2 To PlageLigne.Count
 
            'ici, avec un retour à la ligne
            'Cel.Value = Cel.Value & IIf(PlageLigne(I).Value <> "", vbCrLf & PlageLigne(I).Value, "")
 
            'ici, les valeurs les unes à la suite des autres avec un espace
            Cel.Value = Cel.Value & IIf(PlageLigne(I).Value <> "", " " & PlageLigne(I).Value, "")
 
            'supprime la valeur de la cellule en cours
            PlageLigne(I).Value = ""
 
        Next I
 
 
    Next Cel
 
End Sub

Hervé.

[Pierre67]

Bonjour Thez et merci cela fonctionne très

une question : Si je veux mettre la concaténation en colonne G au lieu de A ?
@+

[Theze]

Bonjour,

Concaténation en colonne G (enlever l'apostrophe devant >Cel.Value = ""< pour vider la cellule en colonne A) :

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
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub Test()
 
    Dim Plage As Range
    Dim PlageLigne As Range
    Dim Cel As Range
    Dim I As Integer
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        Set PlageLigne = Plage.Range(Cel, Plage.Cells(Cel.Row, Columns.Count).End(xlToLeft))
 
        For I = 2 To PlageLigne.Count
 
            'ici, avec un retour à la ligne
            'Cel.Offset(, 6).Value = Cel.Value & IIf(PlageLigne(I).Value <> "", vbCrLf & PlageLigne(I).Value, "")
 
            'ici, les valeurs les unes à la suite des autres avec un espace
            Cel.Offset(, 6).Value = Cel.Value & IIf(PlageLigne(I).Value <> "", " " & PlageLigne(I).Value, "")
 
            'supprime la valeur de la cellule en cours
            PlageLigne(I).Value = ""
 
        Next I
 
        'pour supprimer la valeur de la cellule en cours en colonne A
        'Cel.Value = ""
 
    Next Cel
 
End Sub

Hervé.

[Pierre67]

Bonjour Theze

ci-joint, mon fichier

en fait la macro ne reprend que la 1ère et dernière colonne
@+

[Theze]

Bonjour,

Voilà le code qui convient :

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
26
27
28
29
30
31
32
33
34
 
Sub Test()
 
    Dim Plage As Range
    Dim PlageLigne As Range
    Dim Cel As Range
    Dim I As Integer
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        Set PlageLigne = Plage.Range(Cel, Plage.Cells(Cel.Row, Columns.Count).End(xlToLeft))
 
        For I = 1 To PlageLigne.Count
            'ici, avec un retour à la ligne
 
            Cel.Offset(, 6).Value = Cel.Offset(, 6).Value & IIf(PlageLigne(I).Value <> "", PlageLigne(I).Value & vbCrLf, "")
            'supprime la valeur de la cellule en cours
            'PlageLigne(I).Value = ""
        Next I
 
        'supprime le dernier vbCrLf
        Cel.Offset(, 6).Value = Left(Cel.Offset(, 6).Value, Len(Cel.Offset(, 6).Value) - 1)
 
        'pour supprimer la valeur de la cellule en cours en colonne A
        'Cel.Value = ""
    Next Cel
 
End Sub

Hervé.