copier 2 feuilles Excel dans une autre feuille Excel - VBA

Version imprimable

19/01/2016, 15h45
Tralalala35

copier 2 feuilles Excel dans une autre feuille Excel - VBA

Bonjour à tous,

JE souhaite copier 2 feuilles Excel dans une autre feuille Excel et supprimer par la suite les 2ères feuilles pour n'avoir que la 3ème feuille.
J'ai créer 3 codes : un code pour importer la 1ère feuille, un code pour importer la 2ème feuille et un code pour copier coller les 2ères feuilles dans la 3ème feuille. Mes 3 codes fonctionnent individuellement.
Cependant, lorsque je souhaite regrouper les 3 codes sous un même code, je n'ai que 2 codes qui fonctionnent (les 2 codes pour importer).

Comment faire pour que la 3ème feuille apparaissent et que les 2ères feuilles disparaissent, s'il vous plaît?

Merci de votre réponse.
20/01/2016, 13h22
eric4459

Bonjour,
Envoies nous les trois codes créés on y jettera un œil.
Eric
20/01/2016, 14h49
Tralalala35

Bonjour,

Je vous remercie. J'ai trouvé la réponse entre temps, c'était juste un "mot de code" qui me posait problème.
En revanche, j'ai une autre question. Je dois créer un formulaire avec une liste dynamique : c'est à dire que je dois utiliser des données d'un autre onglet, les trier, enlever les doublons. Sur cette liste dynamique, je dois ne prendre qu'une seule donnée. Mon code pour le triage est ok. Mais pour les doublons, cela ne fonctionne pas. Avez vous quelque chose à proposer, s'il vous plaît?

Merci de votre réponse.

tralalala35
20/01/2016, 15h17
eric4459
Rebonjour,
Essayes ceci:
en mettant les données triées en A1 par exemple, les doublons seront éliminés et la liste collée en D1
Code:

1 2 3 Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Columns("A:A"), CopyToRange:=Range("D1"), _ Unique:=True
Eric
20/01/2016, 17h39
Tralalala35

Excusez-moi, j'ai quelques difficultés avec VBA. Ce n'est pas très intuitif pour moi. J'ai essayé de mettre votre code à l'intérieur de mon code. Mais cela ne fonctionne pas. Après étant donnée que je fais un formulaire, c'est peut être ça le problème.
quand j'ouvre mon formulaire, dans la liste, je n'ai pas mes données qui s'affichent. Est-ce lié?
20/01/2016, 17h49
eric4459

Rebonjour,
Copies ton code entre les balises, ce sera plus facile de comprendre.
Eric

Rebonjour,
Voici un code a intégrer dans ton fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Choix_pays_sans_Doublons()
 
Dim nbline As Integer
Dim nbline1 As Integer
 
 
With Sheets("CUSTOMER")
    nbline = .Cells(.Rows.Count, 11).End(xlUp).Row + 1 ' On compte le nombre de ligne de la colonne K (COUNTRY)
End With
 
 
Range("K2" & ":" & "K" & nbline).Copy 'On copie tous les pays
Range("O1").PasteSpecial 'Ici on les colle en colonne O
Range("O1" & ":" & "O" & nbline).RemoveDuplicates Columns:=1, Header:=xlNo 'On enlève les doublons
 
With Sheets("CUSTOMER")
    nbline1 = .Cells(.Rows.Count, 15).End(xlUp).Row + 1 ' On compte le nombre de ligne de la colonne ou ont été copies les pays sans doublons
End With
 
 
UserForm1.choix_1_pays.List = Sheets("CUSTOMER").Range("O1" & ":" & "O" & nbline1 - 1).Value 'On alimente l'UserForm avec les pays
 
End Sub

Ensuite tu peux écrire :

Code:

1
2
3
4
 
If UserForm1.choix_1_pays.Value =Range("O1") Then' Ici la condition est Si la valeur du ComboBox est "France" alors
'Ici tu ecrit le code pour les actions a realiser
End if

En espérant t'avoir aidé
Eric

21/01/2016, 15h27
Tralalala35

Bonjour, je vous remercie de votre aide. Cela fonctionne.

Bonne journée !

Tralalala35