Bug sur useforme
bonjour le forum je suis JMCR fil de GARDIAN absent pour un bon moment ,pour des raison de santé je me permets de venir vous voir car je m'occupe pour lui de sa logistique informatique
voila notre probléme nous avons un bug dans un useforme dans celui ci nous avons un boutons pour effacer les textbox et des label
aux total 17 mais voila j ai du effacé par erreur une ligne dans un macro mais j arrive pas a trouver l 'erreur voila le code en questions
Sub efface()
Dim i As Integer
For i = 1 To 11
If i <> 5 Then
Me.Controls("textbox" & i) = ""End If
Next
lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus
End Sub
si pouvez m'aidé a réparer ma bêtise
je vous en remercie par avance
Bonjour,
Vous écrivez pour effacer 17 or je vois la boucle For limitée à 11 ???
For i = 1 To 11
If i <> 5 Then
Me.Controls("textbox" & i) = ""End If
NextBonjour,
If i <> 5 Then
Me.Controls("textbox" & i) = ""
End IfTu as fusionné deux lignes...
Cordialement.
merci robjam ,m ferrand pour vos réponse j ai déjà essayé 17 aux lieu de 11 mais rien toujours même erreur
que doit ton faire pour corriger cette erreur cette fusion que j ai fait
merci pour votre aide
j ai essayer en avec cette formule même chose
Sub efface()
Dim i As Integer
For i = 1 To 17
If i <> 5 Then
Me.Controls("textbox" & i) = ""
End If
Next
lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus
End Sub
Vérifie les noms de tes TextBox, il faut que tu les aies tous, nommés de TextBox1 à TextBox17...
merci m ferrand j ai vérifier tout est ok de se coté
Si les noms sont bons, tu ne dois plus avoir d'erreur sur cette ligne !