Rapport de message :*
 

Re: Envoyer vers une feuille suivant le choix

Titre du sujet : Re: Envoyer vers une feuille suivant le choix
par myDearFriend! le 11/02/2011 23:44:25

Bonsoir apdf, le Forum,

Pas sûr d'avoir tout compris...

Je te propose toutefois de reprendre le classeur que je t'ai proposé ci-dessus et de modifier la procédure btnValider_Click() comme suit :
Private Sub btnValider_Click()
Dim I As Byte
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            With Sheets(ListBox1.List(I))
                .Range("E10").Value = UserForm1.txtNom.Text
                .Range("E11").Value = UserForm1.txtAdresse.Text
                .Range("E13").Value = UserForm1.txtCP.Text & " " & UserForm1.txtVille.Text
            End With
        End If
    Next I
End Sub

Cordialement,