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

camarchepas

XLDnaute Barbatruc

• 2 Septembre 2014

• #2

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

Bonsoir ,

Peut être comme cela

Code:

'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

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 2 Septembre 2014

• #3

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 ?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 2 Septembre 2014

• #4

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

 

Pièces jointes

• Copie.xlsm

  17 KB · Affichages: 22
• Copie.xlsm

  17 KB · Affichages: 21
• Copie.xlsm

  17 KB · Affichages: 22

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 2 Septembre 2014

• #5

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

Code:

 .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 🙄

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 2 Septembre 2014

• #6

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à ?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 2 Septembre 2014

• #7

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

 

Vote positif 0 Vote négatif