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
Ah oui, si la hauteur du tableau est variable on peut déterminer le minimum et le maximum des numéros de classes :
Code:
Dim ClassUp As Long, ClassDn As Long 'variables mémorisées
'-----
Private Sub UserForm_Initialize()
ClassUp = Application.Max([NUMERO_DE_SALLE].Resize(Rows.Count - [NUMERO_DE_SALLE].Row))
ClassDn = Application.Min([NUMERO_DE_SALLE].Resize(Rows.Count - [NUMERO_DE_SALLE].Row))
TextBox102 = ClassDn
Classe
End Sub
Fichier (7).
Edit : des numéros de classes peuvent ne pas exister.
Bonjour maitre JOB75.
merci pour votre aide propre.
tes propositions sont toujours parfaites ,netes et aussi parfaites.
merci pour tous maitre.
bonne journee.
joyeux dimanche.
cordialement.
MARTI
Ah oui, si la hauteur du tableau est variable on peut déterminer le numéro de classe maximum :
Code:
Const ClassDn = 1 'mémorisé
Dim ClassUp 'variable mémorisée
'-----
Private Sub UserForm_Initialize()
ClassUp = Application.Max([NUMERO_DE_SALLE].Resize(Rows.Count - [NUMERO_DE_SALLE].Row))
If ClassUp < ClassDn Then TextBox102 = "" Else TextBox102 = ClassDn: Classe
End Sub
merci maitre JOB75.. merci pour votre patience et votre cher temps sacre pour resoudre mon probleme
je suis fier tres fier d'apprendre par vous maitre
merci encore
heureux et joyeux dimanche
cordialement
MARTI
Ce n'était pas complet, il faut traiter les cas où plus ou moins de 20 personnes sont inscrites dans une classe.
A l'ouverture de UserForm1 le tableau est trié sur le numéro de classe :
Code:
Private Sub UserForm_Initialize()
With [NUMERO_DE_SALLE].Resize(Rows.Count - [NUMERO_DE_SALLE].Row + 1)
ClassUp = Application.Max(.Cells)
ClassDn = Application.Min(.Cells)
.Offset(, -4).Resize(, 5).Sort .Cells, Header:=xlYes 'tri sur le numéro de classe
End With
TextBox102 = ClassDn
Classe
End Sub
Ce n'était pas complet, il faut traiter les cas où plus ou moins de 20 personnes sont inscrites dans une classe.
A l'ouverture de UserForm1 le tableau est trié sur le numéro de classe :
Code:
Private Sub UserForm_Initialize()
With [NUMERO_DE_SALLE].Resize(Rows.Count - [NUMERO_DE_SALLE].Row + 1)
ClassUp = Application.Max(.Cells)
ClassDn = Application.Min(.Cells)
.Offset(, -4).Resize(, 5).Sort .Cells, Header:=xlYes 'tri sur le numéro de classe
End With
TextBox102 = ClassDn
Classe
End Sub
Bonjour maitre JOB75
excellent travail d'un excellent professeur.
Bravo.
merci grand maitre.
je vous remercie pour ton suivie pour les sujets et continuation de faire comprendre tes eleves.
j'ai appris beaucoup de chose par toi ainsi que ta patience.
cordialement.
MARTI
Pour le fun, une autre façon de traiter le problème avec un seul formulaire et un nombre restreint de contrôles (mais pas d'élèves). Les tris ne sont pas obligatoires bien que prévus (et même avec effet bascule).
Pour le fun, une autre façon de traiter le problème avec un seul formulaire et un nombre restreint de contrôles (mais pas d'élèves). Les tris ne sont pas obligatoires bien que prévus (et même avec effet bascule).
Salut SI...
merci pour votre suggestion.
tres belle idee.
tres heureux de votre participation dans ce sujet.
j'ai une petite remarque : j'ai change les donnees dans (BD)..pourquoi le numero de salle dans l'usf s'arrete au numero 5 .
cordialement
MARTI
tout simplement parce que je n'avais pas prévu le cas.
Le nouveau fichier en tient compte mais il n'est pas abouti (je ne sais pas quel sera le contexte final).
J'y ai apporté quelques retouches de présentation (pas de n° de salle dans la liste, bouton caché au changement de salle).
A mon tour, une petite remarque: quand tu réponds, il est inutile de joindre le message concerné. Je trouve que cela complique la lecture. Passe plutôt par "Répondre".
bonjour SI...
merci pour votre impeccable fichier ..superbe idee
merci beaucoup
est ce qu'on peut svp faire une modification sur ce fichier pour enlever definitivemnt l'autofiltre..je veux travailler sur ce fichier sans autofiltre.
merci d'avance
cordialement
MARTI
Bonjour Forum ..
Bonjour a tous et toutes membres
Bonjour maitre JOB75
pour une derniere question dans ce meme sujet..un peu loin d'userform..si c'est possible voir svp ce fichier ..ma question dans (BD).
merci d'avance
Merci de consacrer une partie de votre temps pour resoudre mes problemes dans ce sujet qui m'interesse beaucoup.
merci pour tous
cordialement
MARTI