Petit probleme de code"erreur non repertorie"

bonjour a tous

un membre du forum m'a donner ce code qui fonctionne tres bien.

je veut lui ajouter un bloc if et voila ca marche plus

pouvez vous eclairer ma lanterne?

merci.voila le code avec mon rajout

Private Sub ComboBoxpon_Change()
Dim Cel As Range
Dim Plage As Range
Dim Deb_Adr As String

  ListBoxnom.Clear
    If ComboBoxpon.ListIndex = -1 Then Exit Sub

    'ce que je rajoute:
    'je veu afficher tous les nom dans la listboxnom si la valeur de comboboxnom = ECR
    If ComboBoxpon.Value = "ECR" Then
    ListBoxnom.RowSource = "Feuil1!C2: C" & Cells(1, 1).End(xlDown).Row
    End If
   'a priori ca derange la boucle et me met une erreur sur listboxnom.clear
   'dès que je bascule de ECR a un autre!pourquoi?

  Set Plage = Range("B1:B" & Range("B65536").End(xlUp).Row)
  With Plage
    Set Cel = .Find(what:=ComboBoxpon, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Deb_Adr = Cel.Address

        Do
        ListBoxnom.AddItem Cel.Offset(0, 1)
        Set Cel = .FindNext(Cel)
      Loop While Not Cel Is Nothing And Cel.Address <> Deb_Adr
      End If

  End With

End Sub

si ce n'est pas suffisant je peut joindre le fichier

Bonjour

Envoie ton fichier STP

Amicalement

Nad

merci le voici..

userform en deux parties: celle du haut qui me pose quelque souci (code pour bouton "afficher tout "entre autre mais egalement le fait de vouloir afficher les resultat (grace a "visu doc " en bas a droit )

que a partir de A2

en effet A est reserver a mes noms de listboxnom1

mais bon un probleme a la fois

et celle du bas qui est pour le moment bonne

Re

Pour "Afficher Tout"

 If ComboBoxpon.Value = "Tout afficher" Then
    ListBoxnom.List = Range("C2:C" & Range("C65536").End(xlUp).Row).Value
    End If

Je regarde la suite.

Amicalement

Nad

Re

Code pour copier toute la liste 1 dans la liste 2

Private Sub CommandButton_ajoutertout_Click()
ListBoxnom1.Clear
For i = 0 To ListBoxnom.ListCount - 1
ListBoxnom1.AddItem (ListBoxnom.List(i))
Next
End Sub

Nad

TROP BIEN

un GRAND merci a toi ca fesait 2 jours que je me battais en essayant plein de solution

mais comme tu vois je suis qu'un novice

donc pour finir me reste plus qu'a afficher les noms et les entetes sous forme de tableau dans feuil2

et bien sur les renseignement qui leur sont propre

c'estb pas facile un ptit tout ptit coup de pouce et je t'en serai reconnaissant.

merci encore pour les 2 codes

Re

Vu que je ne comprends pas ce que tu attends, peux-tu inscrire manuellement ce que tu attends en disant les choix que tu as fais dans l'Userform.

A te relire

Nad

en click sur bouton"visualiser le documents"

les sélections de listboxnom1 s'inscrive dans feuil2 entre A2 et A...

les sélection de listboxrens1 s'inscrive dans feuil2 entre B1 et ..1

le tableau ainsi formé se rempli automatiquement de tous les renseignements demandés pour les nom donné

le but de la manoeuvre est que lorsque la haute administration me demande de remplir un de leur tableau

depuis ma base de donné je n'est plus qu'a copier/colle le tableau feuil2 dans le leur.

ainsi je gagne environ 2 jours de copier/coller du rens par rens.

je gere 200 personne et les champs de renseignement varie entre 70 et 80

ai-je été assez clair?

merci