[VBA-E]Copier avant d'effacer

Version imprimable

20/01/2006, 13h29
tarmin

[VBA-E]Copier avant d'effacer

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
20/01/2006, 13h54
Megaxel

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

Tu pourrais le faire en enregistrant la macro :

Code:

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:

Rows(NoLigne).select

ou NoLigne est donc une variable (!) :wink:

23/01/2006, 09h41
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 :oops:
23/01/2006, 12h02
Igloobel

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

Code:

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

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:

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