Discussion :

[Marc31]

Bonjour à tous,

J'ai fais une base de données sous excel (c'est pas bien je sais...)
Il y a plusieurs boutons Ajouter stagiaire, modifier stagiaire avec des userforms.
Maintenant j'aimerais rajouter un bouton supprimer stagiaire. ( ceux qui supprimerais la ligne entière dans la base)
Et pour sélectionner le stagiaire, je souhaite le faire avec une liste déroulante.

Si quelqu'un pouvait m'aider? merci et bonne journée

[Invité]

bonjour,
ci ça te donnes des idées: http://www.developpez.net/forums/d14...e/#post7819625

[SfJ5Rpw8]

Bonjour,

si tu utilise modifier tu dois avoir déjà un code pour sélectionner la ligne à modifier ... ne peu tu pas t'en inspirer pour ton code de sélection de la ligne à supprimer ?

pour le code de suppression de ligne commence par utiliser l'enregistreur de macro ... puis inspire toi du code généré pour créer ton code ...

[Marc31]

Alors j'ai testé avec scrollbar mais il me marque: "erreur de compilation, membre de méthode ou de données introuvables"...
Mais dans mon userform j'ai que des combobox ou des textbox, c'est peut être pour ça?

Oui mais supprimer une ligne, c'est différent que de modifier certains champs....

[SfJ5Rpw8]

Oui mais supprimer une ligne, c'est différent que de modifier certains champs....

bien sur ... mais ton code pour modifier la ligne ne te permet-il pas de récupérer le numéro de ligne à modifier ? !


ensuite je t'ai dis d'utiliser l'enregistreur de macro pour trouver l'instruction permettant d'effacer une ligne ..

[Marc31]

Oui c'est exact je récupère le numéro de ligne lorsque je clique dans la combobox grâce ce code:

Code :

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

Lig = 1 + Me.ComboBox1.ListIndex + 1

[SfJ5Rpw8]

Et que te donne l'enregistreur de macro lorsque tu efface une ligne ?

[Marc31]

ça me donne ça....

Code :

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

1
2
Rows("5946:5946").Select
    Selection.Delete Shift:=xlUp

[SfJ5Rpw8]

ok,

tu vois donc que la procédure à appliquer à ta ligne est "Delete" avec xlUp comme option....


Donc il te reste à voir comment tu as accès as ta feuille ... en supposant que tu utilise une variable workSheet nommée sh ...

ton code devrais ressembler à :

Code :

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

1
2
3
 
Lig = 1 + Me.ComboBox1.ListIndex + 1
sh.rows(Lig).delete Shift:=xlUp

...reste juste à revoir ton objet feuille ( sh ...) pour qu'il corresponde au reste de ton code ...

[Marc31]

Nickel ça marche super!!!!! Encore MERCI