Bonjour a tous et a toutes les membres de ce merveilleux forum..bjr mes maitres
J'avais un soucis (comme d'habitude) qui m'a fait un vrai vertige ..simplement vos aides qui resoudre mon probleme mes cher maitres ..avec tous mes respects je me dirige vers vous pour essayer si vous pouvez biensure de m'aider pour modifie ce code assez fatigant ..
tout est explique dans ce degoutant classeur ..
merci d'avance
cordialement
MARTI
bonjour maitre BRUNO
merci pour l'aide
d'accord a vos ordre maitre je vais etre indiscret .. je vais ameliorer mon profil c'est promis
regardes svp ce classeur pourquoi ca marche pasavec cette position
cordialement
j'aime bien regarder ton bleu oeil
MARTI
Bonjour maitre JOB75.
merci pour votre explication et aide.
merci pour votre patience et temps sacre pour me faire comprendre .. t'es vraiment geant et excellent maitre.
ton passage toujours me donne l'espoir d'apprendre et comprendre.
ton passage maitre JOB75 me donne de la confiance qu'il viendra le jour où je serai capable de resoudre
mes soucis tout seul .
merci pour tous.
bonne journee.
c'est bien resolu
cordialement
MARTI
Maintenant on peut aussi entrer manuellement le numéro de classe dans sa TextBox :
Code:
Const ClassUp = 20, ClassDn = 1 'mémorisé
Private Sub TextBox102_Change()
Dim n As Variant
n = Int(Val(TextBox102))
If CStr(n) <> TextBox102 Or n < ClassDn Or n > ClassUp Then TextBox102 = ""
Classe
End Sub
Private Sub SpinButton1_SpinUp()
TextBox102 = Application.Min(Val(TextBox102) + 1, ClassUp)
End Sub
Private Sub SpinButton1_SpinDown()
TextBox102 = Application.Max(Val(TextBox102) - 1, ClassDn)
End Sub
Maintenant on peut aussi entrer manuellement le numéro de classe dans sa TextBox :
Code:
Const ClassUp = 20, ClassDn = 1 'mémorisé
Private Sub TextBox102_Change()
Dim n As Variant
n = Int(Val(TextBox102))
If CStr(n) <> TextBox102 Or n < ClassDn Or n > ClassUp Then TextBox102 = ""
Classe
End Sub
Private Sub SpinButton1_SpinUp()
TextBox102 = Application.Min(Val(TextBox102) + 1, ClassUp)
End Sub
Private Sub SpinButton1_SpinDown()
TextBox102 = Application.Max(Val(TextBox102) - 1, ClassDn)
End Sub
Bonsoir maitre JOB75..
merci pour ta patience avec tes eleves .. aussi mille fois merci pour ton propre travail
une derniere demande maitre dans ce sujet .. loin de ce code punible pour moi le debutant est ce que je peux pour l'userform1 trouver une autre solution pour remplir ces 100 textbox biensure les donnees seront toujours de (BD) .. une autre facon plus facile pour moi où je peux par exemple changer la position du tableau de donnee où que je veux .. une autre facon où je peux tenir compte simplement d'un nom du plage par exemple ou du numero de colonnes et lignes .. un code plus simple pour moi pour l'usf 1.
merci d'avance maitre JOB75.
merci pour tous.
ton passage me laisse soulager .
avec tous mes respets .. merci
cordialement
MARTi