Case à cocher sur excel VB

Résolu
nulle en VB -  
nulle en VB Messages postés 4 Date d'inscription   Statut Membre -
Bonjour,

Sur un fichier excel, j'ai un tableau à 2 entrées :
sur l'une : des tèmes
sur l'autre des % donnés

Pour illustrer :

thèmes/% 20% 30%...
atelier a b
chantier c d
...

Je voudrais trouver un moyen qui me permet de sélectionner un résultat (a ou b - c ou d...) par thème , par des cases à cocher ou des boutons options et d'additionner ces résultats sur une autre cellule.

J'espère avoir été suffisament clair...
Pouvez-vous m'aider ?? ... car je n'y connait rien ou pas grand-chose en macro ou VB
Merci!
Configuration: Windows XP
Internet Explorer 6.0

11 réponses

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Si tu ne vois pas bien les macros pourquoi ne pas faire cela avec des listes déroulantes de choix et des formules ?

    Mets une ébauche de classeur sur https://www.cjoint.com/index.php et on pourras t'aider.
    0
  2. nulle en VB
     
    Bonjour,

    J'ai mis un exemple concret dans le lien donné : https://www.cjoint.com/?fDlSJKK4rl

    Pour être plus précise, je voudrais que les résultats choisi par thèmes soit identifiés (par un changement de mise en forme par exemple) et qu'ils soient aditionnés dans la cellule "total retenu"

    Merci d'avance
    0
  3. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    J'ai l'impression que tu voulais te lancer en macro alors on commence avec deux petites :

    - une fonction dans un module pour totaliser les cellules de la même couleur.

    - une procédure événementielle qui colore les cellules choisies avec la couleur du total.

    J'ai supprimé la fusion du total car c'est source à problèmes en macros.

    Voici ton fichier : https://www.cjoint.com/?fDvmkGDgkZ

    Dis nous si cela te convient.
    0
  4. nulle en VB
     
    Bonjour,

    Merci pour ces info précieuses. C'est tout à fait ce que je recherche. Mais il me reste un problème qui n'apparait pas sur votre exemple :
    J'ai réussi à le reprendre pour mon fichier, mais le total se fait à l'envers !
    Je m'explique : au lieu de partir de 0 (aucune case n'est sélectionnée), je part du total de la plage de données.
    Un fois les cellules sélectionnées, leurs résultats sont déduits de ce total.
    Que dois-je faire ?
    Merci pour votre aide
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. nulle en VB Messages postés 4 Date d'inscription   Statut Membre
     
    Finalement j'ai résolu le problème en effectuant une soustraction.

    Mais un autre problème s'est présenté : quande je verrouille la feuille pour la protéger, le dégogage s'affiche ...

    Que puis-je faire ?

    Et pour l'améliorer, est-il possible de pouvoir ne sélectionner qu'une cellule par ligne ?

    Merci !!!
    0
  7. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    au lieu de partir de 0 (aucune case n'est sélectionnée), je part du total de la plage de données.
    Un fois les cellules sélectionnées, leurs résultats sont déduits de ce total.


    Tu as certainement raison de procéder ainsi : pourquoi faire simple quand on peut se permettre de compliquer !

    quande je verrouille la feuille pour la protéger, le dégogage s'affiche ... (sic)

    Pour verrouiller la feuille il y a un certain nombre de règles de procédure à respecter mais comme elles figurent dans l'aide excel et dans des dizaines de sujets du forum tu devrais les retrouver sans difficulté.

    Et pour l'améliorer, est-il possible de pouvoir ne sélectionner qu'une cellule par ligne ?

    C'est tout à fait possible. Lorsqu'il y a sélection d'une nouvelle cellule, à partir de sa ligne, il faut totaliser le nombre de cellules déjà sélectionnées et si le carré du cumul dépasse la limite supérieure des nombres négatifs, il suffit d'afficher un formulaire expliquant les règles de saisie et annulant la sélection erronée.
    0
  8. nulle en VB Messages postés 4 Date d'inscription   Statut Membre
     
    Bonjour,

    Merci pour toutes ces infos et de t'interesser à mon problème.

    J'ai déjà une bonne ébauche de mon fichier.

    Mais je n'arrive toujours pas à résoudre le problème de verrouillage de la feuille malgrès mes recherches sur le forum et l'aide excel.
    Lorsque je verrouille la feuille, le programme ne fonctionne plus et il me propose de déboguer la ligne suivante :
    sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex

    Pourtant la plage de cellules sur laquelle est effectuée la sélection et le programme, est déverrouillée.

    Que dois-je faire ? Merci de m'aider !!
    0
  9. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Pour utiliser des feuilles protégées, il faut les déprotéger avant modif puis reprotéger après
    0
  10. nulle en VB Messages postés 4 Date d'inscription   Statut Membre
     
    Re-bonjour,

    Le souci c'est que c'est un document qui est rempli par des commerciaux et je ne veux pas qu'ils puissent modifier certaines cellules (cellules qui ne sont pas concernées par le programme ci-dessus)
    Est-ce possible de verrouiller la feuille tout en gardant le programme, de manière à ce qu'il fonctionne en même temps ?
    0
  11. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Dans toutes tes macros qui modifient les feuilles, tu déprotèges avant de modifier:
        ActiveSheet.Unprotect

    puis avant de quitter ta macro tu protèges à nouveau
       ActiveSheet.Protect 

    Bien sûr, tu mets les paramètres que tu veux, mot de passe et autres :
    Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables
    0
  12. nulle en VB Messages postés 4 Date d'inscription   Statut Membre
     
    Re-

    Merci pour ton aide GBINFORME, sans toi je n'y serais jamais arrivée : tout fonctionne parfaitement !!
    0