Copier Cellules non-vides d'une colonne dans un onglet séparé. [Résolu/Fermé]

Signaler
Messages postés
14
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
16 octobre 2019
-
Messages postés
9498
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
10 juillet 2020
-
Bonjour à tous,

C'est probablement très simple, et mais je n'ai pas réussi à faire fonctionner ce code jusque la.

Je cherche à copier les cellules (jusqu'à la 1e cellule vide non comprise) de toutes la colonne A en commancant à A6. La destination serait de copier cela, sans cellule vide au milieu, dans l'onglet "DN Gamme" à partir de la case A7.

https://www.cjoint.com/c/IErn0R2UBXK

Un grand merci pour votre aide,

Keusti

4 réponses

Messages postés
9498
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
10 juillet 2020
1 859
Bonjour

Possible avec une macro
https://www.cjoint.com/c/IErobQVKcLB

Ctrl+k pour lancer la macro
Alt-F11 pour accéder au code

Pour ton vrai fichier
1. Fais en une copie (prudence)
2. Places toi dans la feuille à traiter
3. Alt-F11 pour accéder au code
4. Colles tous le code
5. Exécutes la macro

Cdlmnt
Messages postés
14
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
16 octobre 2019

Hello CCM81,

Te serais-tu trompé de fichier, car ça ne semble pas du tout correspondre à ma demande, et le fichier n'est pas le mien...?
Messages postés
9498
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
10 juillet 2020
1 859
Désolé
https://www.cjoint.com/c/IEroLQ2E5dB
Messages postés
14
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
16 octobre 2019

Bonjour CCM81,
Tu me renvoies encore le même fichier... sorry de t'embêter :p.
Messages postés
9498
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
10 juillet 2020
1 859
Re-désolé

https://www.cjoint.com/c/IEunwcecrBB

Cdlmnt
Messages postés
14
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
16 octobre 2019

Top ! C'est exactement ça !

Sachant qu'il n'y a plus de cellule non-vide après la première cellule vide, y a-t-il moyen d'alléger la requête?
Si pas, un tout grand merci pour ton aide ! :) - Et je classe évidemment en résolu ! :)
Messages postés
9498
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
10 juillet 2020
1 859
Tu avais parlé de possibilité de cellules vides à ne pas copier donc ...
Sinon ceci ira plus vite

Public Sub OK()
Dim lifinFS As Long, plageFS As Range
With Sheets(FS)
  lifinFS = .Range(coFS & Rows.Count).End(xlUp).Row
  Set plageFS = .Range(coFS & lidebFS & ":" & coFS & lifinFS)
  plageFS.Copy Sheets(FB).Range(coFB & lidebFB)
End With
End Sub

Cdlmnt