Format conditionnels en VBA

[isa44]

Bonjour à tous,
je voudrais appliquer des formats conditonnels aux nouvelles lignes que j'ajoute à un tableau.

Je joint un extrait de fichier pour meilleur compréhension sur ce lien :

http://cjoint.com/?misXZOriwN

 

[isa44]

Re : Format conditionnels en VBA

Merci à vous deux , je testerais les codes demain.

 

[Lii]

Re : Format conditionnels en VBA

Bonsoir,

maintenant on est bien 2 !
Avec ton code, Jean-Marcel, tout est Copié (même les contenus).
Si tu ne veux pas cela, isa44, essaie ce

Private Sub CommandButton1_Click()
  Dim DerLigne As Integer
  Sheets("Signa").Unprotect
  Application.EnableEvents = False
  DerLigne = Range("A33000").End(xlUp).Row + 1
  Rows(DerLigne - 1 & ":" & DerLigne - 1).Copy Range("A" & DerLigne)
  [B]Rows(DerLigne & ":" & DerLigne).ClearContents[/B]
  Range("A" & DerLigne) = TextBox3
  Range("L" & DerLigne) = TextBox8
  Application.EnableEvents = True
  [COLOR=Red]TextBox3.Value = ""
  TextBox8.Value = ""
   Unload Me[/COLOR]
End Sub

avant le End Sub, il y a 1 ou 2 lignes inutiles donc à effacer.