Discussion :

[david5]

Bonjour à toutes et tous,

Est ce que quelqu'un peut éclairé ma lanterne. C'est juste quelques test que je fais.

Quand j'exécute la macro 1, elle récupère biens les données demandées, mais pas pour la macro 2.

Macro 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro1()
 
    Range("B2,D2,E2,F2,G2,H2,I2").Copy Worksheets("Doublon").Range("A1")
 
End Sub

Macro 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro2()
' Créer feuille Doublon
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "Doublon"
 
    Range("B2,D2,E2,F2,G2,H2,I2").Copy Worksheets("Doublon").Range("A1")
 
End Sub

Merci d'avance.

David

[SfJ5Rpw8]

Bonsoir,

comme dit et redit ... il ne faut jamais utiliser les objets Range, Cells, Columns... sans préciser le parent (feuille + classeur)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ThisWorkBook.WorkSheets("MA_FEUILLE_SOURCe").Range("B2,D2,E2,F2,G2,H2,I2").Copy ThisWorkBook.Worksheets("Doublon").Range("A1")

[david5]

Bonsoir bbil,

Merci pour ta réponse !

Ça fonctionne nickel. Mais le problème est que ça ne me donne qu'une ligne et pour moi il me faudrait toutes les lignes sachant que le nombre de ligne dans le classeur, peut varier de 2 à 200 lignes.

Que me proposerais tu de faire ?

J'avais penser avec ce code, mais le problème c'est qu'il ne fonctionne pas sur des sélections multiples.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro()
 
    ActiveSheet.Name = "Data"
 
    Dim Lg%, i%, fdata As Worksheet
    Set fdata = ActiveSheet
 
' Créer feuille Doublon
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "Doublon"
 
    With fdata
        Lg = .Cells(.Rows.Count, 2).End(xlUp).Row
        Application.ScreenUpdating = False
         ThisWorkbook.Worksheets("Data").Range("B2,D2,E2,F2,G2,H2,I2" & Lg).Copy ThisWorkbook.Worksheets("Doublon").Range("A1")
    End With
 
End Sub

Bien à toi et merci d'avance.



David

[patricktoulon]

Bonsoir

je me suis permis de mettre des commentaires suer chaque ligne de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro()
 
    ActiveSheet.Name = "Data" 'ok si tu veux on renomme le sheets actif
 
    Dim Lg%, i%, fdata As Worksheet
    Set fdata = ActiveSheet     ' ok si tu veux on se sert d'une variable  pour le sheets actif
 
' Créer feuille Doublon
    Sheets.Add after:=Sheets(Sheets.Count) 'ok on ajoute une feuille
    Sheets(Sheets.Count).Name = "Doublon" ' ok si tu veux on la nomme  doublon
 
    With fdata ' ok si tu veux on se sert donc de la variable sheets ya pas de soucis
        Lg = .Cells(.Rows.Count, 2).End(xlUp).Row  'ok on determine la derniere ligne utilisée en colonne B
        Application.ScreenUpdating = False  ' heu sa je vois pas trop non   lol et relol
         ThisWorkbook.Worksheets("Data").Range("B2,D2,E2,F2,G2,H2,I2" & Lg).Copy ThisWorkbook.Worksheets("Doublon").Range("A1") ' alors ca je sais pas ou tu es aller chercher ca  bon d'accords le copier coller c'est bien mais quand meme et puis tiens LOL encore une fois
    End With
 
End Sub

' Bon allez on fait un peu de menage si cela te derange pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub la_meme_en_mieux()
With ActiveSheet
.Name = "Data"
Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "Doublon"
 
.Range("B2:I" & .Cells(Rows.Count, 2).End(xlUp).row).Copy Destination:=Sheets("Doublon").[A1]
End With
End Sub

[david5]

Bonsoir Patricktoulon,

Merci pour ta réponse! Je viens de tester le code et c'est bien ce que je veux.

Mais,le problème c'est que la colonne C est nul non advenu. Puis que dans ta ligne de code, tu prends de B2:I, mais moi je veux B2 et D2:I.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("B2:I" & .Cells(Rows.Count, 2).End(xlUp).row).Copy Destination:=Sheets("Doublon").[A1]

Alors est possible ou pas, tel est ma question ?

Bien à toi.

[patricktoulon]

Ok
alors on supprime la C de la donne en utilisant union

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Union(.Range("B2", .Cells(Rows.Count, "B").End(xlUp)), .Range("D2" , .Cells(Rows.Count, "I").End(xlUp))).Copy Destination:=Sheets("Doublon").[A1]

j'ai pas tester mais ca doit etre ca