Copier coller ensemble cellules paires vers colonne adjacente.
Résolu/Fermé
bo456
Messages postés
1
Date d'inscription
jeudi 19 mai 2016
Statut
Membre
Dernière intervention
19 mai 2016
-
19 mai 2016 à 16:15
bo456 - 23 mai 2016 à 15:06
bo456 - 23 mai 2016 à 15:06
A voir également:
- Copier coller ensemble cellules paires vers colonne adjacente.
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
- Déplacer une colonne excel - Guide
- Il est en cours de transport vers votre site de livraison ✓ - Forum Consommation et internet
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Windows 7 vers windows 10 - Guide
2 réponses
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
333
22 mai 2016 à 08:58
22 mai 2016 à 08:58
Bonjour
Pas sûr d'avoir tout compris si au départ, "xyz" sont dans des cellules séparées ou dans une seule cellule et qu'en sortie tout doit être fusionné en une seule cellule.
J'ai compris ceci
A tester
Cdlt
Pas sûr d'avoir tout compris si au départ, "xyz" sont dans des cellules séparées ou dans une seule cellule et qu'en sortie tout doit être fusionné en une seule cellule.
J'ai compris ceci

Sub Copier() Application.ScreenUpdating = False For i = 2 To [D10000].End(xlUp).Row Step 2 If i = "" Then Exit Sub Cells(i - 1, 6) = Cells(i - 1, "C") & Cells(i - 1, "D") & Cells(i, "D") & Cells(i - 1, "E") Next i End Sub
A tester
Cdlt
Bonjour bo456,
Peut-être que je me trompe, mais j'ai compris l'énoncé de ton problème
d'une façon différente de celle de Frenchie83 (que je salue en passant).
Aussi, je te propose la solution suivante :
Fichier Excel 2003 : Exercice Vers colonne adjacente
Je compte sur toi pour me dire ce que tu en penses.
Cordialement. 😊
Peut-être que je me trompe, mais j'ai compris l'énoncé de ton problème
d'une façon différente de celle de Frenchie83 (que je salue en passant).
Aussi, je te propose la solution suivante :
Fichier Excel 2003 : Exercice Vers colonne adjacente
Je compte sur toi pour me dire ce que tu en penses.
Cordialement. 😊
23 mai 2016 à 15:06
Cells(i - 1, 5) = Cells(i, "D").Bonne journée