XL 2019 Excel 2019 VBA Probleme sur creation de ligne en 1ere position

C

Cheyenne_2021

XLDnaute Junior

• 8 Juillet 2021

• #16

Je vous remercie.
Si je comprends bien, si je lance la macro, ça devrait réparer le tableau mais que "temporairement" ?
Ou sinon, je peux aussi créer un ligne autrement.
Ce serait ce ListObjects.Add(1) qui créé ce bug ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Juillet 2021

• #17

Non, je ne crois pas. J'ai plutôt l'impression qu'il ne fait que subir le même bogue que ma macro, dû à ce que la plage couverte par le tableau serait dans un état bancal suite à des formats surajoutés à certains moments de son histoire …
Comme dit, à votre place je réinstallerais le tableau proprement, surtout si l'effet de la manœuvre ne s’avérait pas pérenne, mais j'ignore ce qu'il en est.
Un .ListRows.Add(1) a le même effet qu'un clic droit sur une cellule de la ligne 1, Insérer, Lignes de tableau en haut
Or auparavant cette action reproduisait aussi indument la couleur de l'entête, mais plus maintenant. Alors pourvu que ça dure !

 

Dernière édition: 8 Juillet 2021

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Juillet 2021

• #18

Bonsoir à tous ,

Essayez :

VB:

Sub test()
   With ActiveSheet.ListObjects(1): .DataBodyRange.Interior.Pattern = xlNone: .ListRows.Add 1: End With
End Sub

 

Dernière édition: 9 Juillet 2021

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juillet 2021

• #19

Bonsoir @mapomme.
Non, j'avais essayé aussi, ça ne marchait pas non plus sur son tableau à mon avis corrompu quelque part.
À noter en passant: on peut récupérer le ListRow ajouté: Set LRw = LOt.ListRows.Add(1)
Ou même, et je le fais souvent, noter la plage qu'il couvre, parce que c'est souvent de ça qu'on a plutôt besoin aussitôt après: Set Rng = LOt.ListRows.Add(1).Range

 

Dernière édition: 9 Juillet 2021

Vote positif 0 Vote négatif

C

Cheyenne_2021

XLDnaute Junior

• 9 Juillet 2021

• #20

@mapomme et @Dranreb , merci je vais essayer cette macro reparatrice.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Juillet 2021

• #21

Dranreb à dit:

Non, j'avais essayé aussi, ça ne marchait pas non plus sur son tableau à mon avis corrompu quelque part.

Cliquez pour agrandir...

Sur son fichier, ça fonctionne chez moi.

 

Vote positif 0 Vote négatif

C

Cheyenne_2021

XLDnaute Junior

• 10 Juillet 2021

• #22

@Dranreb : La routine de reparation ne focntionne pas. Il repere bien qu'une couleur n'est pas "conforme" mais ne corrige rien. J'avais donc abandonné Le ListObject.Add(1).
@mapomme : En dernier chance j'ai essaye votre routine. Je l'ai intégré à ma macro, en tout début et ça a l'air de fonctionner ! Je vais faire d'autres tests pour confirmer .
Merci à tous les deux !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2021

• #23

Je l'ai toujours dit qu'elle ne fonctionnait pas dans l'état anormal de votre tableau. J'avais dit que de mettre 'Aucune couleur' à toute la plage couverte par le tableau manuellement avait réparé la chose et qu'ensuite un ListObject.ListRows.Add(1), qu'il faut de toute façon garder, ne reprenait plus la couleur de l'entête. Mais bien sûr, comme je n'avait pu identifier sa cause, je ne pouvait être sûr que c'est réparé à titre définitif.

 

Vote positif 0 Vote négatif

C

Cheyenne_2021

XLDnaute Junior

• 11 Juillet 2021

• #24

Finalement, après d'autres tests, il restait 2 colonnes qui conservaient le gras de l'entête. J'ai supprimé ces colonnes , les ai recréés et ça fonctionne correctement.

 

Vote positif 0 Vote négatif