[resolu] [VBA] Cacher check box sous conditions

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [resolu] [VBA] Cacher check box sous conditions

merenptah44

Bonjour à tous,

je vous présente mon problème :
j'ai un tableau de données sur 11 colonnes (de la 3 à la 13)
sur la 14 la 15 et la 16 j'ai des checkboxes (pas dans un userform)
je souhaite que ces check box ne soit affiché que s'il y a des données dans toutes les colonnes de la ligne correspondante.

1- doit-je activer une macro créer à cet effet ("hidechk()" ) à chaque changement, ou il y a t'il une méthode moins couteuse en tps de calcul?
2-j'ai un problème lors de l'appel de "hidechk()" avec le message suivant :"select method of Checkbox class has failed"

voici le code avec lequel je crée mes box (un peu faignant)

Code :

Sub AddCheckBoxes()
Dim i, j As Integer
Application.ScreenUpdating = False
'Call erasecheck
For i = 3 To 12
For j = 14 To 16
Cells(i, j).Select
ActiveSheet.CheckBoxes.Add(Selection.Left, Selection.Top, Selection.Width, Selection.Height).Select
With Selection
.LinkedCell = Cells(i, j).Address
.Characters.Text = ""
.name = "chk" & i & j
End With
Next j
Next i
i = 13
For j = 14 To 16
Cells(i, j).Select
ActiveSheet.CheckBoxes.Add(Selection.Left, Selection.Top, Selection.Width, Selection.Height).Select
With Selection
.LinkedCell = Cells(i, j).Address
.Characters.Text = "All"
.name = "chk" & i & j
End With
Next j
Application.ScreenUpdating = True
End Sub

et celui qui me sert à verifier puis à cacher !

Code :

Public Sub hideboxes()
Dim i, j, k As Integer
Dim name As String
Dim cbox As CheckBox
For i = 3 To 12
MsgBox i
visibility = True
For j = 3 To 13
If Cells(i, j).Value = "" Then
visibility = False
End If
Next
For k = 14 To 16
name = "chk" & i & k
If visibility = False Then
ActiveSheet.CheckBoxes(name).Select
Selection.Visible = False
Else
ActiveSheet.CheckBoxes(name).Select
Selection.Visible = True
End If
Next
Next
End Sub

MsgBox i me sert à verifier à quel moment il plante, je vous le donne dans le mille, il m'affiche "3" puis plus rien...

mercid 'avance pour le ocup de main éventuel

Benjamin

Message édité par merenptah44 le 03-05-2007 à 15:01:22

Publicité

Paul Hood

Ton code fonctionne bien chez moi.
Il faut faire attention à ne pas créer plusieurs fois tes checkboxes CK33, etc....
Ton ADD crééà chaque fois les ckxx, alors que ton hide les caches seulement.

Message cité 1 fois
Message édité par Paul Hood le 02-05-2007 à 14:18:10

merenptah44

Paul Hood a écrit :

Ton code fonctionne bien chez moi.
Il faut faire attention à ne pas créer plusieurs fois tes checkboxes CK33, etc....
Ton ADD crééà chaque fois les ckxx, alors que ton hide les caches seulement.

et voila je me sens très con ...
j'a itout effacé bien proprement
en réaffichant tout ce qui avait pu être planqué
et là il tourne

cette erreur, comme tu le disais, arrive quand il y a deux chkbox du même nom, ou que la check n'existe pas d'ailleurs... pfff moitié pas fin moi...

sinon aurais tu une idée pour que j'éxécute la procedure hide_chk() afin qu'il ne me les cache plus quand il ne le doit plus ?
avec un worksheet_change ?

merci pour ta réponse au fait

Message édité par merenptah44 le 02-05-2007 à 15:04:44

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[resolu] [VBA] Cacher check box sous conditions

Sujets relatifs
[Résolu] Autorun ou menu DVD ?	[Résolu]Gestion des processus par le systeme d'exploitation ...
[Résolu] Lien sur page HTML qui lance un fichier EXE ?	[resolu]icher une image dont le lien se trouve dans une base de donnée
[Résolu] outil pour trouver les define ?	[resolu] probleme pour rentrer dans un if
Noob détected ! ouvrir un lien dans la meme page	[BATCH] Supprimer les " d'un string [résolu]
[resolu]Incrémenter une Plage de cellule avec range ?	[resolu] Mise à jour si modification d'une feuille
Plus de sujets relatifs à : [resolu] [VBA] Cacher check box sous conditions

Page générée en 0.039 secondes