Insertion de ligne avec formule ligne précédente
Bonjour
J'utilise la version Excel 2013 FR et je cherche désespérément à construire une macro pour insérer une ligne dans un fichier protégé en reprenant les formules de certaines colonnes (cela fonctionne sur une colonne mais pas sur toutes.
Voici la macro que j'ai déjà construite mais qui ne résout pas tous mes besoins
Sub InsérerLigne()
' InsérerLigne Macro
ActiveSheet.Unprotect ("cash")
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="cash", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
Merci pour votre aide
Bonjour. Bienvenue sur le forum
Voici la macro que j'ai déjà construite mais qui ne résout pas tous mes besoins
Oui? Et si tu nous disais quels sont tes besoins?
Avec un fichier, ce serait encore mieux
Cordialement
Bonsoir
Voici le fichier en PJ
Les colonnes grisées correspondent aux colonnes avec formules qui doivent être recopier quand insertion d'une ligne
L'exemple que j'ai fait pour vous montrer : j'ai mis en jaune deux lignes, je me suis mise ensuite sur la line 14 et j'ai cliqué sur le bouton (flèche rouge) Insérer une ligne
Les formules des colonnes C, F et J ont été prises en compte (sur ma ligne orange), mais pas celles des colonnes M, N et P
Le mot de passe utilisé pour protéger ce fichier est cash (je l'ai mis dans ma macro). Pour info dans la macro que j'ai construite à cet effet, après insertion le fichier est de nouveau protégé
Sub InsérerLigne()
' InsérerLigne Macro
ActiveSheet.Unprotect ("cash")
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect Password:="cash", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
Merci pour votre aide
Bonjour
Pourrais-tu enlever le code dans ThisWorbook et remettre le fichier s'il te plait?
Cordialement
Bonjour Amadéus
Ayant eu des soucis de PC hier, impossible de répondre avant hier au soir
Voici le fichier modifié sans la mention "ThisWordBook"
Merci pour tout
Bonjour
Désolé, je ne peux rien pour toi.
Cordialement