ajouter ds valeurs dans une feuille a partir d'un userform

[LOLO28]

bonjour le forum.

j"ai modifié un ancien fichier mais une fonction" ajouter " ne fonctionne plus a partir de l'userform
j'ai ajoutez des colonnes a ma listview de "a" à "z" au lieu de "b" à "j" et cela ne s’insère pas en ligne 4
ci dessous le code merci de votre aide

Private Sub CommandButton1_Click() 'Actions produitent après un clic sur le bouton "Ajouter"
' Ajouter/modifier
Dim Cel As Range
Dim Ligne As Long

If Trim(Me.TextBox1) = "" Then
'MsgBox "N.N.O obligatoire"'pas besoin
Exit Sub
End If

With Ws
Set Cel = .Columns("a").Find(what:=Me.TextBox1, LookIn:=xlValues, lookat:=xlWhole) 'modif colonne a au lieu de b
If Not Cel Is Nothing Then
If MsgBox("Un enregistrement existe avec ce(cette) N.N.O" & vbCr & "Voulez-vous le modifier ?", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Modification") <> vbYes Then Exit Sub
Ligne = Cel.Row
Else
.Rows(4).Insert
Ligne = 4
End If
.Range("A" & Ligne) = Me.TextBox1
.Range("B" & Ligne) = Me.TextBox2 ' Ecrit en B4 la valeur de Textbox1
.Range("C" & Ligne) = Me.TextBox3 ' Ecrit en C4 la valeur de Textbox2
.Range("D" & Ligne) = Me.TextBox4 ' Ecrit en D4 la valeur de Textbox3
.Range("E" & Ligne) = Me.TextBox5 ' Ecrit en E4 la valeur de Textbox4
.Range("F" & Ligne) = Me.TextBox6 ' Ecrit en F4 la valeur de Textbox5
.Range("G" & Ligne) = Me.TextBox7
.Range("H" & Ligne) = Me.TextBox8 ' Ecrit en H4 la valeur de Textbox6
.Range("I" & Ligne) = Me.TextBox9 ' Ecrit en I4 la valeur de Textbox7
.Range("J" & Ligne) = Me.TextBox10 ' Ecrit en J4 la valeur de Combobox1
.Range("k" & Ligne) = Me.TextBox11
.Range("l" & Ligne) = Me.TextBox12
.Range("m" & Ligne) = Me.TextBox13
.Range("n" & Ligne) = Me.TextBox14
.Range("o" & Ligne) = Me.TextBox15
.Range("p" & Ligne) = Me.TextBox16
.Range("q" & Ligne) = Me.TextBox17
.Range("r" & Ligne) = Me.TextBox18
.Range("s" & Ligne) = Me.TextBox19
.Range("t" & Ligne) = Me.TextBox20
.Range("u" & Ligne) = Me.TextBox21
.Range("v" & Ligne) = Me.TextBox22
.Range("w" & Ligne) = Me.TextBox23
.Range("x" & Ligne) = Me.TextBox24
.Range("y" & Ligne) = Me.TextBox25
.Range("z" & Ligne) = Me.ComboBox1

End With
Alimente_ListView
End Sub

 

[Paf]

Re : ajouter ds valeurs dans une feuille a partir d'un userform

Bonjour

Sous Excel 2003, après essais les nouvelles données saisies sont bien insérées.

A+

 

[LOLO28]

Re : ajouter ds valeurs dans une feuille a partir d'un userform

BONJOUR,

Je me suis trompé j'utilise excel 2002