For k = 1 To Sheets.Count
If Sheets(k).Visible = True Then x = x + 1
If x = 6 Then Sheets(k - 3).Visible = False: Exit For
Next

Ceci pour masquer si +de 5 onglets, je masque le 3eme onglet, au besoin
changer -3
A mettre en bas de ma précédente macro

Pour faire les listes c'est possible avec Userform mais faut savoir ou
chercher les données et comment sont-elles classées
Donne un exemple de tes entetes de colonnes...
Les données devis ou Facture sont-elles sur des onglets différents???
Faut-il prévoir chercher par client (je vois que tu as un historique)
ci-dessous cela me dit rien
> mon tableau en dessous sera comme ca les infos sont dans liste devis ,
> liste intervention et liste facture!!!:
>
> DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
> MONTANT REGLE

Youky


"picsounet" <picsounet***hotmail.com> a écrit dans le message de news:
eB3iSpA7IHA.2416***TK2MSFTNGP02.phx.gbl...
>
> Super merci cela fonctionne ,
> Est ce que vous auriez une solution pour ce nouveau problème ???
>
> j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
> choix entre devis , intervention et facture
> De ce menu ressortira dans le tableau en dessous tous les devis par
> exemple .
>
> Je vais essayer d'être plus claire : J'ai un historique client avec : mon
> client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
> les devis fait sur ce client
>
> mon tableau en dessous sera comme ca les infos sont dans liste devis ,
> liste intervention et liste facture!!!:
>
> DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
> MONTANT REGLE
>
>
> J'espère que c'est clair!!!! bon courage et mille fois merci vous me
> dépannez ENORMEMENT
>
>
>
>
> "Youky" <nospam.bruno.jeune***wanadoo.fr> a écrit dans le message de news:
> ujLGb086IHA.5820***TK2MSFTNGP04.phx.gbl...
>> Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
>> Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
>> Sheets(Sheets.Count - 1).......aux 2 lignes
>> Youky
>>
>> Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
>> fichier = ThisWorkbook.Name
>> Dim nf As String
>> an = Right(Year(Now), 2)
>> chemin = ThisWorkbook.Path
>> On Error Resume Next
>> canal = FreeFile
>> Open chemin & "\N°facture.txt" For Input As #canal
>> Input #canal, nf
>> Close #canal
>> If Left(nf, 2) = an Then
>> nf = CStr(an) & CStr(Right(nf + 1001, 3))
>> Else
>> nf = CStr(an) & CStr("001")
>> End If
>> Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
>> Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
>> Open chemin & "\N°facture.txt" For Output As #canal
>> Print #canal, nf
>> Close #canal
>>
>>>
>>>
>>
>>
>
>