J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent des
shapes.
Ces shapes sont de la même taille que les cellules et les recouvrent
entièrement.
Je voudrais par vba savoir si une cellule comporte ou non un shape, de
manière à lui adjoindre un lien hypertexte.
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,
For Each f In ActiveSheet.Shapes If f.Name Like "Rectangle*" Then With Sheets(1).Range(f.TopLeftCell.Address) .ClearComments .AddComment .Comment.Text Text:="zaza" End With End If Next
isabelle
Infogroup a écrit :
Bonsoir à toutes et à tous,
J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent des shapes. Ces shapes sont de la même taille que les cellules et les recouvrent entièrement. Je voudrais par vba savoir si une cellule comporte ou non un shape, de manière à lui adjoindre un lien hypertexte.
Merci par avance pour vos infos
Cordialement
Infogroup
bonjour,
For Each f In ActiveSheet.Shapes
If f.Name Like "Rectangle*" Then
With Sheets(1).Range(f.TopLeftCell.Address)
.ClearComments
.AddComment
.Comment.Text Text:="zaza"
End With
End If
Next
isabelle
Infogroup a écrit :
Bonsoir à toutes et à tous,
J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent
des shapes.
Ces shapes sont de la même taille que les cellules et les recouvrent
entièrement.
Je voudrais par vba savoir si une cellule comporte ou non un shape, de
manière à lui adjoindre un lien hypertexte.
For Each f In ActiveSheet.Shapes If f.Name Like "Rectangle*" Then With Sheets(1).Range(f.TopLeftCell.Address) .ClearComments .AddComment .Comment.Text Text:="zaza" End With End If Next
isabelle
Infogroup a écrit :
Bonsoir à toutes et à tous,
J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent des shapes. Ces shapes sont de la même taille que les cellules et les recouvrent entièrement. Je voudrais par vba savoir si une cellule comporte ou non un shape, de manière à lui adjoindre un lien hypertexte.
Merci par avance pour vos infos
Cordialement
Infogroup
Infogroup
Bonjour Isabelle et merci pour ton code qui marche super.
Bonne journée
Cdl
Infogroup
"isabelle" a écrit dans le message de news:OzxTi$
bonjour,
For Each f In ActiveSheet.Shapes If f.Name Like "Rectangle*" Then With Sheets(1).Range(f.TopLeftCell.Address) .ClearComments .AddComment .Comment.Text Text:="zaza" End With End If Next
isabelle
Infogroup a écrit :
Bonsoir à toutes et à tous,
J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent des shapes. Ces shapes sont de la même taille que les cellules et les recouvrent entièrement. Je voudrais par vba savoir si une cellule comporte ou non un shape, de manière à lui adjoindre un lien hypertexte.
Merci par avance pour vos infos
Cordialement
Infogroup
Bonjour Isabelle et merci pour ton code qui marche super.
Bonne journée
Cdl
Infogroup
"isabelle" <i@v> a écrit dans le message de
news:OzxTi$FRJHA.988@TK2MSFTNGP06.phx.gbl...
bonjour,
For Each f In ActiveSheet.Shapes
If f.Name Like "Rectangle*" Then
With Sheets(1).Range(f.TopLeftCell.Address)
.ClearComments
.AddComment
.Comment.Text Text:="zaza"
End With
End If
Next
isabelle
Infogroup a écrit :
Bonsoir à toutes et à tous,
J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent des
shapes.
Ces shapes sont de la même taille que les cellules et les recouvrent
entièrement.
Je voudrais par vba savoir si une cellule comporte ou non un shape, de
manière à lui adjoindre un lien hypertexte.
Bonjour Isabelle et merci pour ton code qui marche super.
Bonne journée
Cdl
Infogroup
"isabelle" a écrit dans le message de news:OzxTi$
bonjour,
For Each f In ActiveSheet.Shapes If f.Name Like "Rectangle*" Then With Sheets(1).Range(f.TopLeftCell.Address) .ClearComments .AddComment .Comment.Text Text:="zaza" End With End If Next
isabelle
Infogroup a écrit :
Bonsoir à toutes et à tous,
J'ai sur une feuille ( Excel 2003 ) certaines cellules qui comportent des shapes. Ces shapes sont de la même taille que les cellules et les recouvrent entièrement. Je voudrais par vba savoir si une cellule comporte ou non un shape, de manière à lui adjoindre un lien hypertexte.