Discussion :

[John Parker]

Bonjour,
C'est encore moi pour le dernier problème que j'ai dans mon projet.
J'ai dans ma feuille 2 un nombre indéterminé de lignes et une plage allant de A à I.

Les colonnes B,C et D sont des adresses (Adresse 1, Adresse2, Adresse 3).
Le problème est qu'il arrive que B et C ne soient pas remplies mais que la cellule de la colonne D contiennent l'adresse. Il arrive également que B et D soient remplies et pas C.
Ce que j'aimerai c'est que tout soit automatiquement décalé à gauche c'est à dire que B soit rempli puis C puis D.

Merci d'avance!

[John Parker]

Je viens par contre de trouver un cas ou ça ne fonctionne pas:
Si B et C sont vides mais D rempli, le contenu de la colonne D ne se met pas dans B...

[mayekeul]

alors voila

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
 
 
 
Dim R as integer
R=0
do while range("A1").offset(r,0)<>""
    if range("B1").offset(r,0)="" then
        if range("C1").offset(r,0)="" then range("C1").offset(r,0)=range("D1").offset(r,0)
        range("B1").offset(r,0)=range("C1").offset(r,0)
        range("C1").offset(r,0)=""
        if range("D1").offset(r,0)<>"" then 
            range("C1").offset(r,0)=range("D1").offset(r,0)
            range("D1").offset(r,0)=""
        End if
    else
        if range("C1").offset(r,0)="" then 
            range("C1").offset(r,0)=range("D1").offset(r,0)
            range("D1").offset(r,0)=""
        end if
    end if
    r=r+1
loop

PS: je fait ça à chaud... sorry pour les petites coquilles

[Marc-L]

Bonjour,

j'ai bien peur mayekeul qu'il y ait encore des loupés avec ton dernier code …

Sinon voici une approche plus simple :

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
Sub Demo()
    Application.ScreenUpdating = False
 
    With [A1].CurrentRegion
        For R& = 1 To .Rows.Count
            N& = Application.CountA(.Rows(R).Columns("B:D"))
 
            If N = 1 And .Cells(R, 2).Value = "" Then
                .Cells(R, 3 - (.Cells(R, 3).Value = "")).Cut .Cells(R, 2)
 
            ElseIf N = 2 And .Cells(R, 4).Value > "" Then
                C& = 3 + (.Cells(R, 2).Value = "")
                .Cells(R, C + 1).Resize(, 4 - C).Cut .Cells(R, C)
            End If
        Next
    End With
 
    Application.ScreenUpdating = True
End Sub

S'il y a une ligne de titre, commencer alors à 2 la boucle de la ligne n°5 …


Voici un code plus véloce à l'aide d'une variable tableau :

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
Sub SpeedDemo()
    TS = [A1].CurrentRegion.Columns("B:D").Value
    N& = UBound(TS)
 
    For R& = 1 To N
        For C& = 2 To 1 Step -1
            If TS(R, C) = "" And TS(R, C + 1) > "" Then
               TS(R, C) = TS(R, C + 1):  TS(R, C + 1) = ""
               If C = 1 And TS(R, 3) > "" Then TS(R, 2) = TS(R, 3): TS(R, 3) = ""
            End If
        Next C
    Next R
 
    [B1:D1].Resize(N).Value = TS
    Erase TS
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[mayekeul]

oui effectivement

on pourrait aussi faire comme ç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
 
dim rng as range
dim tmp as string
dim addresses() as string
dim c as integer
 
for each rng in range("a1:a65000").specialcells(xlcelltypeconstants)
    with rng
        tmp = _
            trim(rng.text) & "|" & _
            trim(.offset(0, 1).text) & "|" & _
            trim(.offset(0, 2).text) & "|" & _
            trim(.offset(0, 3).text)
        tmp = replace(tmp, "||", "|")
        addresses = split(replace(tmp, "||", "|"), "|")
        rng.entirerow.range("a1:d1").clear
        for c = 0 to ubound(addresses)
            rng.offset(0, c) = addresses(c)
        next c
    end with
next rng

[Marc-L]

Ah non, là c'est l'usine !

Du genre : Pourquoi faire simple quand on peut compliquer ? …

[John Parker]

Encore une fois ça marche parfaitement!
1000 mercis à vous 2!

[mayekeul]

tout de suite les grand mots

sans savoir comment il importe les données, on pourrait aussi faire ça par exemple

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
 
with activesheet.querytables.add(connection:= _
        "text;c:\doc.txt", _
        destination:=range("$a$1"))
        .name = "doc"
        .fieldnames = true
        .rownumbers = false
        .preserveformatting = true
        .textfileparsetype = xldelimited
        .textfiletextqualifier = xltextqualifierdoublequote
        .textfileconsecutivedelimiter = true
        .textfilesemicolondelimiter = true
        .refresh backgroundquery:=false
end with
activeworkbook.connections("doc").delete

plus ou moins quoi...

bon ben si ça marche, je dis plus rien alors