Modification de code

Bonjour à tous,

J'ai fichier d'inscription à des activités pendant les vacances. Ce fichier fonctionne parfaitement et j'arrive à le modifier à chaque vacance en fonction du nombre d'activité que j'ai à proposer. La fonction imprim est très intéressante et me fait gagner un temps précieux.

Pour les prochaines activités, le tarif ne sera pas unique, il peut changer en fonction des activités. J'ai ajouté une ligne (ligne 5) avec les tarifs. La ligne 4 correspond au nombre de place disponible

Je n'arrive pas à avoir la somme avec un tarif différencié.

Merci d'avance

Bonjour,

Personne pour m'aider ?

Dommage, je vais continuer de chercher tout seul

Bonjour

Est ce que tu souhaites

Il suffit de mettre un X dans les cellules concernées

A+ François

Bonjour François,

Merci d'avoir regarder mais ce n'est pas exactement ce que je veux.

Lors de notre phase d'inscription, je n'utilise que le formulaire. Le tableau ne me sert que pour faire la liste des inscrits par activité via la fonction imprim, et mes bilans et stats.

Sur le formulaire, j'ai le nombre de place disponible pour chaque activité, et le prix total. Jusqu'à présent, touts les activités étaient à 2,50 donc plus simple.

Là, le tarif peut changer en fonction de l'activité.

Bonjour Richard58

Richard58 a écrit :

Bonjour à tous,

Pour les prochaines activités, le tarif ne sera pas unique, il peut changer en fonction des activités. J'ai ajouté une ligne (ligne 5) avec les tarifs. La ligne 4 correspond au nombre de place disponible

Je n'arrive pas à avoir la somme avec un tarif différencié.

Merci d'avance

21formulaire-inscription-printemps.xlsm (299.27 Ko)

Si j'ai bien compris, il suffit d'utiliser la fonction SOMMEPROD()

=SOMMEPROD(U3:CO3;U4:CO4)

@+

Merci BrunoM45,

Ce que je cherche, est le code VBA pour avoir le total dans le formulaire.

La formule SOMMEPROD me sert dans le tableau.

Re,

Il serait bien d'être un peu plus explicit dans votre demande la prochaine fois

J'ai modifié le code mais cela ne fonctionne pas.

Re,

Quand vous avez un nombre conséquent de contrôles comme dans votre fichier,
il est "obligatoire" de ce servir d'un module de classe

Une dizaine de ligne pour gérer tous les Checkbox

@+

BrunoM45,

Super merci !

Par contre, je n'ai plus la somme en bas de la colonne 95, mais je vais chercher

Bonjour,

J'ai modifié le fichier de BrunoM45, mais il y a un soucis.

Si quelqu'un peu prendre le temps de regarder, je suis preneur. Merci

Bonjour Richard58

Change la procédure dans ton UsF par celle là

Private Sub UserForm_Initialize()
  Dim x%, iNb%, sCol$
  Dim I As Integer, M As String

  ' en cas d'erreur
  On Error GoTo Erreur_Proc

  ' Instancier les évènements des Checkbox
  For I = 1 To 104
    Set Chk(I).Chk = Me("Checkbox" & I)
  Next I

ComboBox1.RowSource = "Menu!A2:A3"
ComboBox2.RowSource = "Menu!B2:B3"
'
With Worksheets("Enfant")
    For x = 1 To 104
        sCol = Split(.Columns(x + 20).Address(ColumnAbsolute:=False), ":")(1)
        iNb = WorksheetFunction.CountIf(.Range(sCol & "3:" & sCol & .Range(sCol & .Rows.Count).End(xlUp).Row), "X")
        Me.Controls("CheckBox" & x).Enabled = IIf(iNb >= .Range(sCol & 3).Value, False, True)
        Me.Controls("CheckBox" & x).Value = False
        Me.Controls("lNb" & x).Caption = CStr(.Range(sCol & 3).Value - iNb)
    Next
End With

Erreur_Proc:
  MsgBox "Erreur, le checkbox n° " & I & " n'existe pas !"
  Resume Next
End Sub

Tu verras, il te manque un certain nombre de CheckBox

@+

Merci BrunoM45

J'ai fait la vérif et j'ai modifié les CheckBox.

Par contre maintenant, il me dit qu'il manque la CheckBox105 alors qu'elle est présente.

Bonjour Richard58

Les boucles ne doivent être que de 1 à 104, pas plus

Il faut donc changer aussi (erreur que j'ai corrigé)

With Worksheets("Enfant")
    For x = 1 To 128

@+

Bonjour BrunoM45

Mon niveau est assez déplorable, je te remercie de prendre du temps pour m'aider dans mon problème.

J'essaie différentes choses, voilà où j'en suis et cela ne fonctionne pas.

J'aimerai le total (textbox21) apparaisse dans le tableau. Là aussi cela bloque.

Edit : après test, je me suis aperçu que j'ai dis n'importe quoi

Bonjour,

Bon là tu m'a complétement perdu. Je ne comprend plus rien du tout.

J'ai bien compris que tu voulais que je vois mes erreurs, mais j'ai décroché.

Crois tu que tu peux les résoudre ?

Vraiment merci d'avance

Salut Richard58

Après test et vérification, j'ai supprimé mon post précédent

Voici ton fichier avec le code qui fonctionne

On pourrait éventuellement apporter une petite amélioration

Quand on choisi la catégorie d'âge 5/7 ou 8/12,
normalement on ne devrait pas pouvoir cliquer sur la Checkbox d'un âge différent, non !?

@+

Bonjour,

Merci énormément.

Je préfère ne pas bloquer les box en fonction de l'âge, parfois on accepte des inscriptions de 5/7 en 8/12.

Re,

N'hésite pas à ouvrir un nouveau sujet en cas d'autre souci

@+