Bonjour le forum
petit souci pour supprimer une ligne dans une feuille de données
voir exemple ci-dessous
un grand merci pour votre aide
et bonne journée
cyberpapy44
Private Sub CommandButton1_Click()
Sheets("Données").Activate
Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("Données").Range("A456541").End(xlUp).Row + 1
With Sheets("Données")
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = ComboBox5.Value
Cells(derligne, 3) = ComboBox6.Value
Cells(derligne, 4) = ComboBox7.Value
Cells(derligne, 5) = TextBox5.Value
Cells(derligne, 7) = TextBox6.Value
Cells(derligne, 9) = TextBox7.Value
Cells(derligne, 6) = TextBox9.Value
Cells(derligne, 8) = TextBox10.Value
End With
End If