arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
D'avance, merci
Patrick BASTARD
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn .Shapes.Range(btn).Delete Next btn End With
Ce code bloque sur la ligne For... Et Btn renvoie Nothing.
alors que l'enregistreur me donne : ActiveSheet.Shapes("Button 2").Select ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
D'avance, merci
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape
Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2")
With Sh
For Each btn In Arr_btn
.Shapes.Range(btn).Delete
Next btn
End With
Ce code bloque sur la ligne For...
Et Btn renvoie Nothing.
alors que l'enregistreur me donne :
ActiveSheet.Shapes("Button 2").Select
ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select
Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2")
With Sh
for each btn in arr_btn
.Shapes.Range (btn).delete
next btn
end with
@+
FxM
Bonsoir à toutes et tous.
With Sh
..............
..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté.
Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn .Shapes.Range(btn).Delete Next btn End With
Ce code bloque sur la ligne For... Et Btn renvoie Nothing.
alors que l'enregistreur me donne : ActiveSheet.Shapes("Button 2").Select ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
D'avance, merci
ABED HADDOU
Re...... Dim Arr_btn, btn As Variant Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn ActiveSheet.Shapes(btn).Delete Next btn End With End Sub
Abed_H
"Patrick BASTARD" wrote:
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn .Shapes.Range(btn).Delete Next btn End With
Ce code bloque sur la ligne For... Et Btn renvoie Nothing.
alors que l'enregistreur me donne : ActiveSheet.Shapes("Button 2").Select ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
D'avance, merci
Re......
Dim Arr_btn, btn As Variant
Arr_btn = Array("Button 1", "Button 2")
With Sh
For Each btn In Arr_btn
ActiveSheet.Shapes(btn).Delete
Next btn
End With
End Sub
Abed_H
"Patrick BASTARD" wrote:
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape
Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2")
With Sh
For Each btn In Arr_btn
.Shapes.Range(btn).Delete
Next btn
End With
Ce code bloque sur la ligne For...
Et Btn renvoie Nothing.
alors que l'enregistreur me donne :
ActiveSheet.Shapes("Button 2").Select
ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select
Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2")
With Sh
for each btn in arr_btn
.Shapes.Range (btn).delete
next btn
end with
@+
FxM
Bonsoir à toutes et tous.
With Sh
..............
..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté.
Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
Re...... Dim Arr_btn, btn As Variant Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn ActiveSheet.Shapes(btn).Delete Next btn End With End Sub
Abed_H
"Patrick BASTARD" wrote:
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn .Shapes.Range(btn).Delete Next btn End With
Ce code bloque sur la ligne For... Et Btn renvoie Nothing.
alors que l'enregistreur me donne : ActiveSheet.Shapes("Button 2").Select ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
D'avance, merci
Patrick BASTARD
Bonjour, *ABED HADDOU*
Je te remercie de ton aide.
Je reviens en cas de soucis.
-- Bien amicordialement, P. Bastard
Re...... Dim Arr_btn, btn As Variant Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn ActiveSheet.Shapes(btn).Delete Next btn End With End Sub
Abed_H
"Patrick BASTARD" wrote:
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn .Shapes.Range(btn).Delete Next btn End With
Ce code bloque sur la ligne For... Et Btn renvoie Nothing.
alors que l'enregistreur me donne : ActiveSheet.Shapes("Button 2").Select ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
D'avance, merci
Bonjour, *ABED HADDOU*
Je te remercie de ton aide.
Je reviens en cas de soucis.
--
Bien amicordialement,
P. Bastard
Re......
Dim Arr_btn, btn As Variant
Arr_btn = Array("Button 1", "Button 2")
With Sh
For Each btn In Arr_btn
ActiveSheet.Shapes(btn).Delete
Next btn
End With
End Sub
Abed_H
"Patrick BASTARD" wrote:
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape
Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2")
With Sh
For Each btn In Arr_btn
.Shapes.Range(btn).Delete
Next btn
End With
Ce code bloque sur la ligne For...
Et Btn renvoie Nothing.
alors que l'enregistreur me donne :
ActiveSheet.Shapes("Button 2").Select
ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select
Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2")
With Sh
for each btn in arr_btn
.Shapes.Range (btn).delete
next btn
end with
@+
FxM
Bonsoir à toutes et tous.
With Sh
..............
..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté.
Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
Re...... Dim Arr_btn, btn As Variant Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn ActiveSheet.Shapes(btn).Delete Next btn End With End Sub
Abed_H
"Patrick BASTARD" wrote:
Bonjour, *François Xavier*
Heureux de te lire !
J'ai déclaré (option explicit) :
Dim btn As Shape Dim Arr_btn As Variant
Arr_btn = Array("Button 1", "Button 2") With Sh For Each btn In Arr_btn .Shapes.Range(btn).Delete Next btn End With
Ce code bloque sur la ligne For... Et Btn renvoie Nothing.
alors que l'enregistreur me donne : ActiveSheet.Shapes("Button 2").Select ActiveSheet.Shapes.Range(Array("Button 2", "Bouton 1")).Select Selection.Delete
Une idée ?
Amicalement,
Patrick.
Bonsoir Patrick,
Non testé :
arr_btn = array("Button 1","Button 2") With Sh for each btn in arr_btn .Shapes.Range (btn).delete next btn end with
@+ FxM
Bonsoir à toutes et tous.
With Sh .............. ..Shapes.Range (array("Button 1",Button 2")).delete
n'est pas accepté. Je ne m'en sors pas avec F1, et n'ai rien trouvé sur Google Group.
Une bonne âme pourrait-elle me mettre sur la voie ?
