Modifier d'un code

[maval]

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?

Private Sub CommandButton6_Click()
UserForm1.Show
End Sub


' Copier/Coller 1er Table vers Trie
Private Sub CommandButton1_Click()

With Sheets("Tables").[C4:D200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With

End Sub

' Copier/Coller 2éme Table vers Trie
Private Sub CommandButton2_Click()

With Sheets("Tables").[H4:I200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With

End Sub

' Copier/Coller 3éme Table vers Trie
Private Sub CommandButton3_Click()

With Sheets("Tables").[M4:N200]
Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count) = .Cells.Value
Sheets("Trie").Select
End With
End Sub

' Copier/Coller 4éme Table vers Trie
Private Sub CommandButton4_Click()

With Sheets("Tables").[R4:S200]
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
Maval

 

[youky(BJ)]

Re : Modifier d'un code

Salut,
voici une solution
Bruno

 

[maval]

Re : Modifier d'un code

Bonjour Bruno,

Je te remercie de du code mais je ne comprend pas comment faire?

@+
Max

 

[grisan29]

Re : Modifier d'un code

bonjour youky(bj) ,maval où maxval

maval: évite de faire la meme demande sur différent forum
maxval : tu a résolu ton post sur developpez

Pascal