Modifier un code

Version imprimable

1 pièce(s) jointe(s)

Modifier un code

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:

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

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

Code:

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

21/01/2013, 12h57
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

Code:

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

21/01/2013, 13h16
maxval18

Re

JE TE REMERCIE BEAUCOUP

@+

MAX
21/01/2013, 13h25
mercatog

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

Code:

.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)
21/01/2013, 14h24
maxval18

Re,

Oui il y avait bien des #NA a la dernière ligne.

Merci et bonne après-midi

Max