Je viens de m'apercevoir d'un truc...
J'utilise la macro qu'Isabelle m'a donné pour insérer des lignes à partir
d'un bouton :
x = ActiveCell.Row
Range("A7:R8").Copy
Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(x).RowHeight = 6.75
Rows(x + 1).RowHeight = 9
macro qui marche trés bien, mais je veux protéger certaines cellules de ma
feuille, et même en cochant d'accepter l'insertion de lignes dans les
options de protection, lorsque je clique sur mon bouton pour en insérer
(avec la feuille protégée), la macro me fait un bug qui me renvoie à cette
ligne:
Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown
Comment ça se fait? puisque j'ai autorisé l'insertion de lignes!
--
__________________________
Géjoun.
dam-mail2004@ifrance.com
····················································
Enlevez l'année pour répondre...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
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 géjoun
as tu mit la propriété du bouton TakefocusOnClick à false ?
isabelle
Re-bonjour...
Je viens de m'apercevoir d'un truc... J'utilise la macro qu'Isabelle m'a donné pour insérer des lignes à partir d'un bouton :
x = ActiveCell.Row Range("A7:R8").Copy Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown Application.CutCopyMode = False Rows(x).RowHeight = 6.75 Rows(x + 1).RowHeight = 9
macro qui marche trés bien, mais je veux protéger certaines cellules de ma feuille, et même en cochant d'accepter l'insertion de lignes dans les options de protection, lorsque je clique sur mon bouton pour en insérer (avec la feuille protégée), la macro me fait un bug qui me renvoie à cette ligne:
Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown
Comment ça se fait? puisque j'ai autorisé l'insertion de lignes!
-- __________________________ Géjoun.
···················································· Enlevez l'année pour répondre... ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
bonjour géjoun
as tu mit la propriété du bouton TakefocusOnClick à false ?
isabelle
Re-bonjour...
Je viens de m'apercevoir d'un truc...
J'utilise la macro qu'Isabelle m'a donné pour insérer des lignes à partir
d'un bouton :
x = ActiveCell.Row
Range("A7:R8").Copy
Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(x).RowHeight = 6.75
Rows(x + 1).RowHeight = 9
macro qui marche trés bien, mais je veux protéger certaines cellules de ma
feuille, et même en cochant d'accepter l'insertion de lignes dans les
options de protection, lorsque je clique sur mon bouton pour en insérer
(avec la feuille protégée), la macro me fait un bug qui me renvoie à cette
ligne:
Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown
Comment ça se fait? puisque j'ai autorisé l'insertion de lignes!
--
__________________________
Géjoun.
dam-mail2004@ifrance.com
····················································
Enlevez l'année pour répondre...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
as tu mit la propriété du bouton TakefocusOnClick à false ?
isabelle
Re-bonjour...
Je viens de m'apercevoir d'un truc... J'utilise la macro qu'Isabelle m'a donné pour insérer des lignes à partir d'un bouton :
x = ActiveCell.Row Range("A7:R8").Copy Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown Application.CutCopyMode = False Rows(x).RowHeight = 6.75 Rows(x + 1).RowHeight = 9
macro qui marche trés bien, mais je veux protéger certaines cellules de ma feuille, et même en cochant d'accepter l'insertion de lignes dans les options de protection, lorsque je clique sur mon bouton pour en insérer (avec la feuille protégée), la macro me fait un bug qui me renvoie à cette ligne:
Range("A" & x & ":R" & x + 1).Insert Shift:=xlDown
Comment ça se fait? puisque j'ai autorisé l'insertion de lignes!
-- __________________________ Géjoun.
···················································· Enlevez l'année pour répondre... ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
