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

Copier des cases sans copier les menus

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion phoque.r
  • 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
P

phoque.r

XLDnaute Occasionnel
Bonjour

voici mon code pour copier mes données:
Code: 
Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Select
Range("a" & nb2).Select
ActiveSheet.Paste

Seulement, des cases sont faites depuis des menus, et ca copie les menus avec.

On m'a bien donné un truc comme ça pour l'éviter, mais je n'ai pas bien compris

Code: 
Range("A1:Z30").Copy
' positionnement à l'endroit du collage
Selection.PasteSpecial xlPasteValues
' désactiver la copie
Application.CutCopyMode = False


Comment utiliser?

merci
phoque.R
 
Trier par date Trier par votes
Re : Copier des cases sans copier les menus

Bonjour

Ca donne quoi si tu testes cela?

Code: 
Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Range("a" & nb2).Paste xlPasteValues
' désactiver la copie
Application.CutCopyMode = False


edit: voir réponse plus bas
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier des cases sans copier les menus

Je viens de faire ca:

Code: 
Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Select
Range("a" & nb2).Select
Selection.PasteSpecial xlPasteValues
' désactiver la copie
Application.CutCopyMode = False


le truc de Staple1600 ne fonctionne pas, c'est la ligne
Code: 
Sheets("refusés").Range("a" & nb2).Paste xlPasteValues
qui n'est pas acceptée
 
Vote positif 0 Vote négatif
Re : Copier des cases sans copier les menus

Re


Ca correspond à quoi nb2?

Ca fonctionne chez moi
Code: 
Sub test()
Dim i As Long
i = 1' mis pour pour pouvoir tester
Sheets("Feuil1").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Range("A1").PasteSpecial Paste:=xlValues
' désactiver la copie
Application.CutCopyMode = False
End Sub


edit: houps trop tard collision avecPierrot93
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier des cases sans copier les menus

Bonjour Phoque, Restapple

si nb2 est une variable qui renvoie un nu méro de ligne cela devrait fonctionner comme ceci :

Code: 
Sheets("refusés").Range("a" & nb2).PasteSpecial xlPasteValues

bonne journée
@+

edition : suppression d'un point en trop
 
Dernière édition:
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

Discussions similaires

G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
802
robpellan52
R
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
5 K
Xender
X
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
887
whiteshark
W
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
R
  • Question Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
647
romubzh35
R
A
  • Question Question
Microsoft 365 Copier/coller un plusieurs lignes
Réponses
5
Affichages
936
LeSaintKebab
L
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
661
INFINITY100
I
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
628
Aldonanou
A
A
  • Question Question
Microsoft 365 Cpier/coller en VBA
Réponses
7
Affichages
818
A-F
A
L
  • Résolu(e)
XL 2016 VBA : Copier des valeurs entre deux fichiers
Réponses
4
Affichages
990
Leché
L
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
1 K
Kevin38
K
  • Résolu(e)
XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)
Réponses
5
Affichages
1 K
CGU2022.
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
765
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…