A voir également:
- VB -Passage de tableau en paramaetre
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Vb cable - Télécharger - Audio & Musique
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
3 réponses
Voila !!
Option Explicit
Function IsTableauFull(ByRef Tableau() As Single) As Boolean
Dim index As Integer
IsTableauFull = True
index = 0
On Error Resume Next
Do
If Tableau(index) = 0 Then
If Err Then Exit Do
On Error GoTo 0
IsTableauFull = False
Exit Function
End If
index = index + 1
Loop
On Error GoTo 0
End Function
Private Sub Form_Load()
Dim test(10) As Single
test(0) = 1
test(1) = 9
test(2) = 8
test(3) = 7
test(4) = 10
test(5) = 0
test(6) = 8
test(7) = 7
test(8) = 10
test(9) = 10
test(10) = 1
MsgBox IsTableauFull(test)
End Sub
Option Explicit
Function IsTableauFull(ByRef Tableau() As Single) As Boolean
Dim index As Integer
IsTableauFull = True
index = 0
On Error Resume Next
Do
If Tableau(index) = 0 Then
If Err Then Exit Do
On Error GoTo 0
IsTableauFull = False
Exit Function
End If
index = index + 1
Loop
On Error GoTo 0
End Function
Private Sub Form_Load()
Dim test(10) As Single
test(0) = 1
test(1) = 9
test(2) = 8
test(3) = 7
test(4) = 10
test(5) = 0
test(6) = 8
test(7) = 7
test(8) = 10
test(9) = 10
test(10) = 1
MsgBox IsTableauFull(test)
End Sub
Utilisateur anonyme
24 févr. 2005 à 17:05
24 févr. 2005 à 17:05
Bonjour,
ton erreur réside dans le fait de dimensionner le tableau
dans la déclaration !
public function place(t(1 to MAX) as single) as boolean
si :
public function place(t() as single) as boolean
ici la fonction recoit 1 tableau mais ne renvoie que vrai ou faux !
elle ne modifie pas le tableau !
c'est comme : public function place(byval t() as single) as boolean
si :
public function place(byref t() as single) as boolean
ici le byref te permet de modifier le tableau !
la déclaration suivante devrait être suffisante :
public function place(t() as single) as boolean
( le ByVal étant implicite)
Lupin
ton erreur réside dans le fait de dimensionner le tableau
dans la déclaration !
public function place(t(1 to MAX) as single) as boolean
si :
public function place(t() as single) as boolean
ici la fonction recoit 1 tableau mais ne renvoie que vrai ou faux !
elle ne modifie pas le tableau !
c'est comme : public function place(byval t() as single) as boolean
si :
public function place(byref t() as single) as boolean
ici le byref te permet de modifier le tableau !
la déclaration suivante devrait être suffisante :
public function place(t() as single) as boolean
( le ByVal étant implicite)
Lupin