toujours dans la catégorie commandbutton dans une feuille Excel, la question
est :
Quel le code VBA pour Excel 2003 pour dire :
Si il n'y a pas de bouton sur la cellule active, alors il faut en ajouter un.
ou
si il y a un bouton sur la cellule active, mettre fin à la procédure.
j'ai essayé:
_____________
If ActiveCell Is Feuil2.OLEObjects.TopLeftCell Then
_____________
If Feuil2.OLEObjects.Placement = ActiveCell Then
_____________
et d'autres choses abérantes du type:
If Feuil2.OLEObjects In ActiveCell.TopLeftCell = False Then
_____________
par dépit bien sûr :°))
je pense qu'il y a quelque chose à faire avec les commandes du style
TopLeftCell ou Placement ou je ne sais quoi qui serait susceptible de définir
une relation between a CommandButton and a Cell !
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
isabelle
bonjour mike2050,
Sub test() Dim s As Shape For Each s In ActiveSheet.Shapes If s.TopLeftCell.Address = ActiveCell.Address Then _ MsgBox s.Name & " en cellule " & s.TopLeftCell.Address(0, 0) Next End Sub
isabelle
Bonjour à tous,
toujours dans la catégorie commandbutton dans une feuille Excel, la question est : Quel le code VBA pour Excel 2003 pour dire :
Si il n'y a pas de bouton sur la cellule active, alors il faut en ajouter un.
ou
si il y a un bouton sur la cellule active, mettre fin à la procédure.
j'ai essayé: _____________ If ActiveCell Is Feuil2.OLEObjects.TopLeftCell Then _____________ If Feuil2.OLEObjects.Placement = ActiveCell Then _____________ et d'autres choses abérantes du type: If Feuil2.OLEObjects In ActiveCell.TopLeftCell = False Then _____________ par dépit bien sûr :°))
je pense qu'il y a quelque chose à faire avec les commandes du style TopLeftCell ou Placement ou je ne sais quoi qui serait susceptible de définir une relation between a CommandButton and a Cell !
Merci d'avance!
bonjour mike2050,
Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = ActiveCell.Address Then _
MsgBox s.Name & " en cellule " & s.TopLeftCell.Address(0, 0)
Next
End Sub
isabelle
Bonjour à tous,
toujours dans la catégorie commandbutton dans une feuille Excel, la question
est :
Quel le code VBA pour Excel 2003 pour dire :
Si il n'y a pas de bouton sur la cellule active, alors il faut en ajouter un.
ou
si il y a un bouton sur la cellule active, mettre fin à la procédure.
j'ai essayé:
_____________
If ActiveCell Is Feuil2.OLEObjects.TopLeftCell Then
_____________
If Feuil2.OLEObjects.Placement = ActiveCell Then
_____________
et d'autres choses abérantes du type:
If Feuil2.OLEObjects In ActiveCell.TopLeftCell = False Then
_____________
par dépit bien sûr :°))
je pense qu'il y a quelque chose à faire avec les commandes du style
TopLeftCell ou Placement ou je ne sais quoi qui serait susceptible de définir
une relation between a CommandButton and a Cell !
Sub test() Dim s As Shape For Each s In ActiveSheet.Shapes If s.TopLeftCell.Address = ActiveCell.Address Then _ MsgBox s.Name & " en cellule " & s.TopLeftCell.Address(0, 0) Next End Sub
isabelle
Bonjour à tous,
toujours dans la catégorie commandbutton dans une feuille Excel, la question est : Quel le code VBA pour Excel 2003 pour dire :
Si il n'y a pas de bouton sur la cellule active, alors il faut en ajouter un.
ou
si il y a un bouton sur la cellule active, mettre fin à la procédure.
j'ai essayé: _____________ If ActiveCell Is Feuil2.OLEObjects.TopLeftCell Then _____________ If Feuil2.OLEObjects.Placement = ActiveCell Then _____________ et d'autres choses abérantes du type: If Feuil2.OLEObjects In ActiveCell.TopLeftCell = False Then _____________ par dépit bien sûr :°))
je pense qu'il y a quelque chose à faire avec les commandes du style TopLeftCell ou Placement ou je ne sais quoi qui serait susceptible de définir une relation between a CommandButton and a Cell !
