copier la mise en forme de la ligne précédente

[zephir94]

Bonsoir à tous,

Je crée une nouvelle ligne dans une feuille en récupérant des valeurs dans un userform.
je voudrais en même temps copier la mise en forme de la ligne précédente .



Pour la copie de l'aspect d'une ligne j'ai trouvé pour conserver son format il faut que j'utilise :

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

mais comment l'articuler avec la création de ma nouvelle ligne :

NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
 .Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1]

Comme il y a un sélection je penses qu'il faut sélectionner la nouvelle ligne mais comment ?

Merci par avance

 

[camarchepas]

Re : copier la mise en forme de la ligne précédente

Bonsoir ,

Peut être comme cela

'Calcul de la ligne
 NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
 'Copie la mise en forme
 .Range("A" & NewLig - 1 & ":H" & NewLig - 1).Copy Destination:=Range("A" & NewLig)
 'stock les valeurs
 .Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1

 

[zephir94]

Re : copier la mise en forme de la ligne précédente

Merci à toi camarchepas 🙂

La macro s'arrête en me disant que la feuille est protégée en écriture mais ce n'est pas le cas !
une idée ?

 

[camarchepas]

Re : copier la mise en forme de la ligne précédente

Ben , j'ai fais les tests sur un fichier vite fait ,

qui ne ressemble peut être en rien au tiens

voici le fichier

 

[zephir94]

Re : copier la mise en forme de la ligne précédente

Je te remercie,

Je viens de tester ton exemple et je m'en suis inspiré et j'ai comme erreur
en arrivant à la ligne

 .Range("A" & NewLig - 1 & ":A" & NewLig - 1).Copy Destination:=Range("A" & NewLig)

erreur d'exécution 1004
la méthode 'range' de l'objet '_global' a échoué
Je vais me coucher, ce sera le challenge de demain !
Merci à ta toi, si tu as une autre idée je suis preneur 🙄

 

[zephir94]

Re : copier la mise en forme de la ligne précédente

J'ai oublié de te dire 😱 que les Cellules de C à K sont fusionnées, penses tu que ça pourrais venir de là ?

 

[camarchepas]

Re : copier la mise en forme de la ligne précédente

C'est en effet possible , les cellules fusionnées sont à proscrire dans les tableau de données, sous peine de galérer lors des traitements

Attention , .Range("A" & NewLig - 1 & ":A" & NewLig - 1).Copy Destination:=Range("A" & NewLig)
le range juste aprés le = n'a pas de point devant donc , c'est la feuille active au moment de l'exécution de la macro qui sera impactée