Discussion :

[jawed]

a tous et toutes
je ne sait si j'ai bien cherché sur le forum mai je ne trouve ce que je veut
j'ai un fichier texte que veut l'exploité dans excel le probleme et que pour chaque client il a deux ligne exp:
122523 43202122 BRAD Pit 101
01 rue de la paix
la premiere ligne et dans la cellule A1
la deuxieme est dans la cellule A2
pour avoir une converssion propre du fichier je voudrai si c'est possible avoir l'adresse du client dans la cellule B1 puis suprimé completement la ligne A2
Merci et a tres bientot

[zazaraignée]

D'après une macro enregistrée et légèrement modifiée.

Code :

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

    Range("A2").Cut Destination:=Range("B1")

[jawed]

Slaut zazaraignée
j'ai utilisé ton code il marche et je ton remerci mais le probleme est qu'il transfert que la ligne A2 vers la ligne B1 mais les client qui sont en dessous reste sans changement ainsi la ligne A2 reste vide et elle n'est pas suprimer
merci pour ton aide
cordialement

[zazaraignée]

Mais il faut faire une boucle... J'ai juste donné une piste.

[jawed]

le probleme est que je suis un néophite en VBA
Désolé

[zazaraignée]

C'est pas parfait (ça clignotte un peu), mais ça marche

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
Sub ReplacerDonnees()
    ' variables
    Dim plage As Range, fin As Range, c As Range
    Dim i As Integer, j As Integer
    ' initialisation des variables
    Set plage = Range(Range("A1"), Range("A1").End(xlDown))
    Set fin = Range("A1").End(xlDown)
    j = 2
    ' déplacer les données en B
    For i = 1 To fin.Row Step 2
        Range("A" & j).Cut Destination:=Range("B" & i)
        j = j + 2
    Next
    ' supprimer les lignes
    For Each c In plage
        If IsEmpty(c) Then
            c.EntireRow.Delete
        End If
    Next
    Set plage = Nothing
    Set fin = Nothing
End Sub