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

Besoin d'aide sur code vba

  • Initiateur de la discussion Initiateur de la discussion kit2412
  • 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 !

kit2412

XLDnaute Nouveau
Bonjour à tous,

J'ai un souci avec un code vba. Je vous joins le fichier.
Il faut cliquer sur le bouton "Préparation étiquettes colis", choisir une date et ensuite les lignes et colonnes concernées sont copiées dans une nouvelle feuille.
Mon problème est que j'ai des formules dans certaines colonnes et ce sont les formules qui sont copiées alors que je veux les valeurs.
J'ai essayé d'ajouter ".value" mais sans succès.
Je vous remercie par avance de votre aide🙂
 

Pièces jointes

Re : Besoin d'aide sur code vba

Re,

Pas possible!
L'utilisation de PasteSpecial Paste:=xlPasteValues ne copie que les données !

Vous avez deux ligne de code qui effectuent une copie je vous avais donné le code pour la première mais peut-être fallait-il l'adapter pour la deuxième ?

O1.Range("D2:I2").Copy O2.Range("A1").value
Code:
O1.Range("D2:I2").Copy
O2.Range("A1").PasteSpecial Paste:=xlPasteValues
et

PLV.Copy O2.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).value
Code:
PLV.Copy 
O2.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

A tester

A+
 
Re : Besoin d'aide sur code vba

Bonjour le fil, bonjour le forum,

Modifie cette partie avec le code :

Code:
'copie la plage PLV dans la première cellule vide de la colonne 1 (=A) de l'onglet O2
PLV.Copy
O2.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
 
- 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

Discussions similaires

Réponses
2
Affichages
496
Réponses
15
Affichages
547
W
  • Question Question
Réponses
7
Affichages
308
Réponses
6
Affichages
289
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…