Menu

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

Messages postés
10
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
21 mai 2019
- - Dernière réponse : ccm81
Messages postés
8946
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 mai 2019
- 21 mai 2019 à 14:40
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
Afficher la suite 

Votre réponse

4 réponses

Messages postés
8946
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 mai 2019
1558
0
Merci
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
Keusti_001
Messages postés
10
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
21 mai 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...?
Commenter la réponse de ccm81
Messages postés
8946
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 mai 2019
1558
Keusti_001
Messages postés
10
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
21 mai 2019
-
Bonjour CCM81,
Tu me renvoies encore le même fichier... sorry de t'embêter :p.
Commenter la réponse de ccm81
Messages postés
8946
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 mai 2019
1558
0
Merci
Re-désolé

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

Cdlmnt
Keusti_001
Messages postés
10
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
21 mai 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 ! :)
Commenter la réponse de ccm81
Messages postés
8946
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 mai 2019
1558
0
Merci
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
Commenter la réponse de ccm81