Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier des cellules dans une colonne

  • Initiateur de la discussion Initiateur de la discussion Frelon13
  • 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 !

F

Frelon13

Guest
Bonjour à tous,
Je cherche à copier dans une plage de données (une colonne vide) le contenu d'une cellule qui est située dans la colonne suivante.
Il faudrait que cette manipulation soit répétée toutes le 4 colonnes.
Le tableau à traiter contient 475 colonnes et 130 lignes
Pour être plus explicite, je joins en pj un extrait du tableau (feuille 'Original') et le résultat souhaité (feuille 'Résultat')
Mon niveau en VBA est (très) débutant. Tout coup de pouce est bienvenu !
Merci par avance, Cordialement.
 

Pièces jointes

Dernière modification par un modérateur:
Re : Copier des cellules dans une colonne

bonjour

à adapter suivant la hauteur et du nombre de colonnes remplies

Code:
Sub test()
For i = 4 To 40 Step 4
Cells(4, i - 2).Select
If Cells(2, i - 1) = "" Then Exit Sub
    ActiveCell.FormulaR1C1 = "=R2C" & i - 1
    Selection.AutoFill Destination:=Range(Cells(4, i - 2), Cells(26, i - 2)), Type:=xlFillDefault
    Range(Cells(4, i - 2), Cells(26, i - 2)).Select
Selection.Font.Bold = True
    Next
End Sub
 
Dernière édition:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
232
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…