Cellule de userform vide

[Gaby71]

Bonjour à tous

Pour demarrer ma macro, j'utilise un userform pour choisir une machine .

Je n'arrive pas à arreter le processus quand aucune machine n'a été inscrite

ci-joint mon fichier le plus reduit possible en esperant qu'il soit suffisant.

Merci d'avance

 

[camarchepas]

Re : Cellule de userform vide

Bonjour

Une toute petite modification :

Sub Create_Workbook_RPL()
UserForm1.Show
Dim nivurg As String
Dim controlemachine As Integer

'Récupérer le nom du fichier de la BdD
nom_BdD = ActiveWorkbook.Name

'UserForm1.Show
'If MsgBox("You're going to do an RPL", vbYesNo + vbQuestion, "Edit an RPL") = vbYes Then
'End If

controlemachine = 1
Do Until Workbooks(nom_BdD).Worksheets("famille 1").Range("B" & controlemachine).Value = designation Or controlemachine = 200
controlemachine = controlemachine + 1
Loop

If controlemachine = 200 Then
    MsgBox "This machine does not exist yet!"
    Exit Sub
End If

If controlemachine = 1 Then
    MsgBox " Please choose a machine"
    Exit Sub
End If


End Sub

 

[herve62]

Re : Cellule de userform vide

Bonjour ; salutation Camarchepas
J'ai refait à ma sauce
Faudrait encore modifier > Faut alimenter la Combo depuis la feuille et pas mettre en DUR !!! un jour ça cassera ( modif) !!

 

[herve62]

Re : Cellule de userform vide

Voilà temps qu'a faire !!
le remplissage est auto ! , pas besoin de mettre à la paluche les AddItem

 

[Gaby71]

Re : Cellule de userform vide

Bonjour

Merci à tous les deux .

Bonne journée