Copier Cellules non-vides d'une colonne dans un onglet séparé.
Résolu
Keusti_001
Messages postés
31
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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
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
-
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 -
-
Re-désolé
https://www.cjoint.com/c/IEunwcecrBB
Cdlmnt -
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
