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.