Est-il possible selon la valeur d'une cellule, de rendre visible ou non une
des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Est-il possible selon la valeur d'une cellule, de rendre visible ou non une
des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Est-il possible selon la valeur d'une cellule, de rendre visible ou non une
des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lSteph
Est-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Merci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Merci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" <lecocosteph@frite.fr> wrote in message
news:%23taiZ7P9HHA.2752@TK2MSFTNGP06.phx.gbl...
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lSteph
Est-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Merci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lStephMerci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lSteph
Merci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" <lecocosteph@frite.fr> wrote in message
news:%23taiZ7P9HHA.2752@TK2MSFTNGP06.phx.gbl...
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lSteph
Est-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lStephMerci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Merci.
Mais si j'en crée ou ajoute par la barre de sélection et par la souri s,
alors c'est Excel qui génère automatiquement son numéro,
peut-on alors modifier son numéro par un nom par la suite?
Bonne journée
"LSteph" wrote in message
news:Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lStephMerci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut- être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèc he.
Merci à vous tous.
Merci.
Mais si j'en crée ou ajoute par la barre de sélection et par la souri s,
alors c'est Excel qui génère automatiquement son numéro,
peut-on alors modifier son numéro par un nom par la suite?
Bonne journée
"LSteph" <lecocost...@frite.fr> wrote in message
news:uf7W3Vd9HHA.3548@TK2MSFTNGP06.phx.gbl...
Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lSteph
Merci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut- être une
façon plus simple.
Et merci encore
"LSteph" <lecocost...@frite.fr> wrote in message
news:%23taiZ7P9HHA.2752@TK2MSFTNGP06.phx.gbl...
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lSteph
Est-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèc he.
Merci à vous tous.
Merci.
Mais si j'en crée ou ajoute par la barre de sélection et par la souri s,
alors c'est Excel qui génère automatiquement son numéro,
peut-on alors modifier son numéro par un nom par la suite?
Bonne journée
"LSteph" wrote in message
news:Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lStephMerci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut- être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèc he.
Merci à vous tous.
Re,
Mets ceci dans un module standard ferme vbe
sélectionne ta feuille puis Outils macro
testSh() te renvoie un petit rapport de tes objets avec leur position
haut gauche
renommetout() te les rebaptise monObj et un numéro
testSh à nouveau pour voir le résultat
en même temps ces trois codes te donnes idée de comment faire
(la fonction créée ici boucleshapes est paramètrable).
Option Explicit
Function BoucleShapes(Optional ByVal _
wsname As String) As String
Dim myShp As Shape, myCr As String
If Len(wsname) = 0 Then wsname = ActiveSheet.Name
myCr = "Nom" & " " & "Type" & " " & "Haut" & " " _
& " " & "Gauche" & vbCrLf
For Each myShp In Worksheets(wsname).Shapes
With myShp
myCr = myCr & .Name & " " & _
TypeName(myShp.OLEFormat.Object) _
& " " & " " & .Top & " " & .Left & " " & vbCrLf
End With
Next myShp
BoucleShapes = myCr
End Function
Sub testSh()
MsgBox BoucleShapes
End Sub
Sub renommetout()
Dim myShp As Shape, i As Integer
For Each myShp In ActiveSheet.Shapes
With myShp
i = i + 1
.Name = "MonObj" & i
End With
Next myShp
End Sub
On 13 sep, 13:34, "Pierre-Yves Ste-Marie"
wrote:Merci.
Mais si j'en crée ou ajoute par la barre de sélection et par la souris,
alors c'est Excel qui génère automatiquement son numéro,
peut-on alors modifier son numéro par un nom par la suite?
Bonne journée
"LSteph" wrote in message
news:Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lStephMerci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Re,
Mets ceci dans un module standard ferme vbe
sélectionne ta feuille puis Outils macro
testSh() te renvoie un petit rapport de tes objets avec leur position
haut gauche
renommetout() te les rebaptise monObj et un numéro
testSh à nouveau pour voir le résultat
en même temps ces trois codes te donnes idée de comment faire
(la fonction créée ici boucleshapes est paramètrable).
Option Explicit
Function BoucleShapes(Optional ByVal _
wsname As String) As String
Dim myShp As Shape, myCr As String
If Len(wsname) = 0 Then wsname = ActiveSheet.Name
myCr = "Nom" & " " & "Type" & " " & "Haut" & " " _
& " " & "Gauche" & vbCrLf
For Each myShp In Worksheets(wsname).Shapes
With myShp
myCr = myCr & .Name & " " & _
TypeName(myShp.OLEFormat.Object) _
& " " & " " & .Top & " " & .Left & " " & vbCrLf
End With
Next myShp
BoucleShapes = myCr
End Function
Sub testSh()
MsgBox BoucleShapes
End Sub
Sub renommetout()
Dim myShp As Shape, i As Integer
For Each myShp In ActiveSheet.Shapes
With myShp
i = i + 1
.Name = "MonObj" & i
End With
Next myShp
End Sub
On 13 sep, 13:34, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Merci.
Mais si j'en crée ou ajoute par la barre de sélection et par la souris,
alors c'est Excel qui génère automatiquement son numéro,
peut-on alors modifier son numéro par un nom par la suite?
Bonne journée
"LSteph" <lecocost...@frite.fr> wrote in message
news:uf7W3Vd9HHA.3548@TK2MSFTNGP06.phx.gbl...
Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lSteph
Merci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" <lecocost...@frite.fr> wrote in message
news:%23taiZ7P9HHA.2752@TK2MSFTNGP06.phx.gbl...
Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lSteph
Est-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.
Re,
Mets ceci dans un module standard ferme vbe
sélectionne ta feuille puis Outils macro
testSh() te renvoie un petit rapport de tes objets avec leur position
haut gauche
renommetout() te les rebaptise monObj et un numéro
testSh à nouveau pour voir le résultat
en même temps ces trois codes te donnes idée de comment faire
(la fonction créée ici boucleshapes est paramètrable).
Option Explicit
Function BoucleShapes(Optional ByVal _
wsname As String) As String
Dim myShp As Shape, myCr As String
If Len(wsname) = 0 Then wsname = ActiveSheet.Name
myCr = "Nom" & " " & "Type" & " " & "Haut" & " " _
& " " & "Gauche" & vbCrLf
For Each myShp In Worksheets(wsname).Shapes
With myShp
myCr = myCr & .Name & " " & _
TypeName(myShp.OLEFormat.Object) _
& " " & " " & .Top & " " & .Left & " " & vbCrLf
End With
Next myShp
BoucleShapes = myCr
End Function
Sub testSh()
MsgBox BoucleShapes
End Sub
Sub renommetout()
Dim myShp As Shape, i As Integer
For Each myShp In ActiveSheet.Shapes
With myShp
i = i + 1
.Name = "MonObj" & i
End With
Next myShp
End Sub
On 13 sep, 13:34, "Pierre-Yves Ste-Marie"
wrote:Merci.
Mais si j'en crée ou ajoute par la barre de sélection et par la souris,
alors c'est Excel qui génère automatiquement son numéro,
peut-on alors modifier son numéro par un nom par la suite?
Bonne journée
"LSteph" wrote in message
news:Bonjour,
oui un objet dessiné peut-être désigné par son numéro ou par son nom
exact si on le connait
exemple:
ActiveSheet.Shapes("Oval 2").Fill.ForeColor.SchemeColor = 44
(Sinon assignes toi même des noms à tes objets si tu en supprime ou ajoute
par macro)
Cordialement.
lStephMerci beaucoup cher LSteph,
ça répond très bien à ce que je voulais...
Mais je me permets une sous-question: est-il possible d'identifier les
formes et leur numéro.
Ma feuille contient une certaine quantité de formes et par essaies et
erreurs j'ai réussi à identifier
quelle forme était le numéro 1 et les autres... Mais il y a peut-être une
façon plus simple.
Et merci encore
"LSteph" wrote in message
news:%Bonjour,
A adapter:
''''''''''''''''dans le code de la feuille
Private Sub Worksheet_Calculate()
Call mesobjetsV
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call mesobjetsV
End Sub
Private Sub mesobjetsV()
Shapes(1).Visible = [a1] > 8
Shapes(2).Visible = [a1] > 12
End Sub
'''''''''''''''''''''''''''''''''''''''''''
'lStephEst-il possible selon la valeur d'une cellule, de rendre visible ou non
une des formes automatiques disponibles dans Excel, comme une flèche.
Merci à vous tous.