Discussion :

[dreamsodfa]

Bonjour le forum;

Pour pouvoir choisie la au je veut TRANSFÉRER les donnée
je veut faire UNE RECTIFICATION DU MACRO ;SUR LE BOUTON TRANSFÉRER

JE VEUX INSÉRER LE FEUIL("SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE", "JANVIER") SUR LA LISTE DÉROULANTE
ET LE LIER AVEC LE BOUTON TRANSFÉRER.

Merci
LIER 1.xlsm

[anasecu]

Bonjour,

je veut faire UNE RECTIFICATION DU MACRO ;SUR LE BOUTON TRANSFÉRER

Regardes si c'est ce que tu souhaites avec ce code modifié

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
Private Sub CommandButton1_Click()
Dim der As Long
    Application.ScreenUpdating = 0
    With Sheets("data")
        der = .Cells(.Rows.Count, 4).End(xlUp).Row
        If .ComboBox1.ListIndex >= 0 Then
            .Range("D6:E" & der).Copy Sheets(.ComboBox1.Value).Range("B3:C" & der)
            MsgBox "Enregistré avec succès" & vbCrLf & "Cliquez sur OK pour fermer", Title:="Info"
 '-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
        Else
            MsgBox "Choisissez un mois"
        End If
    End With
 
End Sub

.

[dreamsodfa]

Bonjour,

[/CODE].

Re anasecu
C bien ça se que je chercher
Seulement un petit problème
Je veut pas que le macro Transfert les donner sur les nouvel feuil
Alors est il possible de Spécifier sur le code de la liste déroulent les feuil ou je vais faire le Transfert
merci

[anasecu]

Bonjour,

Je veut pas que le macro Transfert les donner sur les nouvel feuil

Pourrais-tu reformuler ce que tu recherches car je ne comprend pas ce que tu ne veux pas.