Rebonsoir
Bravo! CBernardT une job de pro!
2 solutions pour le même prix
A=
Temjeh
Ps: Si tu me permet on peut modifié pour forcer les valeurs numéric sinon bug!!
Re: ' Boucle en cas de correction
' Boucle des 3 valeurs
For i = 1 To 3
retour:
Valeur = InputBox('Tapez le Taux de la Valeur ' & i, 'SAISIE DES DONNEES')
If IsNumeric(Valeur) Then
Tablo(i, 1) = Valeur ' Mise en mémoire des 3 valeurs
Else
MsgBox 'Pas de lettres ou de vide'
GoTo retour
End If
Next i
Message édité par: temjeh, à: 28/05/2006 00:13