Bonjour,
Je d=E9veloppe une barre de cde avec des ic=F4nes en utilisant=20
la propri=E9t=E9 FaceId pour d=E9terminer l'image de l'ic=F4ne.
Ou puis je trouver la liste des Ic=F4nes avec leur N=B0=20
associ=E9s?
Merci d'avance.
Cordialement Jojo
Set NewBtn =3D CommandBars("Nettoyage").Controls.Add
(Type:=3DmsoControlButton)
With NewBtn
.FaceId =3D 1544
.OnAction =3D "EffaceTout"
.Caption =3D "Suppression de toutes les valeurs"
en principe ici http://disciplus.simplex.free.fr/classeursxl/icones-xl.zip
a+ rural thierry "Jojo" a écrit dans le message de news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn .FaceId = 1544 .OnAction = "EffaceTout" .Caption = "Suppression de toutes les valeurs"
Salut
en principe ici
http://disciplus.simplex.free.fr/classeursxl/icones-xl.zip
a+
rural thierry
"Jojo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 6bb501c3e662$e1f948a0$a601280a@phx.gbl...
Bonjour,
Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
.FaceId = 1544
.OnAction = "EffaceTout"
.Caption = "Suppression de toutes les valeurs"
en principe ici http://disciplus.simplex.free.fr/classeursxl/icones-xl.zip
a+ rural thierry "Jojo" a écrit dans le message de news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn .FaceId = 1544 .OnAction = "EffaceTout" .Caption = "Suppression de toutes les valeurs"
Emcy
Essaies ce classeur, http://www.excel-downloads.com/html/French/tele_clic.php? nom_fichier¯fichage%20Boutons
-----Message d'origine----- Bonjour, Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs" .
Essaies ce classeur,
http://www.excel-downloads.com/html/French/tele_clic.php?
nom_fichier=Affichage%20Boutons
-----Message d'origine-----
Bonjour,
Je développe une barre de cde avec des icônes en
utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
..FaceId = 1544
..OnAction = "EffaceTout"
..Caption = "Suppression de toutes les valeurs"
.
Essaies ce classeur, http://www.excel-downloads.com/html/French/tele_clic.php? nom_fichier¯fichage%20Boutons
-----Message d'origine----- Bonjour, Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs" .
Emcy
Oups le lien direct ne marche pas. Vas sur : http://www.excel-downloads.com/html/French/fichiers/utilitaires-date_maj-1.htm
et telecharges le classeur Affichage Bouton
"Emcy" a écrit dans le message de news:66d001c3e664$5af32c70$ Essaies ce classeur, http://www.excel-downloads.com/html/French/tele_clic.php? nom_fichier¯fichage%20Boutons
-----Message d'origine----- Bonjour, Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs" .
Oups le lien direct ne marche pas. Vas sur :
http://www.excel-downloads.com/html/French/fichiers/utilitaires-date_maj-1.htm
et telecharges le classeur Affichage Bouton
"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:66d001c3e664$5af32c70$a001280a@phx.gbl...
Essaies ce classeur,
http://www.excel-downloads.com/html/French/tele_clic.php?
nom_fichier¯fichage%20Boutons
-----Message d'origine-----
Bonjour,
Je développe une barre de cde avec des icônes en
utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
..FaceId = 1544
..OnAction = "EffaceTout"
..Caption = "Suppression de toutes les valeurs"
.
Oups le lien direct ne marche pas. Vas sur : http://www.excel-downloads.com/html/French/fichiers/utilitaires-date_maj-1.htm
et telecharges le classeur Affichage Bouton
"Emcy" a écrit dans le message de news:66d001c3e664$5af32c70$ Essaies ce classeur, http://www.excel-downloads.com/html/French/tele_clic.php? nom_fichier¯fichage%20Boutons
-----Message d'origine----- Bonjour, Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs" .
ChrisV
Bonjour Jojo,
Sub listeFacesID() Dim i As Integer, j As Integer, k As Integer Dim cbCtl As CommandBarControl, cbBar As CommandBar On Error Resume Next Application.ScreenUpdating = False Set cbBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:úlse, _ temporary:=True) Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, temporary:=True) k = 1 Do While Err.Number = 0 For j = 1 To 10 i = i + 1 Application.StatusBar = "FaceID=" & CStr(i) cbCtl.FaceId = i cbCtl.CopyFace If Err.Number <> 0 Then Exit For ActiveSheet.Paste Cells(k, j + 1) Cells(k, j).Value = i Next j k = k + 1 Loop Application.StatusBar = False cbBar.Delete Set cbBar = Nothing Set cbCtl = Nothing End Sub
ChrisV
"Jojo" a écrit dans le message de news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn .FaceId = 1544 .OnAction = "EffaceTout" .Caption = "Suppression de toutes les valeurs"
Bonjour Jojo,
Sub listeFacesID()
Dim i As Integer, j As Integer, k As Integer
Dim cbCtl As CommandBarControl, cbBar As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
Set cbBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:úlse, _
temporary:=True)
Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, temporary:=True)
k = 1
Do While Err.Number = 0
For j = 1 To 10
i = i + 1
Application.StatusBar = "FaceID=" & CStr(i)
cbCtl.FaceId = i
cbCtl.CopyFace
If Err.Number <> 0 Then Exit For
ActiveSheet.Paste Cells(k, j + 1)
Cells(k, j).Value = i
Next j
k = k + 1
Loop
Application.StatusBar = False
cbBar.Delete
Set cbBar = Nothing
Set cbCtl = Nothing
End Sub
ChrisV
"Jojo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 6bb501c3e662$e1f948a0$a601280a@phx.gbl...
Bonjour,
Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
.FaceId = 1544
.OnAction = "EffaceTout"
.Caption = "Suppression de toutes les valeurs"
Sub listeFacesID() Dim i As Integer, j As Integer, k As Integer Dim cbCtl As CommandBarControl, cbBar As CommandBar On Error Resume Next Application.ScreenUpdating = False Set cbBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:úlse, _ temporary:=True) Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, temporary:=True) k = 1 Do While Err.Number = 0 For j = 1 To 10 i = i + 1 Application.StatusBar = "FaceID=" & CStr(i) cbCtl.FaceId = i cbCtl.CopyFace If Err.Number <> 0 Then Exit For ActiveSheet.Paste Cells(k, j + 1) Cells(k, j).Value = i Next j k = k + 1 Loop Application.StatusBar = False cbBar.Delete Set cbBar = Nothing Set cbCtl = Nothing End Sub
ChrisV
"Jojo" a écrit dans le message de news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn .FaceId = 1544 .OnAction = "EffaceTout" .Caption = "Suppression de toutes les valeurs"
Jojo
Bonjour Chris, Merci pour le tuyau! A+ Jojo
-----Message d'origine----- Bonjour Jojo,
Sub listeFacesID() Dim i As Integer, j As Integer, k As Integer Dim cbCtl As CommandBarControl, cbBar As CommandBar On Error Resume Next Application.ScreenUpdating = False Set cbBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:úlse, _
temporary:=True) Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, temporary:=True)
k = 1 Do While Err.Number = 0 For j = 1 To 10 i = i + 1 Application.StatusBar = "FaceID=" & CStr(i) cbCtl.FaceId = i cbCtl.CopyFace If Err.Number <> 0 Then Exit For ActiveSheet.Paste Cells(k, j + 1) Cells(k, j).Value = i Next j k = k + 1 Loop Application.StatusBar = False cbBar.Delete Set cbBar = Nothing Set cbCtl = Nothing End Sub
ChrisV
"Jojo" a écrit dans le message de
news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs"
.
Bonjour Chris,
Merci pour le tuyau!
A+ Jojo
-----Message d'origine-----
Bonjour Jojo,
Sub listeFacesID()
Dim i As Integer, j As Integer, k As Integer
Dim cbCtl As CommandBarControl, cbBar As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
Set cbBar = CommandBars.Add(Position:=msoBarFloating,
MenuBar:=False, _
temporary:=True)
Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton,
temporary:=True)
k = 1
Do While Err.Number = 0
For j = 1 To 10
i = i + 1
Application.StatusBar = "FaceID=" & CStr(i)
cbCtl.FaceId = i
cbCtl.CopyFace
If Err.Number <> 0 Then Exit For
ActiveSheet.Paste Cells(k, j + 1)
Cells(k, j).Value = i
Next j
k = k + 1
Loop
Application.StatusBar = False
cbBar.Delete
Set cbBar = Nothing
Set cbCtl = Nothing
End Sub
ChrisV
"Jojo" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 6bb501c3e662$e1f948a0$a601280a@phx.gbl...
Bonjour,
Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
..FaceId = 1544
..OnAction = "EffaceTout"
..Caption = "Suppression de toutes les valeurs"
Sub listeFacesID() Dim i As Integer, j As Integer, k As Integer Dim cbCtl As CommandBarControl, cbBar As CommandBar On Error Resume Next Application.ScreenUpdating = False Set cbBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:úlse, _
temporary:=True) Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, temporary:=True)
k = 1 Do While Err.Number = 0 For j = 1 To 10 i = i + 1 Application.StatusBar = "FaceID=" & CStr(i) cbCtl.FaceId = i cbCtl.CopyFace If Err.Number <> 0 Then Exit For ActiveSheet.Paste Cells(k, j + 1) Cells(k, j).Value = i Next j k = k + 1 Loop Application.StatusBar = False cbBar.Delete Set cbBar = Nothing Set cbCtl = Nothing End Sub
ChrisV
"Jojo" a écrit dans le message de
news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs"
.
Jojo
Merci Thierry A+ Jojo
-----Message d'origine----- Salut
en principe ici http://disciplus.simplex.free.fr/classeursxl/icones-xl.zip
a+ rural thierry "Jojo" a écrit dans le message de
news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs"
.
Merci Thierry
A+ Jojo
-----Message d'origine-----
Salut
en principe ici
http://disciplus.simplex.free.fr/classeursxl/icones-xl.zip
a+
rural thierry
"Jojo" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 6bb501c3e662$e1f948a0$a601280a@phx.gbl...
Bonjour,
Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
..FaceId = 1544
..OnAction = "EffaceTout"
..Caption = "Suppression de toutes les valeurs"
en principe ici http://disciplus.simplex.free.fr/classeursxl/icones-xl.zip
a+ rural thierry "Jojo" a écrit dans le message de
news: 6bb501c3e662$e1f948a0$ Bonjour, Je développe une barre de cde avec des icônes en utilisant la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs"
.
Modeste
Bonsoir, eventuellement ceci aussi : http://www.j-walk.com/ss/excel/files/faceids.exe @+
-----Message d'origine----- Bonjour, Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs" .
Bonsoir,
eventuellement ceci aussi :
http://www.j-walk.com/ss/excel/files/faceids.exe
@+
-----Message d'origine-----
Bonjour,
Je développe une barre de cde avec des icônes en
utilisant
la propriété FaceId pour déterminer l'image de l'icône.
Ou puis je trouver la liste des Icônes avec leur N°
associés?
Merci d'avance.
Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add
(Type:=msoControlButton)
With NewBtn
..FaceId = 1544
..OnAction = "EffaceTout"
..Caption = "Suppression de toutes les valeurs"
.
Bonsoir, eventuellement ceci aussi : http://www.j-walk.com/ss/excel/files/faceids.exe @+
-----Message d'origine----- Bonjour, Je développe une barre de cde avec des icônes en utilisant
la propriété FaceId pour déterminer l'image de l'icône. Ou puis je trouver la liste des Icônes avec leur N° associés? Merci d'avance. Cordialement Jojo
Set NewBtn = CommandBars("Nettoyage").Controls.Add (Type:=msoControlButton) With NewBtn ..FaceId = 1544 ..OnAction = "EffaceTout" ..Caption = "Suppression de toutes les valeurs" .
