VBA: Cocher automatiquement checkbox en fonction de chiffre

Version imprimable

Voir 40 message(s) de cette discussion en une page

11/04/2009, 10h30
Qwazerty

Salut
Pour le rows.count c'estfait pour le probleme ne peut pas venir de ca, c'est une erreur dema part il faut modifier ainsi

Code:

For each TheCell In Range(Cells(10,[C6].Vaue),cells(rows.Count,[C6].Value).End(xlup))

En faisant ainsi meme si tu augmente la taille de ton tableau le code sera toujours valide.

Autre chose

Code:

Sheets("Feuil1").OLEObjects("...

Il faut virer le sheets("Feuil1"). essais sans comme je t'ai mis dans mon code.
Si ca ne fonctionne pas essai comme ca

Code:

Target.Sheet.OLEObjects("...

Je suis pas chez moi, j'ai excel 2007 et j'arrive meme pas a ouvrir le vba:oops:... j'aime pas office 2007:aie:

A++
Qwaz
11/04/2009, 23h50
jp222

Non mais le Sheets("Feuil1") c'est pcq mon code est sur la feuil2 et les checkbox sont sur la feuil1 alors c pour avoir toute la référence et j'ai essayé, mais marche pas sans, mais merci pour l'info!

Et pour Rows.Count la valeur de cette variable m'affiche : 65536 !? même avec la modification du End(xlup) pourtant il n'y a rien dans les autres cellules, mon tableau fini à la ligne 19 et non à 65536 ! :P

Pour voir le code vba de la feuille, clic droit sur l'onglet de la feuille en question et clic "visualiser le code", mais effectivement c'est très mélangeant comme interface le nouveau excel 2007.
12/04/2009, 10h54
Qwazerty

Salut
Non, en faite rows.count te ressort toujours le max de ligne que ta version d'excel saist gerer (en itilisant ca tu fais en sorte d'etre compatible avec les futur version d'excel (deja 2007 en gere beaucoup plus).
Le .End(xlup) part de la cellule pointé (la derniere de la ligne si tu utilises .rows.count) et remonte la selection jusqu'a la derniere cellule non vide de cette ligne ;)
Donc utilises la ligne de code que je t'ai donné, elle permet de prendre en copte si tu rajoute des lignes a ton tableau.
Quand tu es sous excel dans le tableur, l'equivalent et de selectionner une cellule (la derniere par exmple et de taper sur Ctrl+Fleche haut.
A++
Qwaz
12/04/2009, 17h28
jp222

Salut,
T'as raison ça fonctionne bien avec ce code du

Code:

cells(rows.Count,[C6].Value).End(xlup))

C'est moi qui avait mal tester je pense.

Mais si par exemple je dois lui faire sauter une ligne avant la fin du tableau pour disons séparer des sections de checkbox, le code va planter, que faire?

Pcq j'ai 7 tableaux qui se suivent tous et qui sont sur les mêmes colonnes, mais qui sont séparer par une ligne pour désigner une autre section de checkbox.

Genre pour la section #1

Code:

OLEObjects("CheckboxA" & Thecell.Row - 9)...

Pour la section #2

Code:

OLEObjects("CheckboxB" & Thecell.Row - 9)...

etc...

Merci A+
12/04/2009, 19h19
Qwazerty

Salut
Ben dans ce ne sera pas facile de résoudre ton problème, car il faudrait récupérer la structure de ton tableau.
A++
Qwaz
12/04/2009, 19h40
jp222

Ou je peut tout simplement recopier le code 7 fois et changer juste le nom des checkbox pour CheckboxA pour la section 1 CheckboxB pour la section 2, etc et changer également dans le code OLEObjects("CheckboxA") OLEObjects("CheckboxB") etc et je met des valeurs fixe dans le Range donc au lieu de rows.count je met la valeur de fin.
Est-ce que ça serait valable?

Pour la structure de mon tableau elle est toujours la même : 3 colonnes et plusieurs ligne. Sauf que je saute la 20ème ligne pour ensuite passer à ma deuxième section de checkbox.
13/04/2009, 20h41
Qwazerty

Salut
Le mieux serait que tu fasses des essais pour trouver un système qui te convienne et si tu as des problèmes crée un nouveau poste, je ne botte pas en touche, mais le mieux reste d 'expérimenter et qui mieux que toi même est le plus apte a cela ? ;)
Aller bon codage.

A++
Qwaz

Salut,
Ok très bien merci 8-)

Mais petite question comme ça : j'ai 2 ou 3 caractères spéciaux autre que 1,2,3 ou 4 dans mon tableau et je fais un test au préalable avant pour déterminer s'il s'agit de chiffre ou de caractères spéciaux mais ceux-ci ne modifie ne modifie pas le checkbox peut importe que je change Value = True/False ou Enable = True/False... il reste grisé et non coché, pourtant je n'ai pas d'erreur de compilation. :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim Thecell As Range
...
   For Each Thecell In Range(Cells(3, [A1].Value), Cells(17, [A1].Value))
       'On met à jour un checkbox à la fois checkbox selon sa valeur à l'intérieur (1,2,3 ou 4)
       If Thecell.Value = 1 Or 2 Or 3 Or 4 Then
       Sheets("Plan Qualité").OLEObjects("CheckboxA" & Thecell.Row - 2).Object.Value = (Thecell.Value = 2 Or Thecell.Value = 4)
       Sheets("Plan Qualité").OLEObjects("CheckboxA" & Thecell.Row - 2).Object.Enabled = (Thecell.Value = 1 Or Thecell.Value = 2)
       'Si le checkbox comporte une valeur autre que 1,2,3 ou 4 alors...
       ElseIf Thecell.Value = ">100K" Or ">2G" Then
       Sheets("Plan Qualité").OLEObjects("CheckboxA" & Thecell.Row - 2).Object.Value = True       
       Sheets("Plan Qualité").OLEObjects("CheckboxA" & Thecell.Row - 2).Object.Enable = True
       End If
   'Prochain checkbox jusqu'au dernier
   Next

Merci.

14/04/2009, 06h44
Qwazerty

Salut
Il n'est pas possible de faire ainsi, il faut tester chaque egalité

Code:

If Thecell.Value >= 1 Or Thecell.Value <= 4 Then

A++
Qwaz

Voir 40 message(s) de cette discussion en une page