Probleme insertion ligne
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
Bonjour,
Es-tu sûr de :
Range("B11" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
Le B11 devrait être B tout court ?