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
Jacky
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item(x).Controls With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_--------------------------------
Sub FindControlID()
Dim B As Object, Nb As Integer
Nb = Application.CommandBars.Count
[A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb
For Each B In Application.CommandBars.Item(x).Controls
With [A65536].End(xlUp).Offset(1)
.Value = B.Caption
.Offset(, 1).Value = B.ID
End With
Next
Next
Range("A1:B1").EntireColumn.AutoFit
Set A = Nothing: Set B = Nothing
End Sub
'--------------------------------
Salutations
JJ
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:183501c4b6a9$fe2c7070$a501280a@phx.gbl...
Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item(x).Controls With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
ARGH... tu peux pas juste vite me donner l'ID "Outils" stp? merci ;-)
-----Message d'origine----- Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item (x).Controls
With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de
news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
.
ARGH... tu peux pas juste vite me donner l'ID "Outils"
stp? merci ;-)
-----Message d'origine-----
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_--------------------------------
Sub FindControlID()
Dim B As Object, Nb As Integer
Nb = Application.CommandBars.Count
[A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb
For Each B In Application.CommandBars.Item
(x).Controls
With [A65536].End(xlUp).Offset(1)
.Value = B.Caption
.Offset(, 1).Value = B.ID
End With
Next
Next
Range("A1:B1").EntireColumn.AutoFit
Set A = Nothing: Set B = Nothing
End Sub
'--------------------------------
Salutations
JJ
<anonymous@discussions.microsoft.com> a écrit dans le
message de
news:183501c4b6a9$fe2c7070$a501280a@phx.gbl...
Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
ARGH... tu peux pas juste vite me donner l'ID "Outils" stp? merci ;-)
-----Message d'origine----- Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item (x).Controls
With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de
news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
.
Modeste
Hey robot!!! tu pourrai pas te magner le c... ! et me donner maintenant mon salaire que je rentre tout de suite à la maison !!!
:-(((
-----Message d'origine----- Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item (x).Controls
With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de
news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
.
Hey robot!!!
tu pourrai pas te magner le c... !
et me donner maintenant mon salaire que je rentre tout de
suite à la maison !!!
:-(((
-----Message d'origine-----
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_--------------------------------
Sub FindControlID()
Dim B As Object, Nb As Integer
Nb = Application.CommandBars.Count
[A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb
For Each B In Application.CommandBars.Item
(x).Controls
With [A65536].End(xlUp).Offset(1)
.Value = B.Caption
.Offset(, 1).Value = B.ID
End With
Next
Next
Range("A1:B1").EntireColumn.AutoFit
Set A = Nothing: Set B = Nothing
End Sub
'--------------------------------
Salutations
JJ
<anonymous@discussions.microsoft.com> a écrit dans le
message de
news:183501c4b6a9$fe2c7070$a501280a@phx.gbl...
Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
Hey robot!!! tu pourrai pas te magner le c... ! et me donner maintenant mon salaire que je rentre tout de suite à la maison !!!
:-(((
-----Message d'origine----- Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item (x).Controls
With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de
news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
.
Clément Marcotte
ARGH... tu peux pas juste vite me donner l'ID "Outils" stp? merci ;-)
ICI CE SONT DES BÉNÉVOLES, PAS DES ESCLAVES. SI T'ES PAS CONTENT, T'AS RIEN QU'À REGARDER DANS LES PAGES JAUNES ET À TÉLÉPHONER À DES SOCIÉTÉS D'INFORMATIQUE QUI VONT SE FAIRE UN PLAISIR DE CHERCHER À TA PLACE ET DE T'ENVOYER UNE FACTURE.
ARGH... tu peux pas juste vite me donner l'ID "Outils"
stp? merci ;-)
ICI CE SONT DES BÉNÉVOLES, PAS DES ESCLAVES. SI T'ES PAS CONTENT, T'AS
RIEN QU'À REGARDER DANS LES PAGES JAUNES ET À TÉLÉPHONER À DES
SOCIÉTÉS D'INFORMATIQUE QUI VONT SE FAIRE UN PLAISIR DE CHERCHER À TA
PLACE ET DE T'ENVOYER UNE FACTURE.
ICI CE SONT DES BÉNÉVOLES, PAS DES ESCLAVES. SI T'ES PAS CONTENT, T'AS RIEN QU'À REGARDER DANS LES PAGES JAUNES ET À TÉLÉPHONER À DES SOCIÉTÉS D'INFORMATIQUE QUI VONT SE FAIRE UN PLAISIR DE CHERCHER À TA PLACE ET DE T'ENVOYER UNE FACTURE.
Hey calme! on m'a donné gentiment un code... mais je sais pas l'employer! je sais que je suis TRES nul! mais bon! Si c'est comme ça j'irai voir ailleurs!
En tout cas merci pour tout!
-----Message d'origine-----
ARGH... tu peux pas juste vite me donner l'ID "Outils" stp? merci ;-)
ICI CE SONT DES BÉNÉVOLES, PAS DES ESCLAVES. SI T'ES PAS CONTENT, T'AS
RIEN QU'À REGARDER DANS LES PAGES JAUNES ET À TÉLÉPHONER À DES
SOCIÉTÉS D'INFORMATIQUE QUI VONT SE FAIRE UN PLAISIR DE CHERCHER À TA
PLACE ET DE T'ENVOYER UNE FACTURE.
.
Hey calme! on m'a donné gentiment un code... mais je sais
pas l'employer! je sais que je suis TRES nul! mais bon! Si
c'est comme ça j'irai voir ailleurs!
En tout cas merci pour tout!
-----Message d'origine-----
ARGH... tu peux pas juste vite me donner l'ID "Outils"
stp? merci ;-)
Hey calme! on m'a donné gentiment un code... mais je sais pas l'employer! je sais que je suis TRES nul! mais bon! Si c'est comme ça j'irai voir ailleurs!
En tout cas merci pour tout!
-----Message d'origine-----
ARGH... tu peux pas juste vite me donner l'ID "Outils" stp? merci ;-)
ICI CE SONT DES BÉNÉVOLES, PAS DES ESCLAVES. SI T'ES PAS CONTENT, T'AS
RIEN QU'À REGARDER DANS LES PAGES JAUNES ET À TÉLÉPHONER À DES
SOCIÉTÉS D'INFORMATIQUE QUI VONT SE FAIRE UN PLAISIR DE CHERCHER À TA
PLACE ET DE T'ENVOYER UNE FACTURE.
.
anonymousA
c'est vrai que tu pourrais peut-être faire tourner le code. Comme tu pourrais toujours aller très très très très vite.
Hey robot!!! tu pourrai pas te magner le c... ! et me donner maintenant mon salaire que je rentre tout de suite à la maison !!!
:-(((
-----Message d'origine----- Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item (x).Controls
With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de
news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
.
c'est vrai que tu pourrais peut-être faire tourner le code. Comme tu pourrais
toujours aller très très très très vite.
Hey robot!!!
tu pourrai pas te magner le c... !
et me donner maintenant mon salaire que je rentre tout de
suite à la maison !!!
:-(((
-----Message d'origine-----
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_--------------------------------
Sub FindControlID()
Dim B As Object, Nb As Integer
Nb = Application.CommandBars.Count
[A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb
For Each B In Application.CommandBars.Item
(x).Controls
With [A65536].End(xlUp).Offset(1)
.Value = B.Caption
.Offset(, 1).Value = B.ID
End With
Next
Next
Range("A1:B1").EntireColumn.AutoFit
Set A = Nothing: Set B = Nothing
End Sub
'--------------------------------
Salutations
JJ
<anonymous@discussions.microsoft.com> a écrit dans le
message de
news:183501c4b6a9$fe2c7070$a501280a@phx.gbl...
Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
c'est vrai que tu pourrais peut-être faire tourner le code. Comme tu pourrais toujours aller très très très très vite.
Hey robot!!! tu pourrai pas te magner le c... ! et me donner maintenant mon salaire que je rentre tout de suite à la maison !!!
:-(((
-----Message d'origine----- Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item (x).Controls
With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de
news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
.
Jacky
30007 JJ
"Jacky" a écrit dans le message de news:
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item(x).Controls With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
30007
JJ
"Jacky" <delaenlevezjusquiciJacky.jaeg@wanadoo.fr> a écrit dans le message
de news:eFqKprqtEHA.1296@TK2MSFTNGP10.phx.gbl...
Bonjour
Ci-dessous un code de Michdenis pour lister tous les ID
_--------------------------------
Sub FindControlID()
Dim B As Object, Nb As Integer
Nb = Application.CommandBars.Count
[A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb
For Each B In Application.CommandBars.Item(x).Controls
With [A65536].End(xlUp).Offset(1)
.Value = B.Caption
.Offset(, 1).Value = B.ID
End With
Next
Next
Range("A1:B1").EntireColumn.AutoFit
Set A = Nothing: Set B = Nothing
End Sub
'--------------------------------
Salutations
JJ
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:183501c4b6a9$fe2c7070$a501280a@phx.gbl...
Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
Ci-dessous un code de Michdenis pour lister tous les ID
_-------------------------------- Sub FindControlID()
Dim B As Object, Nb As Integer Nb = Application.CommandBars.Count [A1].Resize(, 2).Value = Array("Caption", "ID")
For x = 1 To Nb For Each B In Application.CommandBars.Item(x).Controls With [A65536].End(xlUp).Offset(1) .Value = B.Caption .Offset(, 1).Value = B.ID End With Next Next Range("A1:B1").EntireColumn.AutoFit Set A = Nothing: Set B = Nothing End Sub '-------------------------------- Salutations JJ
a écrit dans le message de news:183501c4b6a9$fe2c7070$ Pardon, je me suis trompé!
Je voulais dire: quel est le numéro d'ID de "Outils"?
