j' ai un shapes(WordArt xx) ds les cellules B3:C17
je voudrai le suprimer
le pb c'est que je ne sait pas d'avance son N°
j'ai trouvé ce qui suit sur la fac mais ça ne fonctionne pas
Private Sub CommandButton2_Click()
On Error Resume Next
Whith Sheets("Impression")
For Each sh In Shapes
If Not Intersect(.Range("B3:C17"), sh.BottomRightCell) Is Nothing Then
sh.Select Replace:=False
End If
Next sh
End With
Selection.Delete
J'ai recrée un bouton et ça marche j'y comprend rien et je n'est meme pas eut besoin de REMPLACER LE NOM DE LA FEUILLE UN GRAND MERCI POUR TA PATIENCE-- IMER09
Dans la macro, REMPLACE LE NOM DE LA FEUILLE "Feuil2" par le nom de l'onglet de la feuille de ton application où sont tes shapes.
'----------------------------------- Sub test() Dim Sh As Shape For Each Sh In Worksheets("Feuil2").Shapes If Sh.TopLeftCell.Row >= Range("B3").Row And _ Sh.TopLeftCell.Column >= Range("B3").Column And _ Sh.BottomRightCell.Row <= Range("B17").Row And _ Sh.BottomRightCell.Column <= Range("C17").Column Then Sh.Delete End If Next End Sub '-----------------------------------
c'étaiit mon dernier message sur ce sujet.
"IMER09" a écrit dans le message de news:
OK mais comment affecte tu cette macro a ce bouton et comment cree tu ce bouton Moi je fait boite a outil control, mode ceation, bouton de commande et je lui affecte la macro et c'est pas ok, il y a une autre solution? desole je suis un peu bleu -- IMER09
fichier exemple : http://cjoint.com/?fAaf3Hf0TD
"IMER09" a écrit dans le message de news:
desole de revenir mais c'est tjs pareil j'ai excel 2003 mais j'ai fait le 2 choses sans result erreur 438 AVEC If .......Then en jaune merci -- IMER09
si tu utilises Excel 97, met la propriété du bouton "TakeOnFocus" à False.
"IMER09" a écrit dans le message de news:
Merci à vous 3 Mais j'ai tjs pas de resultat pour repondre à Jacquouille j'ai tout mis sur la meme ligne et j'ai erreur de compilation With pour repondre à Daniel comme à MichDenis j'ai erreur 438 propriete non gérée par cet objet (If.......Then) Est ce que la raison ne serai pas :que je veux executer cette macro par un bouton Private Sub CommandButton2_Click() etc -- IMER09
Bonjour à tous
j' ai un shapes(WordArt xx) ds les cellules B3:C17 je voudrai le suprimer
le pb c'est que je ne sait pas d'avance son N° j'ai trouvé ce qui suit sur la fac mais ça ne fonctionne pas
Private Sub CommandButton2_Click() On Error Resume Next Whith Sheets("Impression") For Each sh In Shapes If Not Intersect(.Range("B3:C17"), sh.BottomRightCell) Is Nothing Then sh.Select Replace:úlse End If Next sh End With Selection.Delete
End Sub
merci d'avance
-- IMER09
J'ai recrée un bouton et ça marche j'y comprend rien et je n'est meme pas eut
besoin de REMPLACER LE NOM DE LA FEUILLE
UN GRAND MERCI POUR TA PATIENCE--
IMER09
Dans la macro, REMPLACE LE NOM DE LA FEUILLE "Feuil2"
par le nom de l'onglet de la feuille de ton application où sont tes shapes.
'-----------------------------------
Sub test()
Dim Sh As Shape
For Each Sh In Worksheets("Feuil2").Shapes
If Sh.TopLeftCell.Row >= Range("B3").Row And _
Sh.TopLeftCell.Column >= Range("B3").Column And _
Sh.BottomRightCell.Row <= Range("B17").Row And _
Sh.BottomRightCell.Column <= Range("C17").Column Then
Sh.Delete
End If
Next
End Sub
'-----------------------------------
c'étaiit mon dernier message sur ce sujet.
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
8D22B4BE-5BDB-46F2-9DD7-7CC91ABBC521@microsoft.com...
OK mais comment affecte tu cette macro a ce bouton
et comment cree tu ce bouton
Moi je fait boite a outil control, mode ceation, bouton de commande et je
lui affecte la macro et c'est pas ok, il y a une autre solution?
desole je suis un peu bleu
--
IMER09
fichier exemple : http://cjoint.com/?fAaf3Hf0TD
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
510E4BAF-6B47-47FC-8F22-CA8116B72602@microsoft.com...
desole de revenir mais c'est tjs pareil j'ai excel 2003 mais j'ai fait le 2
choses sans result
erreur 438 AVEC If .......Then en jaune
merci
--
IMER09
si tu utilises Excel 97, met la propriété du bouton
"TakeOnFocus" à False.
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
122CCDBE-7B5C-48EB-85AA-2553029AC36C@microsoft.com...
Merci à vous 3
Mais j'ai tjs pas de resultat
pour repondre à Jacquouille j'ai tout mis sur la meme ligne et j'ai erreur
de compilation With
pour repondre à Daniel comme à MichDenis j'ai erreur 438 propriete non
gérée par cet objet (If.......Then)
Est ce que la raison ne serai pas :que je veux executer cette macro par un
bouton
Private Sub CommandButton2_Click()
etc
--
IMER09
Bonjour à tous
j' ai un shapes(WordArt xx) ds les cellules B3:C17
je voudrai le suprimer
le pb c'est que je ne sait pas d'avance son N°
j'ai trouvé ce qui suit sur la fac mais ça ne fonctionne pas
Private Sub CommandButton2_Click()
On Error Resume Next
Whith Sheets("Impression")
For Each sh In Shapes
If Not Intersect(.Range("B3:C17"), sh.BottomRightCell) Is Nothing Then
sh.Select Replace:úlse
End If
Next sh
End With
Selection.Delete
J'ai recrée un bouton et ça marche j'y comprend rien et je n'est meme pas eut besoin de REMPLACER LE NOM DE LA FEUILLE UN GRAND MERCI POUR TA PATIENCE-- IMER09
Dans la macro, REMPLACE LE NOM DE LA FEUILLE "Feuil2" par le nom de l'onglet de la feuille de ton application où sont tes shapes.
'----------------------------------- Sub test() Dim Sh As Shape For Each Sh In Worksheets("Feuil2").Shapes If Sh.TopLeftCell.Row >= Range("B3").Row And _ Sh.TopLeftCell.Column >= Range("B3").Column And _ Sh.BottomRightCell.Row <= Range("B17").Row And _ Sh.BottomRightCell.Column <= Range("C17").Column Then Sh.Delete End If Next End Sub '-----------------------------------
c'étaiit mon dernier message sur ce sujet.
"IMER09" a écrit dans le message de news:
OK mais comment affecte tu cette macro a ce bouton et comment cree tu ce bouton Moi je fait boite a outil control, mode ceation, bouton de commande et je lui affecte la macro et c'est pas ok, il y a une autre solution? desole je suis un peu bleu -- IMER09
fichier exemple : http://cjoint.com/?fAaf3Hf0TD
"IMER09" a écrit dans le message de news:
desole de revenir mais c'est tjs pareil j'ai excel 2003 mais j'ai fait le 2 choses sans result erreur 438 AVEC If .......Then en jaune merci -- IMER09
si tu utilises Excel 97, met la propriété du bouton "TakeOnFocus" à False.
"IMER09" a écrit dans le message de news:
Merci à vous 3 Mais j'ai tjs pas de resultat pour repondre à Jacquouille j'ai tout mis sur la meme ligne et j'ai erreur de compilation With pour repondre à Daniel comme à MichDenis j'ai erreur 438 propriete non gérée par cet objet (If.......Then) Est ce que la raison ne serai pas :que je veux executer cette macro par un bouton Private Sub CommandButton2_Click() etc -- IMER09
Bonjour à tous
j' ai un shapes(WordArt xx) ds les cellules B3:C17 je voudrai le suprimer
le pb c'est que je ne sait pas d'avance son N° j'ai trouvé ce qui suit sur la fac mais ça ne fonctionne pas
Private Sub CommandButton2_Click() On Error Resume Next Whith Sheets("Impression") For Each sh In Shapes If Not Intersect(.Range("B3:C17"), sh.BottomRightCell) Is Nothing Then sh.Select Replace:úlse End If Next sh End With Selection.Delete
