XL 2010 Créer/Modifier/Valider des données avec useform pour évaluer en escalade

[deps]

Bonjour à tous

Actuellement j'utilise une feuille avec des formules pour réaliser une évaluation en escalade
Je souhaiterais connaitre comment créer (ajouter) ou modifier les données d'une feuille (récap) excel grâce à l'utilisation d'un useform que j'ai créé pour faire évoluer ce fichier.
Les infos dans l'useform valent des points, comment les comptabiliser ?
Je laisse un exemple en PJ.

Je vous remercie de votre aide

Cordialement
Deps

 

[Bebere]

bonsoir deps
fait quelques corrections et ajouts
regarde le code ds bouton ajouter une évaluation
ajout d'un bouton pour enlever les x
bouton valider/modifier
c1 et c2 fait en partie

 

[deps]

Bonsoir

j'ai ouvert la v10 et qd je clic sur modifie
message erreur
" Me.TextBox1 = CDbl(Me.TextBox6) + CDbl(Me.TextBox7) + CDbl(Me.TextBox15)"

a+
Deps

 

[Bebere]

bonjour deps,le forum
il faut changer les lignes entre if et else dans listbox4
dans la frame avec salle en début il n'y a pas n°voie
est ce normal

        If Ligne(1, 9) <> "" Then
            Me.TextBox11 = Ligne(1, 9)   'Salle
            Me.TextBox12 = Ligne(1, 10)   'secteur
            Me.TextBox13 = Ligne(1, 12)  'couleur
            Me.TextBox14 = Ligne(1, 13)  'couleur
            Me.TextBox15 = Ligne(1, 14)  'valeur
        Else

 

[deps]

Bonjour bebere, Forum

le bug apparait toujours

Me.TextBox1 = CDbl(Me.TextBox6) + CDbl(Me.TextBox7) + CDbl(Me.TextBox5)
textbox5 au lieu de 15

private Sub ListBox4_Click()
'tableau avec liste des enregistrements evaluation

Dim i As Long
If Me.OptionButton41 Then 'modifie
EffaceTextBox Me
i = Me.ListBox4.ListIndex + 4
Ligne = Feuil3.Range("A" & i & ":AD" & i).Value

Me.TextBox19 = Ligne(1, 2) 'nom
Me.TextBox3 = Ligne(1, 3) ' prenom
Me.TextBox18 = Ligne(1, 4) ' date naissance
Me.TextBox16 = Ligne(1, 6) 'classe
If Ligne(1, 5) = "M" Then Me.OptionButton38 = True 'sexe =m
If Ligne(1, 5) = "F" Then Me.OptionButton39 = True 'sexe =f
If Ligne(1, 7) = "oui" Then 'doublant=oui
Me.OptionButton36 = True: Me.TextBox17 = Ligne(1, 8)
ElseIf Ligne(1, 7) = "non" Then ' doublant = non
Me.OptionButton37 = True: Me.TextBox17 = ""
End If


If Ligne(1, 9) <> "" Then
Me.TextBox11 = Ligne(1, 9) 'Salle
Me.TextBox12 = Ligne(1, 10) 'num secteur
Me.TextBox21 = Ligne(1, 11) 'num voie
Me.TextBox13 = Ligne(1, 12) 'voiecouleur
Me.TextBox14 = Ligne(1, 13) 'couleur
Me.TextBox15 = Ligne(1, 14) 'valeur
Else
For i = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.List(i) = Ligne(1, 10) Then Me.ListBox2.ListIndex = i: Exit For
Next
d = LignePremier(Me.ListBox2.List(Me.ListBox2.ListIndex)): f = d + NbX(Me.ListBox2.List(Me.ListBox2.ListIndex))
'n° voie
Me.ListBox3.List = Feuil2.Range(Feuil2.Cells(d, 7), Feuil2.Cells(f, 7)).Value
Me.ListBox3 = ""
For i = 0 To Me.ListBox3.ListCount - 1
If Me.ListBox3.List(i) = Ligne(1, 11) Then Me.ListBox3.ListIndex = i: Exit For
Next

Me.TextBox20 = Ligne(1, 12) 'cotation
Me.TextBox8 = Ligne(1, 13) ' choix cotation
Me.TextBox9 = Ligne(1, 14) 'valeur
End If

'hauteur
If Ligne(1, 9) = 1 Then 'top
Me.OptionButton1 = True
ElseIf Ligne(1, 9) = "0,75" Then
Me.OptionButton2 = True
ElseIf Ligne(1, 9) = "0,66" Then
Me.OptionButton3 = True
ElseIf Ligne(1, 9) = "0,5" Then
Me.OptionButton4 = True
ElseIf Ligne(1, 9) = "0,33" Then
Me.OptionButton5 = True
ElseIf Ligne(1, 9) = 0 Then 'sol
Me.OptionButton42 = True
End If

'valeur c1
If Me.OptionButton1 = False Then
'c101
If Ligne(1, 20) = "0,25" Then
Me.OptionButton7 = True
ElseIf Ligne(1, 20) = "0,75" Then
Me.OptionButton6 = True
End If
'c102
If Ligne(1, 21) = "0,25" Then
Me.OptionButton11 = True
ElseIf Ligne(1, 21) = "0,5" Then
Me.OptionButton10 = True
End If
'c103
If Ligne(1, 22) = "0,125" Then
Me.OptionButton12 = True
ElseIf Ligne(1, 22) = "0,25" Then
Me.OptionButton13 = True
ElseIf Ligne(1, 22) = "0,5" Then
Me.OptionButton14 = True
End If
'c104 et suivant


End If

'valeur c2
'c201
If Ligne(1, 27) = 0 Then 'incorrect
Me.OptionButton35 = True
ElseIf Ligne(1, 27) = "0,25" Then 'correct
Me.OptionButton34 = True
End If
'c202
If Ligne(1, 28) = 1 Then 'oui
Me.OptionButton32 = True
ElseIf Ligne(1, 28) = "0,25" Then 'non
Me.OptionButton33 = True
End If
'c203 et suivant

End If

End Sub

Cdl
Deps

 

[Bebere]

bonjour Deps,le forum
dans userform
1er choix: valeur/12 textbox9
2ème choix: valeur/12 textbox15
note/12 textbox5
C1/4 textbox6
C2/4 textbox7
pour textbox1 dis moi ce qui doit se passer pour textbox 9 et 15 combiné avec les autres textbox 5,6,7

 

[deps]

Bonjour

la note sur 20 = realisation de la voie note/12 + note /4 (c1) + note /12 (c2)

textbox 1 = txbox 5 +tbox6 + txbox 7

texbox5 = txbox15 * coeff (top/1/4 etc)
ou
texbox5 = txbox9 * coef (tops...)

textbox5 prend la derniere valeur cliquee (txbox15 ou txbox9)

Deps

 

[Bebere]

bonjour deps,le forum
fait le code autrement voir sum1 et sum2

 

[deps]

Bonjour à tous

1- Hauteur réalisée

si Hauteur = top alors c1 (textbox6) changera selon les optionbutton cochés (et donc textbox 1 aussi)=> avec maxi notation 4/4
mais si hauteur <> top alors c1=0 (-et donc les option button 6/7/10/11/12/13/14/15/16/17/18/19/20/sont sur false)

2-feuille parametre
b48=1 (sinon impossible d'avoir c2=4/4) au lieu de 0.25

3- Bouton "enleve x"
je suppose que c'est pour effacer un x de la feuille listing eleve et donc replacer un élève à évaluer dans la listbox 1 et supprimer son evaluation dans feuille "recap" et de listbox4
Mais comment s utilise t il ?

4- est ce possible d'ajouter "Salle " dans la méthode 1 de recherche de voie ?
Afin que lorsque l'on enregistre dans recap, la cellule prenne une valeur

merci
Deps

 

[Bebere]

deps
pour le bouton enlever x,pour le moment il efface tous les x la colonne
pour faire comme tu l'expliques,le bouton(enlever x) mettra les noms ds listbox1,ensuite faire un choix et effacer x et effacer le choix ds recap
pour le point 4 il faut ajouter une textbox ou une listbox si tu as une liste de salle
y aura t'il des doublons nom prénom dans récap
pour top il faut remplacer optionbutton par une checbox ou le mettre ds une frame
ds une frame 1 seul optionbutton peut être à true
dis moi si ça te va

 

[deps]

Hello

1-Hauteur
ok pour moi pour remplacer les option button par checkbox ou frame

3-Bouton enlever x
ce bouton permet d'enlever une ou plusieurs lignes dans récap en cliquant dessus au cas par cas
Un bouton "vider récap" pourrait aussi servir à tous supprimer d'un coup sans utiliser 50 fois "enlever x"

4-Ajout de salles dans récap
dans la v 13 j'ai mis une txtbox pour afficher la salle utilisée

5- pas de doublon dans récap, une seule évaluation possible
mais ton idée peut être sympa avec une feuille "archive" qui récupère les infos de récap (ajouter une colonne date-heure de l'éval ?)

encore merci
deps

 

[Bebere]

bonsoir deps
ajout de 2 optionbutton pour effacer tous et effacer la sélection de la listbox + archive

 

[deps]

Bonjour

je ne vois pas les boutons sur le v-14 ?
est ce le bon fichier ?

"enleve x" ne fonctionne pas chez moi.

merci
Deps

 

[Bebere]

bonjour deps,le forum
excuses,mis le mauvais fichier

 

[deps]

Bonsoir Bebere

Je ne comprends pas comment fonctionnent les 2 boutons option .
efface selection et efface recap et x

je suppose que "efface sélection" =
la sélection correspond à la listbox4 (une évaluation qui a été enregistrée dans la feuille récap ? archive? les 2 ?

quand il n'y a plus de données dans récap, l'appli bug. ( erreur 1004)
un message "attention il n' y a plus de données à effacer" pourrait il être affiché à la place de ce message d 'erreur ?

merci
Deps

 

[Bebere]

bonjour deps,le forum
lorsque la listbox a des optionbutton ,efface les lignes qui sont cochées(efface sélection) et met dans archive
pour efface tout,faut il aussi mettre dans archive
une question
dans paramètres B20=1 pour top
que faut il faire de cette valeur( pour hauteur dans recap)