Discussion :

[Chicard]

Salut,
Je veux supprimer une ligne que je choisis.
Dans un usf, j'ai crée une textbox qui contiendra le numéro de la ligne à supprimer. Est-ce que ce code fonctionnera?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Suppression_données()
    Worksheets("Base de données").Rows(TextBox_Suppression_Ligne.Value).Delete Shift:=xlUp
End Sub

[zandru]

Est-ce que ce code fonctionnera?

Le meilleur moyen de le savoir est de le tester

L'as-tu fait ?
Et si non pourquoi ?

[laetitia]

bonjour le fil le forum normalement oui ca depend ou tu va mettre ta macro
si dans user ok autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Base de données").Rows(userform1.TextBox_Suppression_Ligne.Value).Delete Shift:=xlUp

[Chicard]

Non je l'ai pas tester parceque j'aurais aimé avoir un avis avant et bien que mon tableau soit pas en fonction pour eviter de faire une connerie.

En parlant de connérie est-il possible de rendre une ligne non supprimable?

[laetitia]

re le fil fait des essais sur un autre fichier un user un bout de code eh hop tu vois si ca marche ou pas au pire sur ton fichier du moment que tu sauvegarde pas

[zandru]

Pour éviter de toucher à un tableau, fait un test sur un autre fichier "test" pour valider le bout de code avant de l'intégrer.

Sinon, à priori, je ne vois pas d'erreur sur ta ligne.

Pour rendre une ligne non-supprimable, va voir du coté de la protection de la feuille, cela doit être faisable (je ne l'ai jamais fait, donc je ne suis pas sur )

[laetitia]

re, un petit exemple a adapter en enpechant de supprimer la row 10

[Chicard]

J'ai essayé mon bout de code mais il a foiré et comme un con j'ai ferme excel sans sauvegardé le peu que j'avais fait.