Discussion :

[maxval18]

Bonjour,

J'ai 4 codes qui fonctionne mais j'aimerai si possible les réduire en 1 seul code.

J'ai sur une feuille nommé "Tables" avec 4 parties .
Et autre une feuille nommé " Trie" ou je range sur deux colonnes .
Et j'ai quatre code pour copier vers la feuille "Trie" et j'aimerai pouvoir un seul code si possible?

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public plage
Private Sub CommandButton6_Click()
UserForm1.Show
End Sub
 
 
' Copier/Coller 1er Table vers Trie
Private Sub CommandButton1_Click()
plage = "C4:D200"
macopie
End Sub
 
' Copier/Coller 2éme Table vers Trie
Private Sub CommandButton2_Click()
plage = "H4:I200"
macopie
End Sub
 
' Copier/Coller 3éme Table vers Trie
Private Sub CommandButton3_Click()
plage = "M4:N200"
macopie
End Sub
 
' Copier/Coller 4éme Table vers Trie
Private Sub CommandButton4_Click()
plage = "R4:S200"
macopie
End Sub
Sub macopie()
With Sheets("Tables").Range(plage)
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With
End Sub

J'ai fait un Formulaire pour copier la partie rechercher.

Un fichier valant mieux qu'un long discours, veuillez trouver l'exemple sur la pièce jointe.

Merci de votre aide

Cordialement
Max

[mercatog]

Ajoute un bouton sur ton userform qui permet de copier la partie choisie

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
19
Private Sub UserForm_Initialize()
 
Me.ComboBox1.List = Array(1, 2, 3, 4)
End Sub
 
Private Sub CommandButton1_Click()
 
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
Dim Partie As Byte
 
If Me.ComboBox1.ListIndex > -1 Then
    Partie = Me.ComboBox1
    Worksheets("Trie").Range("F3:G203").Value = Worksheets("Tables").Cells(3, 5 * Partie - 2).Resize(200, 2).Value
    Unload Me
End If
End Sub

[maxval18]

Bonjour Mercatog

Je te remercie beaucoup Nickel

Juste un petit plus, j'aimerai si possible à la cellule "I3" de la feuille "Trie" avoir le N° de la partie.

Je te remercie beaucoup et te souhaite une bonne journée

Max

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton2_Click()
Dim Partie As Byte
 
If Me.ComboBox1.ListIndex > -1 Then
    Partie = Me.ComboBox1
    With Worksheets("Trie")
        .Range("F3:G203").Value = Worksheets("Tables").Cells(3, 5 * Partie - 2).Resize(200, 2).Value
        .Range("I3") = Partie
    End With
    Unload Me
End If
End Sub

[maxval18]

Re

JE TE REMERCIE BEAUCOUP

@+

MAX

[mercatog]

Juste une petite modification. Remplace la ligne correspondante par celle-ci

Code :

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

        .Range("F3").Resize(200, 2).Value = Worksheets("Tables").Cells(3, 5 * Partie - 2).Resize(200, 2).Value

Dans l'ancienne version, la plage de destination devrait s'arrêter en ligne 202 et non 203 (tu as des #NA en bas)