Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Gaboly
Re,
Remplace la version précédente de ControleSaisie par ce qui suit :
Private Sub ControleSaisie() Resultat = Controle(Qte = 0, "la ville.") ' Controle des autres éléments éventuels ' If Resultat Then Resultat = Controle(TNom = "", "le nom", TNom) ' If Resultat Then Resultat = Controle(... End Sub
Private Function Qte() As Integer Dim i As Integer, j As Integer For i = 0 To LInfos.ListCount - 1 If LInfos.Selected(i) Then Qte = Qte + 1 End If Next i End Function
Re,
Remplace la version précédente de ControleSaisie par ce qui suit :
Private Sub ControleSaisie()
Resultat = Controle(Qte = 0, "la ville.")
' Controle des autres éléments éventuels
' If Resultat Then Resultat = Controle(TNom = "", "le nom", TNom)
' If Resultat Then Resultat = Controle(...
End Sub
Private Function Qte() As Integer
Dim i As Integer, j As Integer
For i = 0 To LInfos.ListCount - 1
If LInfos.Selected(i) Then
Qte = Qte + 1
End If
Next i
End Function
Remplace la version précédente de ControleSaisie par ce qui suit :
Private Sub ControleSaisie() Resultat = Controle(Qte = 0, "la ville.") ' Controle des autres éléments éventuels ' If Resultat Then Resultat = Controle(TNom = "", "le nom", TNom) ' If Resultat Then Resultat = Controle(... End Sub
Private Function Qte() As Integer Dim i As Integer, j As Integer For i = 0 To LInfos.ListCount - 1 If LInfos.Selected(i) Then Qte = Qte + 1 End If Next i End Function