XL 2013 probleme insertion de nouvelle ligne

bredeche

XLDnaute Occasionnel
bonjour j ai un tableau qui commence partir de la cellule b11 et s’arrête a la ligne 127 par le biais d'un via un formulaire
je demande d' inséré une ligne ci dessous mon code
[quote Private Sub CommandButton2_Click()
Dim NewLig As Long
With Sheets("Recap")

NewLig = Range("A65536").End(xlUp).Row + 1
Range("B11" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

End With

Range("C" & NewLig).Value = TextBoxobjet
Range("Z" & NewLig).Value = TextBoxfiche
Range("AA" & NewLig).Value = CDate(TextBoxdate)
Range("AB" & NewLig).Value = TextBoximputation
Range("AC" & NewLig).Value = TextBoxlocalisation
Range("AD" & NewLig).Value = ComboBox1
Range("AE" & NewLig).Value = TextBoxannée
Range("AF" & NewLig).Value = CheckBox1
Range("AG" & NewLig).Value = CheckBox2
Range("AH" & NewLig).Value = CheckBox3
Range("AI" & NewLig).Value = TextBoxconstat
Range("AJ" & NewLig).Value = TextBoxrisque
Range("AK" & NewLig).Value = TextBoxorigine
Range("AL" & NewLig).Value = TextBoxconservatoires
Range("AM" & NewLig).Value = TextBoxtravaux
Range("AN" & NewLig).Value = TextBoxobservation
Range("AO" & NewLig).Value = TextBoxconstructeur
Range("AP" & NewLig).Value = TextBoxduréevie1
Range("AQ" & NewLig).Value = TextBoxduréevie2


Unload UserForm1

End Sub
][/quote]

mon problème que LA ligne s insert pas du tous a cette endroit mais les données a se placé commence en b129
merci de votre aide
cordialement





Haut
 

Fichiers joints

Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas