1. Accueil
  2. Forum
  3. Visual Basic
  4. Visual Basic 6

Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè [Résolu]

Signaler
Messages postés
44
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
14 mars 2012
 -
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 -
Bonjour,

Après de nombreuses recherches, je n'ai pu trouver ce que je voulais.
C'est pourquoi je fais appel à vos compétences pour m'aider à résoudre mon problème :

J'ai un ensemble de données dans une "feuil1".
Je souhaite copier ces données dans la "feuil2" (qui contient aussi des valeurs) à partir de la première ligne vide rencontrée (ou cellule vide, peu importe car c'est un tableau).

Voici le code que j'ai tenté, mais qui ne marche pas.. :

..............................................
Worksheets("Feuil1").Range("A8:F800").Copy
Worksheets("Feuil2").Range("A8").Select

Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop

Selection.Paste

End Sub
...............................................

Merci de votre aide
Afficher la suite

10 réponses

Réponse 1 / 10
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
dans mon cas c'est bien la première ligne vide d'une colonne qui suit la dernière ligne remplie de cette colonne car dans mon tableau

C'est maintenant très clair, et tellement différent de :
à partir de la première ligne vide rencontrée (ou cellule vide, peu importe car c'est un tableau).

et tout ton code se résume alors à ceci : 
 Dim toto As Long
 toto = Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
 Sheets("Feuil1").Range("A8:F800").Copy Destination:=Sheets("Feuil2").Range("A" & toto + 1)

je n'ai là ni select, ni paste, comme tu le vois.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Réponse 2 / 10
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Bonjour,
à partir de la première ligne vide rencontrée (ou cellule vide, peu importe car c'est un tableau).

n'est pas clair.
De quoi s'agit-il exactement ? de la première cellule vide rencontrée dans la colonne A à partir de la ligne 8 ou de la première cellule vide rencontrée, dans la colonne A, après la dernière remplie dans cette colonne ?
Car ce n'est pas la même chose du tout !
La preuve :
A8, A9, A10 remplies, A11 vide, A12 remplie ===>> la première vide rencontrée après A8 est A11 et non A13 !
Et surtout : quand comptes-tu t'arrêter de travailler à coups de select, copy, paste ? C'est lourd et inutile !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Réponse 3 / 10
Messages postés
44
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
14 mars 2012
Alors, en effet, c'est bien la première cellule vide rencontrée dans la colonne A à partir de la ligne 8..

Que me suggères tu?

Merci bcp
Réponse 4 / 10
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Es-tu certain de ta réponse ?
Car si exacte et qu'après cette cellule il y en a une autre remplie deux lignes plus bas, comment vas-tu insérer sur 2 lignes toute la plage ("A8:F800") ?
D'où l'absolue nécessité d'être très précis !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Réponse 5 / 10
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012
bonjour
pour la derniere ligne j'utilise
Set ListeCelluleFin = Sheets(OngletName).Range
(CelluleColonne & CelluleLigne).End(xlDown)
DerniereLigne = ListeCelluleFin.Row

mais il faut se débarasser des lignes vides soit par un trie alpha ou par un code qui teste et suprime la ligne vide ou copie le reste de la liste une ligne plus haut...
@+JP
Réponse 6 / 10
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012
bonjour
j'ai oublié la déclaration
Public ListeCelluleFin As Range

@+JP
Réponse 7 / 10
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Un peu d'attention et de précision, s'il vous plait !

Ce n'est pas là une affaire de code, mais VRAIMENT, une affaire de précision de l'expression :

Et j'insiste car je sais les dégâts que peuvent provoquer certaines imprécisions (je suis précisément en train d'aider un jeune homme de mes connaissances à réparer ceux qu'il a commis par manque de précision de son expression) !

- La première ligne vide d'une colonne n'est pas forcément la première ligne vide qui suit la dernière ligne remplie de cette colonne. Ce sont deux concepts très différents et l'utilisation de l'un ou de l'autre dépend uniquement de ce que l'on veut faire, en parfaite connaissance de cause
- la première ligne vide rencontrée sur une feuille au-delà de sa plage déjà occupée n'est pas forcément la première ligne vide qui suit la dernière ligne remplie d'une colonne X ou Y.

Chaque chose s'exprime distinctement et a sa solution distincte, mais aussi un rôle distinct avec ses conséquences distinctes.

Je pinaille ? Je joue sur les mots ? ===>> venez donc m'aider à réparer le soukh ce que je suis en train de tenter de réparer pour un ami et vous comprendrez vite que non !

______________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Réponse 8 / 10
Messages postés
44
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
14 mars 2012
Ucfoutu,

Je comprend très bien ton analyse et tu as tout à fait raison d'insister sur la précision de l'expression.

Néanmois, dans mon cas c'est bien la première ligne vide d'une colonne qui suit la dernière ligne remplie de cette colonne car dans mon tableau, je ne peux pas avoir de ligne vide intercalé entre les données..

Merci
Réponse 9 / 10
Messages postés
44
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
14 mars 2012
Merci bien!

C'est bien ce que je recherchais.

Comme je suis perfectionniste, je voudrais éviter de définir la plage copier ("A8:F800") et de la remplacer par une formule de type Do while loop par exemple qui permettrait de copier la plage en feuille 1 (en partant de la ligne 8)jusqu’à rencontrer la première cellule vide.

Comment crois tu que je peux adapter ce changement avec ta formule?

Merci bcp.

Je valide ta réponse!
Réponse 10 / 10
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Ben oui, pardi !
Et en t'inspirant très directement de ce que j'ai fait pour la feuille Feuil2 !
Si tu as compris ce que tu as copié/collé (mon code) ===>> tue ne devrais avoir aucune difficulté ===>> Montre donc !
A toi ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Répondre Posez votre question