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

Pb macro sélection spéciale + collage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dace
  • 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
D

Dace

Guest
Bonjour à tous,

voici mon soucis :

sur la feuille 1, je fais une sélection à l'aide de la commande suivante

Sub Test()

Range("F6:L" & Range("F65536").End(xlUp).Row).Select

End Sub

Cette commande fonctionne bien, elle me prend la plage qui m'intéresse.

Maintenant je voudrais copier cette sélection dans une "feuille x" à partir de la colonne A2.

C'est la première partie du problème que je n'arrive pas à résoudre.

Ensuite chaque sélection devra être copiée dans la "feuille x" mais à la suite de la précédente copie.

Exemple :

Première copie sur la "feuille x" : colonne A2 jusqu'à A30

Seconde Copie sur la "feuille x" : colonne A31 jusqu'à y

X copie sur la "feuille x" : colonne y+1 jusqu'à z...

Merci de votre précieuse aide !

Dace
 
Trier par date Trier par votes
Re : Pb macro sélection spéciale + collage

J'en suis là :

Range("F6:L" & Range("F65536").End(xlUp).Row).Select
Selection.Copy
Sheets("résultats").Select
Range("A2").Select
ActiveSheet.Paste

et il me met une erreur 400...
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Bonsoir le fil, Dace

Le nom des onglets est à adapter
Code: 
    With Sheets("Feuil1")
        .Range("F6:L" & .[F65536].End(xlUp).Row).Copy Sheets("Feuil2").[A2]
    End With
Rem : ne pas oublier les points

A plus
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage



Merci pour la réponse. Cela marche bien, cependant j'ai un soucis, c'est que la formule copie les formules des cellules et non ce qui est réellement affiché sur l'écran. Ex : il copie la formule (RECHERCHE...) plutôt que le nom qui figure dans la cellule.

Merci encore pour votre aide !
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Re,

Par exemple :
Code: 
    With Sheets("Feuil1")
        .Range("F6:L" & .[F65536].End(xlUp).Row).Copy Sheets("Feuil2").[A2]
    End With
 
    With Sheets("Feuil2").[A2].CurrentRegion
        .Value = .Value
    End With
A plus
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

merci pour ton aide, mais cela ne change pas mon soucis. Je t'ai envoyé un MP, je ne pux pas mettre mon fichier ici car il est trop gros !
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Bonjour le fil, Dace

J'ai reçu ton MP et j'ai relu ta question (entièrement ...)

Avant tout envoi de gros fichier, vois si le code suivant te convient
Code: 
    If ActiveSheet.Name <> "Feuil1" Then Exit Sub  [B][COLOR=teal]' peut-être à supprimer ?[/COLOR][/B]
 
    ActiveCell.CurrentRegion.Copy Sheets("Feuil2").[A1048576].End(xlUp)(2)
 
    With Sheets("Feuil2").[A1048576].End(xlUp).CurrentRegion
        .Value = .Value
    End With
Si pas ça il faudra envoyer le classeur...

A plus
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Bonjour à tous,

merci encore une fois pour ton aide qui m'est précieuse mais là je suis un peu perdu, j'ai simplement "copier/coller" ton code dan ma macro de test mais cela ne marche pas.

je ne comprends pas bien le code car il n'y a pas la sélection de base dans la "feuill1"

Il est vrai qu'il est difficile d'expliquer sans avoir le support...
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Re,

Et avec le code suivant :
Code: 
    With Sheets("Feuil1")
        .Range("F6:L" & .[F1048576].End(xlUp).Row).Copy Sheets("Feuil2").[A1048576].End(xlUp)(2) 
    End With
 
    With Sheets("Feuil2").[A1048576].End(xlUp).CurrentRegion
        .Value = .Value
    End With
A plus
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

voici le fichier mis sur ci-joint :

Cijoint.fr - Service gratuit de dépôt de fichiers

c'est un fichier pour un cross d'élèves.

Voici ce que je voudrais :

une fois les dossards remplis et les noms retrouvés grâce à la fonction recherche, une macro qui sélectionne les cases remplis avec des valeurs (si 100 coureurs, sélectionner la plage de F6 à L100) et les copie dans la page "résultats" à partir de A2.

Une fois la course 1 réinitialisée et que le course 2 se termine même chose mais la sélection doit être collée dans la page résultats à la suite (c'est à dire A2 + 100...)

Merci encore !
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Bonjour Dace, Soenda, bonjour le forum,

Essaie comme ça :
Code: 
Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (DESTination)
 
With Sheets("Chrono") 'prend en compte l'onglet "Chrono"
    Set pl = .Range("F6:L" & .Range("F65536").End(xlUp).Row) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "Chrono"
With Sheets("résultats") 'prend en compte l'onglet "résultats"
    Set dest = .Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
End With 'fin de la prise en compte de l'onglet "résultats"
pl.Copy 'copie la plage pl
dest.PasteSpecial (xlPasteValues) 'colle les valeurs de la plage pl dans dest
End Sub
 
Vote positif 0 Vote négatif
Re : Pb macro sélection spéciale + collage

Merci bcp pour vos réponses et votre aide !

grâce à l'explication de Robert, je comprends mieux le principe...

Je me rends compte de la tâche immense qu'il me reste avant de maîtriser la bête...

Petit problème encore : je viens de faire un test avec le fichier que tu m'as envoyé Soenda, j'ai réinitialisé la feuille, relancé un départ, pris qques temps. Quand je lance ta macro cela ne me prend pas tous les coureurs mais une partie seulement.

Le copier/coller à la suite marche nickel

Merci encore pour votre talent et votre aide !
 
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

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
247
pascal21
D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
259
dadaze
D
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
788
AtTheOne
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
136
Eric 888
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
770
SAMUAL_2023
S
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
672
papychat1
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
808
MBEPID
M
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
A
  • Question Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
378
arvin
A
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
490
Anthony_51
A
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
853
Lu76Fer
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
653
Le Rouky
L
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
434
Nonoo
N
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
3 K
kiki29
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
491
eric72
E
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
798
Julien_B
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…