Salut

j'ai beau ajouté les réfférences comme tu l'a dit à Hennert mais dans les ventes, en cliquant sur période, on me dit que "l'objet ou la classe ne gere pas le groupe d'evenement".

Dans Adresse fecturation quand je clic sur l'option "Non" de adresse livraison idem..., Excel 2007 se plante.

y a t il une solution a ça ?

Sinon merci pour ton code, il est interressant !

Private Sub UserForm_initialize()
Worksheets("Famille").Activate
   [A3:h1000].Sort key1:=[b3]           ' Tri la BD
   Me.ChoixNom.List = Application.Transpose(Range([b3], [b65000].End(xlUp)))
   cfs.Visible = False
End Sub
Private Sub ChoixNom_Change()
   [b3].Offset(ChoixNom.ListIndex, 0).Select 'on selectione la cellule de l'element
                                             'du combobox
     '***********trnasfert des element de la feuille vers le formulaire***********
     Me.nom = ActiveCell
    
     Me.Fonction = ActiveCell.Offset(0, 1)
     Me.Service = ActiveCell.Offset(0, 2)
     Me.Location = ActiveCell.Offset(0, 3)
     Me.Extnum = ActiveCell.Offset(0, 4)
     Me.celNum = ActiveCell.Offset(0, 5)
     Me.Email = ActiveCell.Offset(0, 6)
    
  
  
    
End Sub
Private Sub b_validation_Click() '************** Valider la Modification
   '--- Contrôles
   If Me.nom = "" Then
      MsgBox "Saisir un nom!"
      Me.nom.SetFocus
      Exit Sub
   End If
  
   '--- Positionnement dans la base
   ActiveCell.Offset(0, -1).Select
   '--- Transfert Formulaire dans BD du fromulaire à la feuille d'excel
   ActiveCell.Offset(0, 1).Value = Me.nom
   ActiveCell.Offset(0, 2).Value = Me.Fonction
   ActiveCell.Offset(0, 3).Value = Me.Service
   ActiveCell.Offset(0, 4).Value = Me.Location
   ActiveCell.Offset(0, 5).Value = Me.Extnum
   ActiveCell.Offset(0, 6).Value = Me.celNum
   ActiveCell.Offset(0, 7).Value = Me.Email
  
   nettoie
   Unload Me
End Sub
Sub nettoie()  ' *****************Vider les textbox après modification
Me.nom = ""
   Me.Fonction = ""
   Me.Service = ""
   Me.Location = ""
   Me.Extnum = ""
   Me.celNum = ""
   Me.Email = ""
End Sub

Encore plus de commentaires svp!!!

C'est bien

a tu une idée sur comment faire pour une liste multicolonne ?
quelqu'un a t il une solution ?

Merci Bcp pour le conseil
j'ai besoin d'aide des personnes comme vous pour améliorer.

Les codes qui ne servent à rien, c'etait pour une autre fonctionalité que j'ai du supprimer, merci

Même chose aussi chez moi

bjr,
j'utilise le turbo pascal 5.5, en voulant executer ton code, on me dit qu'il est trop  grand il faut le découper. Peux tu le decouper en UNITS, que tu poura utiliser comme librairie dans le programme principal ?