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

Christian0258 · 9 Février 2011

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 · 9 Février 2011

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

Bonjour Christian,

à tester :

Code:

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 · 9 Février 2011

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 · 9 Février 2011

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 · 9 Février 2011

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

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

Christian0258

XLDnaute Accro

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

tototiti2008

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

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

Christian0258

XLDnaute Accro

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

tototiti2008

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency