Discussion :

[tarmin]

Bonjour,

J'ai créé un formulaire me permettant de modifier, saisir ou effacer une base de donnés. chaque ligne correspond aux renseignements d'une personne. Avec cela, je souhaiterais que lorsque j'efface une ligne (une personne) les données soient coller dans une autre feuille du même classeur. Actuellement j'ai le code pour effacer la ligne mais pas pour la copier dans l'autre feuille...

Quelqu'un pourrait-il me donner un p'tit coup de pouce ?

Merci d'avance

[Megaxel]

Le meilleur conseil: fais le "à la main", en enregistrant la macro. Il ne te restera qu'à fignoler le code obtenu.

[ouskel'n'or]

Tu pourrais le faire en enregistrant la macro :

Code :

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

1
2
3
4
5
6
7
8
    Rows("3:3").Select
    Selection.Cut      'N'efface pas la ligne, se contente de la copier
    Sheets("Feuil2").Select  'passage dans feuil2
    Rows("7:7").Select  'sélection de la ligne suivant la ligne d'insersion
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown  'insersion feuil2 de la ligne coupée feuil1
    Sheets("Feuil1").Select     'Retour sur feuil1 (ta ligne est toujours sélectionnée)
    Selection.Delete Shift:=xlUp     'SUPPRESSION de la ligne

Tu peux simplifier mais voilà pour le principe

A+

Tu peux remplacer "Rows("7:7").Select " par

Code :

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

Rows(NoLigne).select

ou NoLigne est donc une variable (!)

[tarmin]

Super ça marche. Merci du coup de main !

J'aurais une autre question. les données que j'efface sont, en fait, des employés qui quittent l'entreprise et j'aurais besoin de connaître la date de départ. Par conséquent est-il possible que, lorsque je click sur mon bouton effacer, une boîte de dialogue s'ouvre en me demandant la date et que celle-ci s'affiche sur ma feuil2 dans la colonne 16 ?

Je ne sais pas si j'abuse

[Igloobel]

Salut ,
je pense que ce que tu cherches c'est :

Code :

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

Val_lue=inputbox("Saissez la date")

Et puis ta variable :"Val_lue" tu en fais ce que tu veux après !!!

Si c'est ça qu tu veux tu le dis STP

Igloobel

[tarmin]

Peut-être bien... mais étant donné mon niveau en vba je ne sais pas...

Voilà ce que j'ai actuellement pour me copier mes données dans ma feuil2 à partir de ma base (feuil1) lorsque j'efface un employé. Donc si tu pouvais me dire où il faut que je place ton code ce serait sympathique !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Supprimer_Click()
Dim i As Integer
'Supprimer l'employé séléctionné
    i = lstEmployes.ListIndex + 15
        Rows(i).Select
        Selection.Cut
        Sheets("Anciens employés").Select
        Rows("2:2").Select
        Selection.Range("3:3").Insert shift:=xlShiftDown
        Sheets("Employés").Select
    Selection.Delete shift:=xlUp
    Init_Employes
    bnouveau = True
      ' Réaffichage de la liste des employés
If bnouveau Then Affiche_Employes
End Sub

Merci d'avance