Userform inséré ligne + copie donné

Bonjour,

Nouveau problème sur un userform.

Explication je voudrai que lorsque j'enregistre via l'userform il m’insère une ligne avant la dernière et copie les données.

Actuellement, j'arrive a trouvé l'avant dernière

et a copié mais il m'éfface ce qu'il y avait sur la ligne au lieu de m'en inséré une...

Ci dessous la macro que j'ai enregistré.

Merci d'avance pour vos réponse.

Private Sub CommandButton1_Click()

'Contrôles de contenu

If TextBox_Article.Value = "" Then 'SI pas de "réf" ...

Label_réf.ForeColor = RGB(255, 0, 0) 'Label "réf" en rouge

MsgBox "Formulaire incomplet"

Else

'Si le formulaire est complet, on insère les valeurs sur la feuille

Dim no_ligne As Integer, civilite As String

'no_ligne = N° de ligne de la dernière cellule non vide de la colonne -1

no_ligne = Range("A65536").End(xlUp).Row - 1

'Insertion des valeurs sur la feuille

Cells(no_ligne, 1) = TextBox_Article.Value

'Après insertion, on remet les valeurs initiales

TextBox_Article.Value = ""

End If

End Sub

Bonjour yamitony,

Dans ton code, il manque l'insertion de ligne, c'est pour cela que tes données sont effacées après la validation de l'USF.

Il faut que tu rajoute ce code avant l'insertion des nouvelles valeurs :

lig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lig).EntireRow.Insert Shift:=xlDown

Cordialement

Bonjour

et aussi comme ca

No_ligne = Range("A" & Rows.Count).End(xlUp).Row
Rows(No_ligne).Insert

A+

Maurice

Merci pour ta réponse, si rapide. Je teste sa dans l après midi.

Le code fonctionne très bien.

Merci bien.