checkbox et feuilles dans tableau en boucle

N

Neptune

Guest

• 13 Octobre 2008

• #2

Re : checkbox et feuilles dans tableau en boucle

rebonjour,

Il faut peut être aussi lui dire que ref(i) est dans la feuille Result, non?

With ref(i) in Sheets("Result")...

 

Vote positif 0 Vote négatif

N

Neptune

Guest

• 13 Octobre 2008

• #3

Re : checkbox et feuilles dans tableau en boucle

Personne n'a d'idée? car mon programme fonctionne si je gère au cas par cas avec ce programme:

Private Sub ActivateRackUsed()

If CheckBoxLF41A.Value = True Then
derLigB = Sheets("LF41A").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
Set Plage = Sheets("LF41A").Range("B5:B" & derLigB)
Sheets("RackUsed").Range("C6:C" & derLigB).Value = Plage.Value
Sheets("RackUsed").Range("C6:C" & derLigB).HorizontalAlignment = xlCenter
End If

If CheckBoxLF42A.Value = True Then
derLigB = Sheets("LF42A").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
Set Plage = Sheets("LF42A").Range("B5:B" & derLigB)
Sheets("RackUsed").Range("C6:C" & derLigB).Value = Plage.Value
Sheets("RackUsed").Range("C6:C" & derLigB).HorizontalAlignment = xlCenter
End If

End Sub


Je souhaiterai, comme vous avez pu le voir dans mon premier message, le rendre plus souple avec une boucle en rentrant tout d'abord les valeurs des checkbox et feuilles dans des tableaux.

Je pourrais sinon continuer à faire pour mes 7 checkbox prévues les 7 cas avec à suivre mais le problème ce qu'à chaque condition les valeurs contenues dans les feuilles LF41A ou LF42A ne se mettent pas à la suite dans la feuille RackUsed si leurs checkbox associée est vraie.
Avec une boucle For Next, je pense que cela serait possible mais je bloque sur les tableaux.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 13 Octobre 2008

• #4

Re : checkbox et feuilles dans tableau en boucle

Bonjour Neptune,

Le mieux, si cela est possible, est de joindre un fichier avec ta demande.
C'est plus simple pour nous de voir ce que tu as déjà et de modifier le code 😉

A+

 

Vote positif 0 Vote négatif

N

Neptune

Guest

• 13 Octobre 2008

• #5

Re : checkbox et feuilles dans tableau en boucle

Oh oui bien sûr...ci-joint l'excel

 

Pièces jointes

• Copy of example_V4.zip

  32.8 KB · Affichages: 30

Vote positif 0 Vote négatif

N

Neptune

Guest

• 13 Octobre 2008

• #6

Re : checkbox et feuilles dans tableau en boucle

Encore moi, lol

Je vous ai rajouté un commentaire dans l'excel dans la feuille RackUsed en espérant que quelqu'un puisse m'aider...

Merci d'avance....

 

Pièces jointes

• Copy of example_V42.zip

  33.7 KB · Affichages: 34

Vote positif 0 Vote négatif

N

Neptune

Guest

• 13 Octobre 2008

• #7

Re : checkbox et feuilles dans tableau en boucle

Personne ne voit comment faire?

Je ne vois vraiment pas comment faire une boucle sur les sheets!en plus des checkbox!

Bon si jamais je me tape tout à taper pour chaque feuille lié au checkbox, comment réécrire les plages de ces feuilles à la suite dans la colonne C de la feuille RackUsed?

Please help...

 

Vote positif 0 Vote négatif

N

Neptune

Guest

• 14 Octobre 2008

• #8

Re : checkbox et feuilles dans tableau en boucle

Bonjour,

Euh j'ai posé une colle ou quoi? d'habitude j'ai des réponses dans la journée..

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 14 Octobre 2008

• #9

Re : checkbox et feuilles dans tableau en boucle

Bonjour Neptune,

Je pense que tu n'as pas eu de réponse car ton fichier exemple est difficile à extraire, il n'est pas reconnu comme un type de compression ZIP et j'ai du utiliser un autre outil pour le récupérer.

Sinon, une solution dans l'exemple ci-joint en définissant un numéro de ligne de départ et de fin, calculé selon le cas.

espérant t'avoir aidé.

@+

Gael

 

Pièces jointes

• Neptune_V1.xls

  120.5 KB · Affichages: 107

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 14 Octobre 2008

• #10

Re : checkbox et feuilles dans tableau en boucle

re,

Une remarque que j'ai oublié de mettre dans le fichier modifié:

Dans les 2 procédures Change() et dans la procédure Activaterackused(), ajoute les instructions suivantes pour éviter les affichages figaces de feuilles de données:

Code:

Private Sub CheckBoxLF41A_Change()
Application.ScreenUpdating = False
.
.
.
Application.ScreenUpdating = True
End Sub

@+

Gael

 

Vote positif 0 Vote négatif

N

Neptune

Guest

• 14 Octobre 2008

• #11

Re : checkbox et feuilles dans tableau en boucle

Super Merci Gael! Je savais bien qu'un Lochristois ne pouvait pas laissé en galère un Quimpérois... 🙂

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 14 Octobre 2008

• #12

Re : checkbox et feuilles dans tableau en boucle

Re,

Si un jour tu passes pas Lorient, n'hésite pas à me contacter, Quimper, ce n'est pas très loin.

@+

Gael

 

Vote positif 0 Vote négatif

N

Neptune

Guest

• 14 Octobre 2008

• #13

Re : checkbox et feuilles dans tableau en boucle

Je travaille en région parisienne maintenant mais je reste nénamoins Breton ,lol...

Gael , comment ferais tu pour remplacer ma commande:

Sheets("RackUsed").Range("C6:C65536").Clear

par la plage de cellule associée au checkbox?

En fait j'ai remarqué un ptit défaut dans mon programme...
Je souhaiterais que mes checkboxes une fois décoché fassent disparaitre la plage de cellule correspondante dans RackUsed.

Actuellement vu que je ne savais pas comment faire, j'efface tout.Du coup si je laisse la checkboxLF42A cochée et que je décoche ChekcBox LF41A tout disparait dans RackUsed.

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 14 Octobre 2008

• #14

Re : checkbox et feuilles dans tableau en boucle

Bonjour Neptune,

Tant pis pour la bretagne, mais si tu reviens à Quimper de temps en temps pense à Lochrist.

Ci-joint une V2 avec les améliorations souhaitées.

En fait, il suffisait de relancer la procédure Activaterackused() à chaque changement puisque son rôle est d'afficher les résultats en fonction des choix effectués.

J'ai modifié le range de la commande Clear pour n'effacer que les lignes utilisées au lieu de 65536 cellules et rajouté les screenupdating pour éviter les affichages intempestifs.

@+

Gael

 

Pièces jointes

• Neptune_V2.xls

  122.5 KB · Affichages: 58

Vote positif 0 Vote négatif

N

Neptune

Guest

• 14 Octobre 2008

• #15

Re : checkbox et feuilles dans tableau en boucle

Cool , Merci Gael. Il est fort possible que je fasse appel à toi dans les jours qui viennent pour de nouveaux blocages de ma part,lol.

A bientôt

 

Vote positif 0 Vote négatif