Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je
voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = False
End If
Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.value= 1
End If
If TypeOf OLEObj.Object Is MSForms.ScrollBar Then
OLEObj.value = 1
End If
mais marche pas ^^
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" a écrit dans le message de news:
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.value= 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.value = 1 End If mais marche pas ^^
Merci de votre aide
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" <pv84@yahoo.fr> a écrit dans le message de
news:eekAw9ZpEHA.692@TK2MSFTNGP12.phx.gbl...
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je
voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = False
End If
Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.value= 1
End If
If TypeOf OLEObj.Object Is MSForms.ScrollBar Then
OLEObj.value = 1
End If
mais marche pas ^^
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.value= 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.value = 1 End If mais marche pas ^^
Merci de votre aide
Philippe
Re ^^
en fait ca marche sans marcher comme il faut lol Les objets etaient groupés ensemble... si je les dégroupe ca marche mais il me sort une erreur "propriete ou methode non generer par cet objet" du coup j'ai rajouter un on error resume next et la ca passe mais c quand meme pas le top Si quelqu'un a une idee sur des objets groupé et/ou (plutot ET lol) sans erreur
Dim OLEObj As OLEObject On Error Resume Next For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.Value = 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.Object = 1 End If Next OLEObj
Merci et a tres bientot
"Philippe" a écrit dans le message de news:
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" a écrit dans le message de news:
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.value= 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.value = 1 End If mais marche pas ^^
Merci de votre aide
Re ^^
en fait ca marche sans marcher comme il faut lol
Les objets etaient groupés ensemble... si je les dégroupe ca marche mais il
me sort une erreur
"propriete ou methode non generer par cet objet"
du coup j'ai rajouter un on error resume next et la ca passe mais c quand
meme pas le top
Si quelqu'un a une idee sur des objets groupé et/ou (plutot ET lol) sans
erreur
Dim OLEObj As OLEObject
On Error Resume Next
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = False
End If
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.Value = 1
End If
If TypeOf OLEObj.Object Is MSForms.ScrollBar Then
OLEObj.Object = 1
End If
Next OLEObj
Merci et a tres bientot
"Philippe" <pv84@yahoo.fr> a écrit dans le message de
news:eZ4WMOapEHA.348@TK2MSFTNGP15.phx.gbl...
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" <pv84@yahoo.fr> a écrit dans le message de
news:eekAw9ZpEHA.692@TK2MSFTNGP12.phx.gbl...
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je
voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = False
End If
Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.value= 1
End If
If TypeOf OLEObj.Object Is MSForms.ScrollBar Then
OLEObj.value = 1
End If
mais marche pas ^^
en fait ca marche sans marcher comme il faut lol Les objets etaient groupés ensemble... si je les dégroupe ca marche mais il me sort une erreur "propriete ou methode non generer par cet objet" du coup j'ai rajouter un on error resume next et la ca passe mais c quand meme pas le top Si quelqu'un a une idee sur des objets groupé et/ou (plutot ET lol) sans erreur
Dim OLEObj As OLEObject On Error Resume Next For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.Value = 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.Object = 1 End If Next OLEObj
Merci et a tres bientot
"Philippe" a écrit dans le message de news:
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" a écrit dans le message de news:
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.value= 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.value = 1 End If mais marche pas ^^
Merci de votre aide
michdenis
Bonsoir,
Et ceci, est-ce satisfaisant ?
Dim OleObj As Object
For Each OleObj In ActiveSheet.OLEObjects If TypeOf OleObj.Object Is MSForms.CheckBox Then OleObj.Object = False ElseIf TypeOf OleObj.Object Is MSForms.TextBox Then OleObj.Object.Text = 1 ElseIf TypeOf OleObj.Object Is MSForms.ScrollBar Then OleObj.Object.Value = 1 End If Next OleObj
Salutations!
"Philippe" a écrit dans le message de news: Re ^^
en fait ca marche sans marcher comme il faut lol Les objets etaient groupés ensemble... si je les dégroupe ca marche mais il me sort une erreur "propriete ou methode non generer par cet objet" du coup j'ai rajouter un on error resume next et la ca passe mais c quand meme pas le top Si quelqu'un a une idee sur des objets groupé et/ou (plutot ET lol) sans erreur
Dim OLEObj As OLEObject On Error Resume Next For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.Value = 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.Object = 1 End If Next OLEObj
Merci et a tres bientot
"Philippe" a écrit dans le message de news:
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" a écrit dans le message de news:
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.value= 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.value = 1 End If mais marche pas ^^
Merci de votre aide
Bonsoir,
Et ceci, est-ce satisfaisant ?
Dim OleObj As Object
For Each OleObj In ActiveSheet.OLEObjects
If TypeOf OleObj.Object Is MSForms.CheckBox Then
OleObj.Object = False
ElseIf TypeOf OleObj.Object Is MSForms.TextBox Then
OleObj.Object.Text = 1
ElseIf TypeOf OleObj.Object Is MSForms.ScrollBar Then
OleObj.Object.Value = 1
End If
Next OleObj
Salutations!
"Philippe" <pv84@yahoo.fr> a écrit dans le message de news:uK4VIlapEHA.3900@TK2MSFTNGP10.phx.gbl...
Re ^^
en fait ca marche sans marcher comme il faut lol
Les objets etaient groupés ensemble... si je les dégroupe ca marche mais il
me sort une erreur
"propriete ou methode non generer par cet objet"
du coup j'ai rajouter un on error resume next et la ca passe mais c quand
meme pas le top
Si quelqu'un a une idee sur des objets groupé et/ou (plutot ET lol) sans
erreur
Dim OLEObj As OLEObject
On Error Resume Next
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = False
End If
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.Value = 1
End If
If TypeOf OLEObj.Object Is MSForms.ScrollBar Then
OLEObj.Object = 1
End If
Next OLEObj
Merci et a tres bientot
"Philippe" <pv84@yahoo.fr> a écrit dans le message de
news:eZ4WMOapEHA.348@TK2MSFTNGP15.phx.gbl...
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" <pv84@yahoo.fr> a écrit dans le message de
news:eekAw9ZpEHA.692@TK2MSFTNGP12.phx.gbl...
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je
voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = False
End If
Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.value= 1
End If
If TypeOf OLEObj.Object Is MSForms.ScrollBar Then
OLEObj.value = 1
End If
mais marche pas ^^
For Each OleObj In ActiveSheet.OLEObjects If TypeOf OleObj.Object Is MSForms.CheckBox Then OleObj.Object = False ElseIf TypeOf OleObj.Object Is MSForms.TextBox Then OleObj.Object.Text = 1 ElseIf TypeOf OleObj.Object Is MSForms.ScrollBar Then OleObj.Object.Value = 1 End If Next OleObj
Salutations!
"Philippe" a écrit dans le message de news: Re ^^
en fait ca marche sans marcher comme il faut lol Les objets etaient groupés ensemble... si je les dégroupe ca marche mais il me sort une erreur "propriete ou methode non generer par cet objet" du coup j'ai rajouter un on error resume next et la ca passe mais c quand meme pas le top Si quelqu'un a une idee sur des objets groupé et/ou (plutot ET lol) sans erreur
Dim OLEObj As OLEObject On Error Resume Next For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.Value = 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.Object = 1 End If Next OLEObj
Merci et a tres bientot
"Philippe" a écrit dans le message de news:
Petite précision
y a Dim OLEObj As OLEObject
au debut ^^
++
"Philippe" a écrit dans le message de news:
Salut a tous
Sur une feuille comportant plusieurs TextBox, CheckBox, ScrollBar je voudrais remettre a des valeurs predefini tout ceux-ci.
Donc sur le net j'ai bien trouver ça pour les checkbox For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.CheckBox Then OLEObj.Object = False End If Next OLEObj
du coup j'aimerais bien trouver un truc a inserer du style If TypeOf OLEObj.Object Is MSForms.TextBox Then OLEObj.value= 1 End If If TypeOf OLEObj.Object Is MSForms.ScrollBar Then OLEObj.value = 1 End If mais marche pas ^^
