Copier Coller dans une autre feuille

JORDAN

JORDAN

XLDnaute Impliqué
Bonjour le Fourm,

Voici mon petit problème du jour :

Je n'arrive pas à coller la sélection sur la 2ème page.
Mon fichier en PJ avec explications

Par avance merci
A+ [file name=CopierColler_20060125110458.zip size=12107]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopierColler_20060125110458.zip[/file]
 

Pièces jointes

  • CopierColler_20060125110458.zip
    11.8 KB · Affichages: 42
Trier par date Trier par votes
porcinet82

porcinet82

XLDnaute Barbatruc
Salut Jordan,

Regarde en PJ si la solution que je te propose te convient. JE n'est pas pris ton code; j'en ai refais un.

[file name=Jordan.zip size=12924]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jordan.zip[/file]

@+
 

Pièces jointes

  • Jordan.zip
    12.6 KB · Affichages: 83
  • Jordan.zip
    12.6 KB · Affichages: 86
  • Jordan.zip
    12.6 KB · Affichages: 84
Vote positif 0 Vote négatif
JORDAN

JORDAN

XLDnaute Impliqué
Re,

J'ai intégrer ton code dans mon fichier, et surprise, ça fonctionne presque bien, le code ne copie que la première ligne qu'il trouve et ne continue pas ça recherche.

Code: 
Private Sub CommandButton1_Click()

'declaration des variables
Dim NomFeuille As String
Dim C As Range
Dim Desti
Dim f As Worksheet
Dim Ligne As Variant
Dim selstr As String

Application.ScreenUpdating = False

NomFeuille = CdeAuto.CdeFournisseur.Value

For Each f In Worksheets
    If f.Name = NomFeuille Then
        MsgBox ('Une feuille nommée - ' & NomFeuille & ' - existe déjà')
        Exit Sub
End If
Next
    Sheets('COMMANDE').Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = NomFeuille
    Range('C3') = NomFeuille

Sheets('LIBRAIRIE').Select
Cells.Select
Selection.Sort Key1:=Range('F2'), Order1:=xlAscending, Key2:=Range('H2') _
    , Order2:=xlAscending, Key3:=Range('B2'), Order3:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal
Range('A1').Select
Sheets(NomFeuille).Select
Application.ScreenUpdating = True

Dim i As Byte

Application.Goto Sheets('RESULTAT').Range('A1')  ' RESULTAT -> Feuille de données à extraire
For i = 1 To Range('C65536').End(xlUp).Row
    If Cells(i, 3).Value = NomFeuille Then       ' NomFeuille -> Valeur de la ComboBox
        Range('A' & i & ':B' & i & ',D' & i).Select
        Selection.Copy
        Sheets(NomFeuille).Select
        Range('A9').Select
        If Cells(10, 1).Value = '' Then
            Cells(10, 1).Select
            ActiveSheet.Paste
            Sheets(NomFeuille).Select
        Else
            Selection.End(xlDown).Select
            Selection.Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets(NomFeuille).Select
        End If
    End If
Next i
End Sub

Sinon, connais tu un moyen pour que je te fasse parvenir mon fichier (Trop gros pour Excel-Downloads)

Merci
 
Vote positif 0 Vote négatif
JORDAN

JORDAN

XLDnaute Impliqué
Sans les bugs peut-être

Code: 
Private Sub CommandButton1_Click()

'declaration des variables
Dim NomFeuille As String
Dim C As Range
Dim f As Worksheet

Application.ScreenUpdating = False

NomFeuille = CdeAuto.CdeFournisseur.Value

For Each f In Worksheets
    If f.Name = NomFeuille Then
        MsgBox ('Une feuille nommée - ' & NomFeuille & ' - existe déjà')
        Exit Sub
End If
Next
    Sheets('COMMANDE').Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = NomFeuille
    Range('C3') = NomFeuille

Sheets('LIBRAIRIE').Select
Cells.Select
Selection.Sort Key1:=Range('F2'), Order1:=xlAscending, Key2:=Range('H2') _
    , Order2:=xlAscending, Key3:=Range('B2'), Order3:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal
Range('A1').Select
Sheets(NomFeuille).Select
Application.ScreenUpdating = True

Dim i As Byte

Application.Goto Sheets('RESULTAT').Range('A1')  ' RESULTAT -> Feuille de données à extraire
For i = 1 To Range('C65536').End(xlUp).Row
    If Cells(i, 3).Value = NomFeuille Then       ' NomFeuille -> Valeur de la ComboBox
        Range('A' & i & ':B' & i & ',D' & i).Select
        Selection.Copy
        Sheets(NomFeuille).Select
        Range('A9').Select
        If Cells(10, 1).Value = '' Then
            Cells(10, 1).Select
            ActiveSheet.Paste
            Sheets(NomFeuille).Select
        Else
            Selection.End(xlDown).Select
            Selection.Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets(NomFeuille).Select
        End If
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
JORDAN

JORDAN

XLDnaute Impliqué
Arf, encore un essai en 2 parties

Code: 
Private Sub CommandButton1_Click()

'declaration des variables
Dim NomFeuille As String
Dim C As Range
Dim f As Worksheet

Application.ScreenUpdating = False

NomFeuille = CdeAuto.CdeFournisseur.Value

For Each f In Worksheets
    If f.Name = NomFeuille Then
        MsgBox ('Une feuille nommée - ' & NomFeuille & ' - existe déjà')
        Exit Sub
End If
Next
    Sheets('COMMANDE').Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = NomFeuille
    Range('C3') = NomFeuille

Sheets('LIBRAIRIE').Select
Cells.Select
Selection.Sort Key1:=Range('F2'), Order1:=xlAscending, Key2:=Range('H2') _
    , Order2:=xlAscending, Key3:=Range('B2'), Order3:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal
Range('A1').Select
Sheets(NomFeuille).Select
Application.ScreenUpdating = True

Code: 
Dim i As Byte

Application.Goto Sheets('RESULTAT').Range('A1')  ' RESULTAT -> Feuille de données à extraire
For i = 1 To Range('C65536').End(xlUp).Row
    If Cells(i, 3).Value = NomFeuille Then       ' NomFeuille -> Valeur de la ComboBox
        Range('A' & i & ':B' & i & ',D' & i).Select
        Selection.Copy
        Sheets(NomFeuille).Select
        Range('A9').Select
        If Cells(10, 1).Value = '' Then
            Cells(10, 1).Select
            ActiveSheet.Paste
            Sheets(NomFeuille).Select
        Else
            Selection.End(xlDown).Select
            Selection.Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets(NomFeuille).Select
        End If
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
porcinet82

porcinet82

XLDnaute Barbatruc
Ouai je crois voir ou se situe le problème, en fait, le soucis vient du fait que le code est placé dans un module de feuille.

Donc modifie le code de la manière suivante et ca devrait fonctionné (bien entendu je te laisse le soin de remodifer les noms de feuilles et le texte qu'il faut recuperer dans la combo) :

Code: 
Private Sub CommandButton1_Click()
Dim i As Byte

Application.Goto Sheets('RESULTAT').Range('A1')  ' RESULTAT -> Feuille de données à extraire
For i = 1 To Range('C65536').End(xlUp).Row
    If Cells(i, 3).Value = 'HACHETTE' Then  ' NomFeuille -> Valeur de la ComboBox
        Range('A' & i & ':B' & i & ',D' & i).Select
        Selection.Copy
        Application.Goto Sheets('COLLAGE').Range('A9')
        If Sheets('COLLAGE').Cells(10, 1).Value = '' Then
            Sheets('COLLAGE').Cells(10, 1).Select
            ActiveSheet.Paste
            Sheets('RESULTAT').Select
        Else
            Selection.End(xlDown).Select
            Selection.Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets('RESULTAT').Select
        End If
    End If
Next i
End Sub

@+
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2021 Copier une cellule sur deux et coller dans une autre colonne
Réponses
5
Affichages
182
DJunqueira
D
P
  • Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
260
phoceenjo
P
Usine à gaz
  • Résolu(e)
XL 2021 Coller des données d'une page web OUVERTE vers feuille Excel
2 3
Réponses
43
Affichages
2 K
job75
job75
Usine à gaz
  • Question
XL 2021 Ecrire dans une autre feuille cas trop compliqué pour moi
2
Réponses
25
Affichages
712
job75
job75
K
  • Résolu(e)
Microsoft 365 Incrémenter des valeurs présentées à l'horizontale dans une autre feuille en verticale
Réponses
4
Affichages
193
kikilabrax
K
D
  • Question
XL 2016 Copier coller en transposant d'une feuille à l'autre
Réponses
3
Affichages
566
job75
job75
J
  • Question
Microsoft 365 Création Macro pour copier/coller en valeur dans une autre feuille.
Réponses
1
Affichages
601
Lolote83
L
O
  • Question
Microsoft 365 Copier coller valeur d'un tableau dans une nouvelle feuille
Réponses
5
Affichages
498
fanfan38
fanfan38
S
  • Question
XL 2016 Copier coller feuille dans un autre classeur excel
Réponses
8
Affichages
1 K
StanislasC
S
B
  • Question
Microsoft 365 Copier/coller d'un tableau sur un autre classeur
Réponses
8
Affichages
683
chris
chris

Membres actuellement en ligne

16 membres et 146 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 213
Messages
2 086 302
Membres
103 174
dernier inscrit
OBUTT