Couleurs Poste de travail dans ListView
Bonjour,
... l'erreur " 35600 " quand je clic sur " VALIDER NOM " après avoir choisi un nom dans la ListView1. ...
Cette erreur provient du code qui titille si TextBox13 est vide.
Sur ton fichier de travail, est-ce que tu auras des textbox13 vides ?
Si oui, comment est-ce que tu veux gérer cela ?
- inscrire une valeur par défaut
- passer outre
- terminer la macro avec ou sans message à l'utilisateur.
- suspendre la macro et obliger l'utilisateur à saisir quelque chose (car, je ne sais si ce doit être un texte ou une valeur).
ric
Re,
Je viens de remplir les TextBox de la 5 à 13 en chiffre et la TextBox4 en lettre et c'est le même problème, toujours le même message d'erreur " 35600 "
Sur certains noms toutes les TextBox seront remplis et puis d'autres avec des TextBox vides.
Y à t'il une solution à ce problème ??
Balance58
Bonjour,
Ce sont des bouts de code qui étaient présent. Il y a une boucle qui va de 7 à 13 ce qui fait que les quelques textbox avant ne sont pas traités.
L'erreur 35600 est-elle présente sur le fichier que je t'ai envoyé ou sur ton fichier de travail ?
ric
Re,
Oui j'ai testé et j'ai la même erreur.
Lig = ListView1.ListItems(Lig).ListSubItems(13)
dans Private Sub Valide_part_Click()
Balance58
Bonjour,
Private Sub Valide_part_Click()
'valider
If TextBox2 = "" Then Exit Sub
With Feuil55
Lig = ListView1.SelectedItem.Index
Lig = ListView1.ListItems(Lig).ListSubItems(12)
col = Application.Match(Label57, .Rows(2), 0) + 3 ' ce Label57 est masqué ??
lg = Application.Match(TextBox2, [GC1:GC5000], 0)
If Not IsNumeric(lg) Then
TextBox18 = .Cells(Lig, col) + 1
If .Cells(Lig, col) = "" Then
TextBox19 = TextBox6
Else
TextBox19 = Val(TextBox19) + Val(TextBox6)
End If
End If
For k = 18 To 13
.Cells(Lig, col) = Controls("Textbox" & k).Value: col = col + 1
Next
For k = 4 To 13
ListView1.SelectedItem.SubItems(k - 1) = Controls("Textbox" & k)
Next
End With
Lig = Application.Match(TextBox2, [GC1:GC5000], 0)
If Not IsNumeric(Lig) Then Lig = [GC600].End(3).Row + 1
For k = 184 To 196
Cells(Lig, k) = Controls("TextBox" & k - 183).Value
Next
Cells(Lig, 183) = Label57 ' ce Label57 est masqué ??
Cells(Lig, 197) = Val(ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(12))
End Sub
J'ai cherché les textbox18 et 19 sans succès. Dois-je présumé que ce sont 8 et 9 ?
Je ne sais pas quels sont les traitements à faire,
Les informations me manquent ...
ric
Re,
Oui cela est bien les TextBox 8 et 9.
Comme je te l'ai dit, j'ai tellement fait de test avec plusieurs fichiers que voila j'ai oublier de modifier.
Balance58
Bonjour,
J'ai posé plusieurs questions auxquelles je n'ai pas eu de réponse.
Je ne sais pas si tu t'en balances. Mais, ça pèse dans la balance.
Je vais donc mettre fin à ma participation à ce projet.
Bonne continuité ...
ric
Bonjour Ric et le Forum,
Désolé pour ce manque d'informations.
Je te remercie pour toute l'aide que tu m'à apporter.
Bonne continuation.
et bon dimanche à toi et au Forum.
Balance58