Excel vba checkbox et combobox

Re,

essayez celui-ci, quelques modifs, mais pas significatives de votre anomalie

https://www.cjoint.com/?BImpnLWWamN

Re,

Je vous ai un peu modifie votre fichier, a vous de voir.

Pour lancer: onglet Accueil----> Bouton Départ

https://www.cjoint.com/?BImnDBI4i06

A+

Re,
Je recupere les fichiers et je vous tiens au courant.

A+

lien du fichier
https://www.cjoint.com/?BImlDQof6Gw
lien de la feuille excel a insérer
https://www.cjoint.com/?BImlFacn0an

Re,

Est-t-il possible d'avoir votre fichier avec seulement la creation des objets et votre bouton plus son code (peut-etre que vos donnees sont "sensibles") comme vous l'avez actuellement

lien https://www.cjoint.com/ et copier le lien de votre fichier

Ca marche toujours pas

Re,

Il faut eviter ActiveSheet quand vous naviguez sur plusieurs feuilles

 With WorkSheets("nom_de_votre_feuille")
    For i = 7 To total_ligne_tcd
      If .OLEObjects("CheckBox_" & i).Object.Value = True Then
        .OLEObjects("ComboBox_" & i).Visible = True
      End If
    Next i
  End With

A+

Re,

Je repete la question!!

ce bouton est dans la première feuille de mon classeur, ensuite mon tableau croisé dynamique se crée dans la seconde feuille de ce dernier...la génération du tcd ainsi que des checkbox marche (et même celle des combobox qd je les mets en visible = true)

Re,
Et ce bouton est bien sur la feuille de vos Comboboxs?????

il est lancé via un bouton auquel j'ai associé cette macro...

Re,

Ce morceau de code est lance comment??

Re

Cela ne fait rien... sans aucune erreur de compilation

Re,

Hélas ça ne marche toujours pas... Cela ne fait rien ou y a t-il une erreur.

Re,

Hélas ça ne marche toujours pas...j'ai aussi essayé en associant à ma checkbox une cellule qui récupère true or false et puis faire un test sur cette dernière mais toujours rien je ne comprend pas ce qui ne va pas :(

merci de votre aide

Re,

  For i = 7 To total_ligne_tcd
    If ActiveSheet.OLEObjects("CheckBox_" & i).Object.Value = True Then
      ActiveSheet.OLEObjects("ComboBox_" & i).Visible = True
    End If
  Next i

A+

Re,

Je regarde la chose.

A+

voila mon code entier

Sub auto()

Dim fichier1 As Variant
Dim total_ligne_tcd As Integer
Dim c As OLEObject
Dim d As OLEObject
Dim i As Integer
Dim ligne As Integer

fichier1 = Application.GetOpenFilename("Fichier (*.*), *.*")
If fichier1 = False Then
MsgBox "erreur de fichier Excel"
Exit Sub
End If
Workbooks.Open (fichier1)
Sheets("Smp99_Donnees").Select
Sheets("Smp99_Donnees").Activate
Sheets("Smp99_Donnees").Move _
Before:=Workbooks("Classeur1.xls").Sheets(3)

'Comptage du nombre d'arrets

Sheets("Smp99_Donnees").Select
ligne = 8
dat = Cells(ligne, 2)
Do While dat <> ""
ligne = ligne + 1
dat = Cells(ligne, 2)
Loop
total_ligne = ligne - 1
Range("B8").Select

'tableau dynamique

Sheets("Smp99_Donnees").Select
Range(Cells(7, 2), Cells(total_ligne, 40)).Select
ActiveWorkbook.Names.Add Name:="tcd_tcd", RefersToR1C1:= _
Range(Cells(7, 2), Cells(total_ligne, 40))
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"tcd_tcd").CreatePivotTable TableDestination:="Feuil2!R5C1", TableName:= _
"Tableau croisé dynamique", DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil2").Select
Cells(5, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique").PivotFields("Durée"), "Somme de Durée" _
, xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique").PivotFields("Type")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique").PivotFields("Zone")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique").PivotFields( _
"Evénement")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique").PivotFields( _
"Commentaire")
.Orientation = xlRowField
.Position = 4
End With

ActiveWorkbook.Sheets("Feuil2").Select
ligne = 7
dat = Cells(ligne, 5)
Do While dat <> ""
ligne = ligne + 1
dat = Cells(ligne, 5)
Loop
total_ligne_tcd = ligne - 1

For i = 7 To total_ligne_tcd

With ActiveSheet.Range("G" & i)
Set c = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
c.Name = "CheckBox_" & i
End With

With ActiveSheet.Range("H" & i)
Set d = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
d.Name = "ComboBox_" & i
d.Visible = False

End With
Next

End Sub

j'ai essayé avec

For i = 7 To total_ligne_tcd
If ActiveSheet.OLEObjects("CheckBox_" & i).Object.Value = True Then
ActiveSheet.OLEObjects("ComboBox_" & i).Object.Visible = True
End If
Next

mais ca ne marche tjs pas

Bonjour,

VBA de le feuille ou vous avez cree vos objets:

ex:

Private Sub checkbox1_Click()
ComboBox1.Visible = Not ComboBox1.Visible
End Sub

ou

Dans un module:

If Sheets(1).OLEObjects("CheckBox2").Object Then
Sheets(1).OLEObjects("Combobox1").Visible = True
End If

A+