Textbox supprmer - modification code

Bonjour,

Je souhaite supprimer d'un userform la textbox7 et la remplacer par un label car il s'agira d'une donnée fixe (plus de champ à renseigner). Je joins le code qui existe pour l'instant avec le userform. J'ai réalisé des essais ; le code plante au niveau de :

For i = 1 To 18

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

Controls("TextBox" & i) = ""

Qui peut m'aider à apporter les modifications nécessaires afin que cela fonctionne. Merci pour votre aide.

Code :

Private Sub Cmd_Valider_Click()

If Cbb_Factures = TextBox3 Then

Flag = 1

Else

Flag = 0

End If

With Worksheets("Feuil2")

If TextBox5 = "" And TextBox6 = "" And TextBox7 = "" And TextBox8 = "" And TextBox9 = "" _

And TextBox10 = "" And TextBox11 = "" And TextBox12 = "" And TextBox13 = "" And TextBox14 = "" _

And TextBox15 = "" And TextBox16 = "" And TextBox17 = "" Then

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Then

MsgBox "Saisie incomplète." & Chr(13) & _

"Vous devez saisir le nom du fournisseur, le n° de la facture et le montant HT.", 17

Exit Sub

End If

'On vérifie que la facture n'existe pas dèjà sur la feuille

Set cell = .Range("C2:C" & .Range("C1").End(xlDown).Row).Find(TextBox3, lookat:=xlWhole)

If Not cell Is Nothing Then

MsgBox " La facture " & TextBox3 & " a déjà été prise en compte.", 17

Exit Sub

End If

Ln = .Range("A" & Rows.Count).End(xlUp)(2).Row

For i = 1 To 4

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

Next i

Else

Set cell = .Range("C2:C" & DerLn).Find(Cbb_Factures, lookat:=xlWhole)

If Not cell Is Nothing Then

Ln = cell.Row

For i = 1 To 18

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

Controls("TextBox" & i) = ""

Next i

End If

End If

MsgBox "Les données de la facture " & .Cells(Ln, "C").Value & " ont été prises en compte."

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

TextBox1.Text = CStr(Date)

End With

End Sub

Bonsoir,

Après réflexions et recherches, j'ai trouvé la solution. J'ai rebaptisé les textbox et ajusté le code. Bonne soirée.

Rechercher des sujets similaires à "textbox supprmer modification code"