USF...besoin de votre aide pour l'écriture du code.

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide afin d'écrire le code de validation sur mon USF.
voir fichier...

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[tototiti2008]

Re : USF...besoin de votre aide pour l'écriture du code.

Bonjour Christian,

à tester :

Private Sub CommandButton2_Click() 'Bouton Valider
Dim Ligne As Long
    If Application.CountIf(Sheets("Paramètres").Range("T1:T65536"), Me.ComboBox1.Text) > 0 Then
        Ligne = Application.Match(Me.ComboBox1.Text, Sheets("Paramètres").Range("T1:T65536"), 0)
        Sheets("Paramètres").Range("U" & Ligne).Value = CDbl(Me.TextBox1)
    Else
        MsgBox "Service non trouvé"
    End If
    Me.Hide
End Sub

 

[Christian0258]

Re : USF...besoin de votre aide pour l'écriture du code.

Re, le forum, tototi2008,

Merci, tototi2008, pour ton aide si précieuse.
Peux-tu me dire, j'ai mis ton code dans le fichier USFV02, pourquoi ça ne fonctionne pas.

Bien à toi,
Christian

 

[tototiti2008]

Re : USF...besoin de votre aide pour l'écriture du code.

Re,

Parce que tu as mis le code dans un Module, il faut le mettre dans Userform1
Le code doit remplacer le code existant dans ton Userform1 pour le bouton Valider

 

[Christian0258]

Re : USF...besoin de votre aide pour l'écriture du code.

Re, le forum,

Oups, mes excuses,
ton code fonctionne parfaitement...c'est moi qui ne fonctionne pas bien... lol

Bien à toi,
Merci encore, tototiti2008.

Christian