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
JB
Bonjour,
For Each s In ActiveSheet.Shapes If Not Intersect(s.TopLeftCell, Range("$D$1:$D$500")) Is Nothing Then s.Name = s.TopLeftCell.Offset(, -3) End If Next s
JB http://boisgontierjacques.free.fr/
On 13 oct, 09:46, "Infogroup" wrote:
Bonjour à tous,
avec Excel 2003
J'ai des noms en A6:A500 avec des cellules vides
En colonne D6:D500, j'ai des shapes ( un seul par cellule ), et égaleme nt des cellules ne contenant aucun shape.
Je voudrais attribuer au shape le nom qui figure dans la cellule correspondante en colonne A
Es-ce possible par VBA ?
Merci par avance pour votre aide
Cdl
Infogroup
Bonjour,
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("$D$1:$D$500")) Is Nothing
Then
s.Name = s.TopLeftCell.Offset(, -3)
End If
Next s
JB
http://boisgontierjacques.free.fr/
On 13 oct, 09:46, "Infogroup" <Infogrou...@orange.fr> wrote:
Bonjour à tous,
avec Excel 2003
J'ai des noms en A6:A500 avec des cellules vides
En colonne D6:D500, j'ai des shapes ( un seul par cellule ), et égaleme nt
des cellules ne contenant aucun shape.
Je voudrais attribuer au shape le nom qui figure dans la cellule
correspondante en colonne A
For Each s In ActiveSheet.Shapes If Not Intersect(s.TopLeftCell, Range("$D$1:$D$500")) Is Nothing Then s.Name = s.TopLeftCell.Offset(, -3) End If Next s
JB http://boisgontierjacques.free.fr/
On 13 oct, 09:46, "Infogroup" wrote:
Bonjour à tous,
avec Excel 2003
J'ai des noms en A6:A500 avec des cellules vides
En colonne D6:D500, j'ai des shapes ( un seul par cellule ), et égaleme nt des cellules ne contenant aucun shape.
Je voudrais attribuer au shape le nom qui figure dans la cellule correspondante en colonne A
Es-ce possible par VBA ?
Merci par avance pour votre aide
Cdl
Infogroup
Infogroup
Merci JB, c'est OK
Cordialement
Infogroup
"JB" a écrit dans le message de news: Bonjour,
For Each s In ActiveSheet.Shapes If Not Intersect(s.TopLeftCell, Range("$D$1:$D$500")) Is Nothing Then s.Name = s.TopLeftCell.Offset(, -3) End If Next s
JB http://boisgontierjacques.free.fr/
On 13 oct, 09:46, "Infogroup" wrote:
Bonjour à tous,
avec Excel 2003
J'ai des noms en A6:A500 avec des cellules vides
En colonne D6:D500, j'ai des shapes ( un seul par cellule ), et également des cellules ne contenant aucun shape.
Je voudrais attribuer au shape le nom qui figure dans la cellule correspondante en colonne A
Es-ce possible par VBA ?
Merci par avance pour votre aide
Cdl
Infogroup
Merci JB, c'est OK
Cordialement
Infogroup
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1e582faf-d05d-4db8-8ae5-236614003dd1@k4g2000yqb.googlegroups.com...
Bonjour,
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("$D$1:$D$500")) Is Nothing
Then
s.Name = s.TopLeftCell.Offset(, -3)
End If
Next s
JB
http://boisgontierjacques.free.fr/
On 13 oct, 09:46, "Infogroup" <Infogrou...@orange.fr> wrote:
Bonjour à tous,
avec Excel 2003
J'ai des noms en A6:A500 avec des cellules vides
En colonne D6:D500, j'ai des shapes ( un seul par cellule ), et également
des cellules ne contenant aucun shape.
Je voudrais attribuer au shape le nom qui figure dans la cellule
correspondante en colonne A
For Each s In ActiveSheet.Shapes If Not Intersect(s.TopLeftCell, Range("$D$1:$D$500")) Is Nothing Then s.Name = s.TopLeftCell.Offset(, -3) End If Next s
JB http://boisgontierjacques.free.fr/
On 13 oct, 09:46, "Infogroup" wrote:
Bonjour à tous,
avec Excel 2003
J'ai des noms en A6:A500 avec des cellules vides
En colonne D6:D500, j'ai des shapes ( un seul par cellule ), et également des cellules ne contenant aucun shape.
Je voudrais attribuer au shape le nom qui figure dans la cellule correspondante en colonne A