Discussion :

[apdf1]

Bonjour

J’ai dans mon fichier des valeurs « F » qui commence toutes par <polygon et ces valeurs sont sur plusieurs lignes j’aimerais les transformer sur une ligne, j’ai fait un modèle pour être plus explicite

je vous remercie
Max

[Patrice740]

Bonjour,

Tu devrais expliquer ton problème de façon plus détaillée, beaucoup de participants à ce forum n'ouvrent pas les fichiers joints, entre autre pour les raisons expliquées ici : http://www.developpez.net/forums/d84...s-discussions/

[Mr.Anime]

Bonjour Forum, bonjour apdf1,

Ne comprenant pas tous de ton message je vais essayer deux, trois trucs.
As-tu essayer de sélectionner tes données et d'appliquer l'option "Convertir" sous excel ?
Cela se trouve sous l'onglet "Données" puis "Outils de données" et enfin "Convertir"

si ce n'est pas ça que tu recherches à faire, essaye un "Rechercher" --> "Remplacer"

Bonne journée

Mr.Anime

[Theze]

Bonjour,

Le résultat en feuille "Feuil2", la plage commence en F5 :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Chaine As String
    Dim Lig As Integer
 
    Set Plage = DefPlage(Worksheets("Feuil1"), 5, 6)
 
    For Each Cel In Plage.Columns(1).Cells
 
        If Cel.Value <> "" Then
 
            If Chaine <> "" Then
 
                With Worksheets("Feuil2")
                    Lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                    .Cells(Lig, 1).Value = Chaine
                End With
 
                Chaine = ""
 
            End If
 
            Chaine = Chaine & Cel.Value
 
        Else
 
            Chaine = Chaine & Cel.Offset(, 1).Value
 
        End If
 
    Next Cel
 
End Sub
 
Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range
 
    On Error GoTo Fin
 
    With Fe
 
        Set DefPlage = .Range(.Cells(L, C), _
                       .Cells(.Cells.Find("*", .[A1], -4123, , _
                       1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                       2, 2).Column))
 
    End With
 
    Exit Function
 
Fin:
 
    Set DefPlage = Nothing
 
End Function

[apdf1]

Bonjour à tous

Je voudrais savoir s'il est possible de recopier les lignes sur la même feuille et au même endroit

Merci

Max

[Theze]

Bonjour,

Avec les valeurs sur la même feuille :

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 Tbl() As String
    Dim Plage As Range
    Dim Cel As Range
    Dim Chaine As String
    Dim I As Integer
 
    Set Plage = DefPlage(Worksheets("Feuil1"), 5, 6)
 
    For Each Cel In Plage.Columns(1).Cells
 
        If Cel.Value <> "" Then
 
            If Chaine <> "" Then
 
                I = I + 1: ReDim Preserve Tbl(1 To I)
                Tbl(I) = Chaine
                Chaine = ""
 
            End If
 
            Chaine = Chaine & Cel.Value
 
        Else
 
            Chaine = Chaine & Cel.Offset(, 1).Value
 
        End If
 
    Next Cel
 
    Cells.Clear
    Range(Cells(1, 1), Cells(UBound(Tbl), 1)).Value = Application.Transpose(Tbl)
 
End Sub