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

Question

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

ccm81 · Answer

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

ccm81 · Answer

Désolé
https://www.cjoint.com/c/IEroLQ2E5dB

ccm81 · Answer

Re-désolé

https://www.cjoint.com/c/IEunwcecrBB

Cdlmnt

ccm81 · Answer

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

Copier Cellules non-vides d'une colonne dans un onglet séparé.

4 réponses

Votre réponse

Discussions similaires