Pb macro sélection spéciale + collage

Dace · 10 Octobre 2009

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 · 11 Octobre 2009

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

Bonsoir à tous,

De retour, après un peu de travail sur mon fichier.

Une petite évolution qui me pose problème.

Vous avez fait une formule de la page "Chrono" vers "Résultats"

En fait après une course, il faut enregistrer cette course et pour cela j'ai fait la macro suivante

Code:

Sub save_onglet()

    Sheets("Chrono").Select
    Sheets("Chrono").Copy Before:=Sheets(1)
    Sheets("Chrono (2)").Select
    Sheets("Chrono (2)").Move After:=Sheets(5)
    Sheets("Chrono (2)").Select
    With ActiveWorkbook.Sheets("Chrono (2)").Tab
        .Color = 192
        .TintAndShade = 0
    End With
    Application.Dialogs(xlDialogSaveAs).Show
    
        
        End Sub

Donc en gros, en cliquant sur le bouton "enregistrer la course", cela copie la feuille chrono en chrono(2), bouge l'onglet à la fin des onglets, et le colore en rouge.

Et c'est à partir de cette feuille là qu'il faut exporter les résultats. Donc plus de la feuille Chrono mais bien de celle Chrono(2)

Le problème, c'est qu'au fur et à mesure des courses les onglets s'accumulent...

Je voudrais donc renommer les onglets en "Course1", "Course2"... je ne sais pas si c possible...

puis de ces feuilles là, exporter les résultats dans l'onglet "résultats"

Donc
Course1 => résultats
Puis
Course2 => résultats...

Je ne sais pas si cela est possible et cela complique la chose ! En tout cas j'ai fait moults essais et là je suis perdu...

Merci

soenda · 12 Octobre 2009

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

Bonjour Dace

Pour me faire pardonner mes bêtises d'hier, la Sub suivante:

- Crée une nouvelle feuille
- Nomme l'onglet Course Numero de course
- colore l'onglet en rouge
- Copie les résultats de la course dans cette feuille
- Puis, copie les résultats de la course dans la feuille "Résultats",à la suite des autres
(... sans oublis cette fois 🙂)

Code:

Sub CopieResultat()
 
    Feuil1.Range("F6:L" & Feuil1.[F65536].End(xlUp).Row).Copy
 
    Sheets.Add After:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = "Course" & Sheets.Count - 4
        .Tab.Color = 255
        .[A1].PasteSpecial xlPasteValues
    End With
 
    Feuil4.[A65536].End(xlUp)(2).PasteSpecial xlPasteValues
 
    Application.CutCopyMode = False
End Sub

A plus

Pb macro sélection spéciale + collage

Dace

Guest

Dace

Guest

soenda

XLDnaute Accro

Discussions similaires

Pb macro sélection spéciale + collage

Dace

Guest

Dace

Guest

soenda

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency