XL 2010 Cherche solution pour faire passer A3 a f2 automatiquement et pouvoir le repeter en A5..

[ludo1981]

bonjour,

Je recherche la solution de faire que A3 passe en F2 de manière automatique.
Aussi je recherche à le systématiser sur A5 en F4, puis A7 en f6 ...


merci

 

[Phil69970]

Bonjour Ludo, le forum


Je te propose ceci :
On part de la fin du fichier et on remonte pour déplacer le Num de Tel et pour supprimer les lignes devenues vides.

Attention il n'y a pas de contrôle sur les lignes supprimées.

Sub test()
Dim Derlig As Long

With Sheets("Sheet1")
    Derlig = .Range("A2").End(xlDown).Row - 1

    For i = Derlig To 2 Step -2
        .Range("A" & i).Copy
        .Range("F" & i - 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        .Range("A" & i).EntireRow.Delete
    Next i

End With

End Sub

Si tu ne veux pas supprimer les lignes vides tu supprimes la ligne

'--------

.Range("A" & i).EntireRow.Delete

'--------

@Phil69970

 

[job75]

Bonsoir ludo1981, Phil69970,

En F1 entrer cette formule =SI(MOD(LIGNE();2);"";A2)

et tirez-la vers le bas, la colonne F doit être au format Spécial Numéro de téléphone.

Si vous voulez supprimer les formules en colonne F faites un Copier/Collage spécial-Valeurs.

A+