Tableau Excel couleur de fond ligne

Bonjour pouvez-vous m’aider svp

À chaque fois que j’intègre une ligne dans mon tableau avec mon userform elle prend la mise en forme de la ligne du dessus donc si il y a des couleurs elle les ajoute aussi serait-il possible d’ajouter les ligne sans couleur.

Un grand merci à vous.

Bonjour,

Il te suffit soit de supprimer les couleurs du tableau puisque tu ne veux pas qu'il y en ai, soit de supprimer la couleur une fois les valeurs entrées :

Rows("Ton numéro de ligne").Interior.ColorIndex = -4142

Bonjour et merci pour ta réponse.

J'ai besoin des couleurs dans mon tableau que nous intégrons par la suite.

simplement je voudrais que chaque ligne que j'intègre dans mon tableau ne prenne pas la mise en forme des couleurs de la ligne du dessus

voici mon code qui intègre les ligne.

merci

Private Sub Bt6_Click()

Dim bb, li&, i&, a&, Fin&, OK As Boolean

If C4.ListIndex = -1 Then MsgBox "Vous devez Sélectionner un mois de Destination des Lignes à Copier!!", vbCritical, "Manque de Sélection": Exit Sub

bb = L2.List

Application.ScreenUpdating = 0

With Sheets(C4.Text)

If .visible = 0 Then OK = 1

.visible = 1

.Select

.ListObjects(1).ListRows.Add

li = .Range("A" & Rows.Count).End(3).Row

.Cells(li, 1).Resize(UBound(bb) + 1, UBound(bb, 2) + 1).FormulaLocal = bb

L2.ListIndex = -1

Application.ScreenUpdating = 0

Fin = .Range("A" & Rows.Count).End(3).Row

For i = 8 To Fin

If IsNumeric(.Cells(i, 2)) And .Cells(i, 2) <> "" Then

.Cells(i, 2) = .Cells(i, 2) * 1

.Cells(i, 2).NumberFormat = "0"

End If

For a = 10 To 15

If IsNumeric(.Cells(i, a)) And .Cells(i, a) <> "" Then

.Cells(i, a) = .Cells(i, a) * 1

.Cells(i, a).NumberFormat = "0.00"

End If

Next a

Next i

C4 = "": Bt6.Caption = "Ajouter au Mois de "

If OK Then .visible = 0: OK = 0

End With

[A7].Sort key1:=[A7], Order1:=xlAscending, Header:=xlYes

End Sub

Tu utilises un tableau structuré mais tu n'en utilises pas les outils et c'est dommage !

Pour ajouter tes valeurs et supprimer la couleur de fond :

Dim Ligne As ListRow
Set Ligne = .ListObjects(1).ListRows.Add
Ligne.Range.Value = bb
Ligne.Range.Interior.ColorIndex = -4142

Bonsoir un grand merci pour ton aide.

Mais je n’arrive pas à l’intégrer dans mon code je ne sais pas ce que je dois enlever pour que toutes les lignes que j’ajoute en même temps s’intègre aussi.

Merci

Bonjour,

Sans fichier exemple ça va pas être facile de t'aider, poste un fichier anonymisé mais ressemblent le plus possible à l'original !

Bonjour

OK je regarde à ça ce week-end et je te l’envoie en tout cas un grand merci