cde combobox

Question

Bonjour, voici mon code :

Private Sub creation_feuille_Click()


Dim Client As String
Dim Compte As String
Dim Emetteur As String
Dim anc_num As String
Dim nom_feuille As String
Dim Somme As String
Dim date_valeur As Date
Dim ligne_cde As Integer
Dim Num&#233;ro As Integer
Dim lignev&#233;rif As Integer
Dim v&#233;rif As Integer


Num&#233;ro = 0
anc_num = 0
Client = "rien"
Compte = 0
date_valeur = 0
Somme = 0
ligne_cde = 2
nom_feuille = "nvl feuille"
v&#233;rif = 0


Do
    lignev&#233;rif = 2
    Client = InputBox("entrer le destinataire du fax, l'ancienne entr&#233;e est: " & Client)
    Worksheets("fournisseurs").Activate


    Do


        If Worksheets("Fournisseurs").Cells(lignev&#233;rif, 1).Value = Client Then
            v&#233;rif = 1
        Else
            v&#233;rif = 0
        End If
        
        lignev&#233;rif = lignev&#233;rif + 1
    
    Loop Until Worksheets("Fournisseurs").Cells(lignev&#233;rif, 1).Value = ""


        If v&#233;rif = 0 Then
            MsgBox ("Le nom " & Client & " n'existe pas dans la feuille Fournisseur !!!!")
  
        End If
        


Loop Until v&#233;rif = 1
    
Compte = InputBox("entrer le compte destinataire")
Emetteur = InputBox("entrer vos initiales")


Worksheets("R&#233;cap cde").Activate


Do


Num&#233;ro = Worksheets("R&#233;cap cde").Cells(ligne_cde, 1).Value


    If Num&#233;ro = 0 Then
        Exit Do
    Else
        ligne_cde = ligne_cde + 1
    End If
    
anc_num = Num&#233;ro


Loop


nom_feuille = "Cde n&#176; " + anc_num


If anc_num <> 0 Then
Worksheets(nom_feuille).Visible = False
End If


anc_num = anc_num + 1


nom_feuille = "Cde n&#176; " + anc_num


Worksheets("Fax initial").Copy after:=Worksheets("R&#233;cap cde")
Worksheets("Fax initial (2)").Name = nom_feuille
Worksheets(nom_feuille).Activate
Worksheets(nom_feuille).Unprotect
Worksheets(nom_feuille).Cells(11, 4).Value = Client
Worksheets(nom_feuille).Cells(42, 5).Value = Compte
Worksheets(nom_feuille).Cells(44, 5).Value = Emetteur
Worksheets(nom_feuille).Protect
Worksheets(nom_feuille).Visible = True



Worksheets("R&#233;cap cde").Unprotect
Worksheets("R&#233;cap cde").Cells(ligne_cde, 1).Value = anc_num
Worksheets("R&#233;cap cde").Cells(ligne_cde, 2).Value = Client
Worksheets("R&#233;cap cde").Cells(ligne_cde, 5).Value = Compte
Worksheets("R&#233;cap cde").Cells(ligne_cde, 6).Value = Emetteur
Worksheets("R&#233;cap cde").Protect



End Sub

J'ais un souci, j'aimerais qu'une liste de mes fournisseurs s'affiche si le non entr&#233; en premier est pas correct. J'ai une seule  colonne sur une autre feuille nomm&#233;e "fournisseurs" avec 100 lignes. Comment je peux int&#233;grer cette solution &#224; l'endroit en rouge.

Merci

cs_CanisLupus · Answer

Salut
A mon avis il y a un probl&#232;me dans tes boucles do ... loop imbriqu&#233;es. Je te laisse chercher un peu. 
C'est comme &#231;a qu'on apprend.
Si tu ne vois toujours pas, je te donnerai un peu plus d'indications plus tard.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_vincezo · Answer

Rebonjour,
pour le probl&#232;me dans ma boucle, je suppose que tu mettrait une v&#233;rification d plus sur les conditions de sortie de boucle:

    Do


        If Worksheets("Fournisseurs").Cells(lignev&#233;rif, 1).Value = Client Then
            v&#233;rif = 1
        Else
            v&#233;rif = 0
        End If
        
        lignev&#233;rif = lignev&#233;rif + 1
        Loop Until Worksheets("Fournisseurs").Cells(lignev&#233;rif, 1).Value "" or v&#233;rif 1

Cela &#233;viterait d'aller jusqu'au bout du listing et de perdre ma donn&#233;e vis &#224; vis de la ligne et de sortir de la boucle lorsque je trouve le fournisseur.

Dis-moi si je me trompe.. Merci

@++

cs_CanisLupus · Answer

Tu as tout &#224; fait compris ! 
Ca marche mieux maintenant ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_vincezo · Answer

Sinon, du point de vue du combobox, je dois cr&#233;er un userform avec combobox, jusque l&#224; ok, mais apr&#232;s je n'arrive pas &#224; d&#233;finir le listing (colonne A feuille fournisseur) des donn&#233;es &#224; affich&#233;es. 
Je n'ais pas le choix du chemin, et a priori, il faut faire une boucle?!
L&#224;, je plante compl&#232;tement.
@++

Vincezo 26

Cde combobox

4 réponses

Discussions similaires