Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie de cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion oufkiryo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

oufkiryo

Guest
bonjour tous le monde
mon problème est le suivant:
j'utilise le code suivant pour copier des cellules d'une feuille 2 mais le problème est que le code me copie les cellules et il s'arrête à la première cellule vide, et moi je veux qu'il me copie les cellules jusqu'à la dernière cellule vide est pas la première qu'il rencontre.
Sheets("Feuil2").Select
Sheets("Feuil2").Range("A1").Select
j = 2
dernièreligne = Worksheets("feuil3").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Range(ActiveCell(j, 1), ActiveCell(j, 23).End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Set X = Range(Cells(1, 1), Cells(65535, 1)).Find("", , xlValues, xlWhole, , , False)
ActiveSheet.Paste
Application.CutCopyMode = False

merci bcp.
 
Trier par date Trier par votes
Re : copie de cellules

Bonjour Oufkiryo, le forum,

La ligne
Code: 
dernièreligne = Worksheets("feuil3").Range("A65536").End(xlUp).Row
ne sert à rien puisque tu n'utilises pas la variable dernière ligne et que tu refais dans la suite du code une sélection:
Code: 
Range("A" & Range("A65536").End(xlUp).Row + 1).Select

Le End(xldown) va s'arrêter à la première cellule vide d'où ton résultat.

Si tu modifies ton code comme suit, tout va fonctionner:

Code: 
Sheets("Feuil2").Select
Range("A1").Select
j = 2
dernièreligne = Worksheets("feuil2").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Range(ActiveCell(j, 1), ActiveCell(dernièreligne, 10)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

@+

Gael
 
Vote positif 0 Vote négatif
Re : copie de cellules

Bonjour Gael,
merci bcp pour ton aide le code que tu ma donné à bien fonctionner, tu ma bcp aider.
j'ai un autre problème que j'ai pas pu résoudre c'est celui de supprimer les 0 de mon graphe j'ai vu sur le forum ils disent de mettre si(test logique;NA();si faux) je les mi mai le problème reste le même cette fois j'ai #N/A dans mes graphes.
merci.
 
Vote positif 0 Vote négatif
Re : copie de cellules

Re,

Ci-joint ton fichier modifié:

Pour la partie gauche des données (constantes) il faut simplement ne rien mettre si 0.

Pour la partie droite, j'ai modifié les formules afin d'éviter les #DIV0! et ne rien mettre si 0.

Les #NA servent pour le tracé des graphiques afin d'interrompre le tracé au lieu d'aller à 0 puis remonter. Dans le type de graphique que tu utilises, cela ne change rien et pour les étiquettes, la valeur #NA va apparaître.

J'ai donc simplement modifié le format des étiquettes pour ne pas imprimer les 0 en mettant un format de nombre personnalisé: 0,00%;-0,00%;;

Tu peux voir ou modifier ce format avec un clic droit sur une étiquette et "Format des étiquettes" où tu peux également changer la police. En cliquant sur une étiquette, toutes les étiquettes d'une série sont sélectionnées, il faut donc modifier chaque série séparément.

@+

Gael
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie de cellules

merci bcp Gael
pour la partie à droite j'ai appliqué à la lettre ce que tu ma dit est ça marche.
pour la partie à gauche je peux pas supprimer les zeros manuellement car c'est donnée sont met la par une macro qui les prend d'une autre feuille et elle les met la,mais j'ai modifié le format d'étiquette en mettant un format de nombre personnalisé: 0;-0;;
est ça marche.
merci encore une autre fois.😱
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
179
philmaure
P
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
267
LaurentVasseur
L
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
129
Eric 888
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
457
juju91
J
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
787
AtTheOne
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Question Question
XL 2016 trier 4 colonnes d'une plage de cellules
Réponses
8
Affichages
228
KTM
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
238
treza88
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
740
Dranreb
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
332
job75
  • Question Question
XL 2019 Erreur d'exécution "13"
Réponses
1
Affichages
359
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…