Boucle DO WHILE Résolu

Question

Bonjour, 

Je dois créer un programme sous excel 2007 permettant de rechercher un code client dans une feuille "Client" et en fonction de ce code, afficher toutes les données (nom, prénom, adresse, cp,...) dans un devis type facture.

Voici le début de mon programme : 

    Sub DEVIS()
        Dim codeclient As String
        Dim modepaiement As String
        Dim txremise As Single
        Dim montantHT As Single
        Dim montantTTC As Single
        Dim transport As Single
        Dim total As Single
        codeclient = InputBox("Veuillez saisir le code client : ", "SAISIE", 0)
        Worksheets("Devis").Cells(7, 5).Value = codeclient
        modepaiement = InputBox("Indiquez le mode de paiement : ", "SAISIE", 0)
        Worksheets("Devis").Cells(12, 2).Value = modepaiement
        Do while Worksheets("Devis").Cells(7, 5).Value <> Worksheets("Clients").Cells(i, 1).Value             
            Worksheets("Devis").Cells(7, 2).Value = Worksheets("Clients").Cells(i, 2).Value
            Worksheets("Devis").Cells(8, 2).Value = Worksheets("Clients").Cells(i, 3).Value
            Worksheets("Devis").Cells(8, 5).Value = Worksheets("Clients").Cells(i, 4).Value
            Worksheets("Devis").Cells(9, 2).Value = Worksheets("Clients").Cells(i, 5).Value
            Worksheets("Devis").Cells(9, 5).Value = Worksheets("Clients").Cells(i, 6).Value
            Worksheets("Devis").Cells(10, 2).Value = Worksheets("Clients").Cells(i, 7).Value
            Worksheets("Devis").Cells(10, 5).Value = Worksheets("Clients").Cells(i, 8).Value
        Loop
    End Sub
 
Ca bloque au niveau du DO WHILE.

Comment puis-je faire ?

Merci d'avance

Configuration: Windows 7 / Internet Explorer 10.0

Polux31 · Accepted Answer

Bonjour,

Voilà pour la recherche et la récupération des infos :

Sub RechercheClient()
Dim codeclient As String
Dim dLig As Long
Dim wsDevis As Worksheet
Dim wsClt As Worksheet
Dim i As Long

'On instancie les objets Worksheet
    Set wsDevis = ThisWorkbook.Worksheets("Devis")
    Set wsClt = ThisWorkbook.Worksheets("Clients")
    
    'Recherche de la dernière ligne "Clients"
    dLig = wsClt.Range("A" & Rows.Count).End(xlUp).Row
    
    'Saisie du code client par l'utilisateur
    codeclient = InputBox("Veuillez saisir le code client : ", "SAISIE", 0)
    
    'Boucle sur le num client
    For i = 1 To dLig
        'Si la ligne client est trouvée, on copie les données et on sort de la procédure
        If UCase(codeclient) = UCase(wsClt.Cells(i, 1).Value) Then
            wsDevis.Cells(7, 2).Value = wsClt.Cells(i, 2).Value
            wsDevis.Cells(8, 2).Value = wsClt.Cells(i, 3).Value
            wsDevis.Cells(8, 5).Value = wsClt.Cells(i, 4).Value
            wsDevis.Cells(9, 2).Value = wsClt.Cells(i, 5).Value
            wsDevis.Cells(9, 5).Value = wsClt.Cells(i, 6).Value
            wsDevis.Cells(10, 2).Value = wsClt.Cells(i, 7).Value
            wsDevis.Cells(10, 5).Value = wsClt.Cells(i, 8).Value
            Exit Sub
        End If
    Next i
    
    'libération des objets et de la mémoire
    Set wsDevis = Nothing
    Set wsClt = Nothing

End Sub

 
Il faut faire une autre procédure pour le reste du devis (MontantHT, MontantTTC etc ...)

;0)

hkaab · Answer

Bonjour ;

je crois que la commande Do While manque de fin de boucle le "END DO" a savouir votre logique programme.

bonne Chance.

laura54960 · Answer

Bonjour,

Merci de votre réponse.
En revanche, la commande do while se termine par le LOOP dans ce cas ci.

Boucle DO WHILE

3 réponses

Discussions similaires

Newsletters