Copie de mise enforme en VBA

bonjour,

dans le fichier joint lorsqu'on clique sur la feuille un Userform s'ouvre (pour essai tapez le code 12345).

Tout fonctionne bien, mais je voudrais que la mise en forme (sens du texte, bordures...) de la ligne deux se répête une fois qu'on valide l'Userform.

j'espère être clair,

Francky

Bonjour

Francky69100 a écrit :

que la mise en forme (sens du texte, bordures...) de la ligne deux

Que veux tu dire ?

La ligne 2 est vide

Sens du texte ?

Prépares un ou plusieurs exemples

ok Banzai,

voilà de nouveau le fichier. j'ai entrer deux validation de mon userform1 tout marche bien, mais la copie de la mise en forme au niveau des bordures ne se fait pas.

S'il n'y a pas de solution, j'ai vue une solution avec "définir la zone d'impression". En fait c'est pour qu'il n'y ait pas d'impression de ligne qui serait en mis en forme et qui serait vide de texte. et si on définit la zone d'impression à partir des colonne il imprime que les lignes où il y a du texte, cool !

Mais bon s'il y a une solution en VBA ?

Francky

Bonjour

Voilà je comprends mieux avec les lignes surlignées

Modifies la fin de ta macro Private Sub CommandButton2_Click()

 
' ...
' ...
' ....
 Ligne = Range("D" & Rows.Count).End(xlUp).Row + 1
' Obligation de désactiver les évènement sinon cela relance l'Userform
  Application.EnableEvents = False
  Range("A2:F2").Copy
  Range("A" & Ligne).PasteSpecial Paste:=xlPasteFormats
  ' Rétablissement des évènements
  Application.EnableEvents = True

  Range("D" & Ligne) = Me.ComboBox1
  Range("E" & Ligne) = Me.ComboBox2
  Range("A" & Ligne) = Replace(Me.TextBox3, vbCr, "")
  Range("F" & Ligne) = Replace(Me.TextBox1, vbCr, "")
  Range("B" & Ligne) = TextBox4
  Range("C" & Ligne) = TextBox5

End Sub

Génial Banzai, ça marche,

dernière exigence, est-ce qu'on peut améliorer la macro afin qu'une fois qu'on est sur la feuille on ne voit pas que la ligne "A2:F2" est en attente de copie (clignotement) ? un genre

Unload.copie

merci d'avance,

Francky

Bonjour

Modifies ta macro Private Sub CommandButton2_Click()

  Ligne = Range("D" & Rows.Count).End(xlUp).Row + 1
  ' Obligation de désactiver les évènement sinon cela relance l'Userform
  Application.EnableEvents = False
  Range("A2:F2").Copy
  Range("A" & Ligne).PasteSpecial Paste:=xlPasteFormats
' Enlève les pointillés autour de la ligne 2
  Application.CutCopyMode = False
  ' Enlève la sélection sur la dernière ligne
  Range("A1").Select
  ' Rétablissement des évènements
  Application.EnableEvents = True

Merci Banzai,

je vois que tu as même anticipé ma question suivant sur la "déselection" de la ligne copier,

à bientôt,

Francky