Pb macro sélection spéciale + collage

[Dace]

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

 

[Dace]

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...

 

[soenda]

Re : Pb macro sélection spéciale + collage

Bonsoir le fil, Dace

Le nom des onglets est à adapter

    With Sheets("Feuil1")
        .Range("F6:L" & .[F65536].End(xlUp).Row).Copy Sheets("Feuil2").[A2]
    End With

Rem : ne pas oublier les points

A plus

 

[Dace]

Re : Pb macro sélection spéciale + collage

Bonsoir le fil, Dace

Le nom des onglets est à adapter

    With Sheets("Feuil1")
        .Range("F6:L" & .[F65536].End(xlUp).Row).Copy Sheets("Feuil2").[A2]
    End With

Rem : ne pas oublier les points

A plus

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 !

 

[soenda]

Re : Pb macro sélection spéciale + collage

Re,

Par exemple :

    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

 

[Dace]

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 !

 

[soenda]

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

    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

 

[Dace]

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...

 

[soenda]

Re : Pb macro sélection spéciale + collage

Re,

Et avec le code suivant :

    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

 

[Dace]

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 !

 

[Robert]

Re : Pb macro sélection spéciale + collage

Bonjour Dace, Soenda, bonjour le forum,

Essaie comme ça :

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

 

[soenda]

Re : Pb macro sélection spéciale + collage

Re,

Vois la PJ

A plus

Edition : Bonjour Robert 🙂

 

[Dace]

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 !

 

[Dace]

Re : Pb macro sélection spéciale + collage

En essayant la Macro de Robert cela marche bien. Je ne vois pas où est le soucis dans ta macro soenda :s

Merci 🙂

 

[soenda]

Re : Pb macro sélection spéciale + collage

Re,

Je ne vois pas où est le soucis dans ta macro, soenda

Oups ...

Feuil1.Range("F6:L" & Feuil1.[F65536].End(xlUp)[B][COLOR=red].[/COLOR][COLOR=red]Row[/COLOR][/B]).Copy

A plus