Programme ne répond plus

Bonjour à tous,

voici mon souci, à l'ouverture de mon userform segura et lors de la validation de mes données

le programme ne répond plus ??

Quelqu'un à une idée

Merci pour votre aide

10test.xlsm (293.10 Ko)

Bonjour Marc1972

C'est dû à l'ouverture du Workbook

conflit tu lui dis sélectionne la feuille Devis et ouvre en même temps l'usf de plus (l'onglet DEVIS est en majuscule)

Sub Workbook_Open()
Sheets("Devis").Select
SEGURA.Show
End Sub

ou à tester comme ceci

Sub Workbook_Open()
Sheets("DEVIS").Range("E2").Select ' par exemple
SEGURA.Show(0)
End Sub

ou celui ci-joint dans ce post (l'avantage de celui-ci c'est lors de l'ouverture du classeur ton USF s'ouvre et que tu peux travailler sur ta feuille DEVIS)

Sub Workbook_Open()
Sheets("DEVIS").Range("E2").Select ' par exemple
load SEGURA
SEGURA.show (0) ' ou  0 = vbmodeless
End Sub

crdlt,

André

6test-9.xlsm (273.99 Ko)

bonjour,

ton programme ne réponds plus car dans ta procédure de validation tu as une boucle sans fin, car la valeur de i ne change pas.

 i = 1
    Do While Cells(i, 1) <> ""
    Cells(i, 1).Offset(1, 1).Select
    i = i
    Loop

voici une proposition de correction

Private Sub CommandButton1_Click()
    Dim i As Integer
    If SEGURA.Nom = "" Or SEGURA.Adresse = "" Or SEGURA.CodePostal = "" Or SEGURA.Ville = "" Then
        MsgBox "Merci de Remplir tous les champs"
    Else
        Range("F1").Value = SEGURA.Nom.Value
        Range("F2").Value = SEGURA.Adresse.Value
        Range("F3").Value = SEGURA.Ville.Value
        Range("G3").Value = SEGURA.CodePostal.Value
        Range("F4").Value = SEGURA.Telephone.Value
        Unload SEGURA
    End If
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Select
End Sub

Merci pour vos reponses

Cela Fonctionne

Grand Merci

Dans mon userform1, bouton nouveauproduit1

j'essaie d'appliquer ce code, cela me detect bien que ma désignation existe mais quand je la change dans ma textbox1

j'ai toujours le même message........

Merci pour vos lumières

design = WorksheetFunction.Match(CStr(TextBox1.Value), .Range("A2:C" & .Range("A" & .Rows.Count).End(xlUp).Row), 0)

If design > 0 Then ' Alors

MsgBox "La désignation " & TextBox1 & " existe déjà." & Chr(13) & "Vous ne pouvez que la modifier.", 16

Exit Sub 'Fin

Else 'Puis

lgmod = WorksheetFunction.Match(CInt(TextBox3.Value), .Range("C2:C" & .Range("A" & .Rows.Count).End(xlUp).Row), 0)

If lgmod > 0 Then ' Alors

MsgBox "Le Modèle " & TextBox3 & " existe déjà." & Chr(13) & "Vous ne pouvez que la modifier.", 16

Exit Sub 'Fin

Else 'Puis

Lgref = WorksheetFunction.Match(CLng(TextBox5.Value), .Range("E2:E" & .Range("A" & .Rows.Count).End(xlUp).Row), 0)

If Lgref > 0 Then

MsgBox "La référence " & TextBox5 & " existe déjà." & Chr(13) & "Vous ne pouvez que la modifier.", 16

Exit Sub 'Fin

End If

End If

End If

On Error GoTo 0

If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then

derligne = .Range("A" & .Rows.Count).End(xlUp).Row + 1

For i = 1 To 7

.Cells(derligne, i) = Controls("TextBox" & i).Value

Next i

End If

End With

6test.xlsm (293.42 Ko)
Rechercher des sujets similaires à "programme repond"