Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
J'ai un fichier avec +- 60 lignes et 2 colonnes et je voudrais deplacer ex:A1 (avec condition de supprimer les espaces)sous B2 et ainsi jusqu'à la derniere ligne avec macro
Merci de vos conseils 🙂
Sub déplace()
Application.ScreenUpdating = False
For lig = 1 To [A1].End(xlDown).Row
Cells(lig, 1).Value = Trim(Cells(lig, 1).Value)
Cells(lig, 1).Cut Cells(lig + 1, 2)
Next
Application.ScreenUpdating = True
End Sub
En fait je me suis mal exprimé. j'ai A1 et B1 jusqu'à A60 et B60 et voudrais les mettre les uns sous les autres soit en copiant sur une autre feuille dans une colonne resultat --> 1ere ligne A1, puis 2eme ligne B1 ..etc
A B
Ducerf Xavier
Santelli Georges
Normand Jean-Luc
Resultat:
Liste
A
Xavier
Ducerf
Georges
Santelli etc ...
Sub test()
col = 2
For lig = 1 To [A1].End(xlDown).Row
col = IIf(col = 2, 1, 2)
With Sheets("Feuil2")
.Range("A" & .[A65536].End(xlUp).Row + 1).Value = Cells(lig, col).Value
End With
If col = 2 Then lig = lig - 1
Next
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD