inserer copie/coller cellule avec boucle

  • Initiateur de la discussion Initiateur de la discussion patou153
  • Date de début Date de début

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 !

patou153

XLDnaute Nouveau
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 🙂
 
Re : inserer copie/coller cellule avec boucle

Bonjour,

voici un exemple:

Code:
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
 
Re : inserer copie/coller cellule avec boucle

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 ...

A+++
 
Re : inserer copie/coller cellule avec boucle

Re,

si j'ai bien compris, essaye ceci:

Code:
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

Discussions similaires

Réponses
10
Affichages
674
Réponses
5
Affichages
331
Réponses
3
Affichages
534
Retour