[Excel] Insertion date de transfert

Version imprimable

Bonjour à toute l'équipe du forum,

J''ai créé un code qui permet de transféré la ligne active d'une feuille vers la première ligne vide d'une autre feuille "poubelle".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub transfert() x = ActiveCell.Row Rows(x).Select Selection.Cut Sheets("Poubelle").Select Rows(Range("a65536").End(xlUp).Row + 1).Select ActiveSheet.Paste Sheets("En cours").Select Rows(x).Delete Shift:=xlUp End Sub
Je voudrais insérer à chaque transfert dans la cellule (H;ligne copiée) la date de transfert de ma ligne.
Date qui serait alors fixée.

Quel bout de code dois-je rajouter à ma macro?

Merci

Chewi8-)

22/11/2006, 18h51
SfJ5Rpw8
ben utilise une variable pour stocker le numéro de derniére ligne...
Code:

1 2 3 4 5 ... iDerLigne = Range("a65536").End(xlUp).Row + 1 ...
puis utilise la variable...
Code:

1 2 3 4 5 6 .. Rows(iDerLigne ).Select .. cells(iDerLigne ,"H") = Date
Attention à l'ordre de tes lignes .. et surtout à la feuille active..., car sans
rien devant .. les objets range, Cells.... pointe sur la feuille active..
23/11/2006, 09h53
Chewi

date dynamique --> date fixe

Salut bbil,

Citation:

Date Function

Returns a Variant (Date) containing the current system date

Ma date va donc changer tous les jours si je comprends bien.
Or je voudrais qu'elle reste sur la valeur qu'elle possède lors du transfert.
C'est pour dans le futur pouvoir voir à quelle date j'ai envoyé ma ligne dans la feuille "poubelle"

Chewi8-)
23/11/2006, 11h55
SfJ5Rpw8

ben non tu copie la "valeur" de date ... pas une formule...!
24/11/2006, 10h49
Chewi

euh... autant pour moi?:oops:

J'ai pas du bien comprendre le terme "Variant"

à oui ... comme je préfére limiter l'utilisation des Select, ActiveSheet.... j'avais préparé une version limitant leur utilisation (seule activeCell est utilisé pour l'initialisation..)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub transfert()
    Dim fd As Worksheet 'Feuille destination
    Dim x  As Range
    Dim iDerLigne As Integer
    Set fd = Sheets("Feuil2") 'Poubelle
    Set x = ActiveCell ' On copie la ligne en cous  'En cours
    iDerLigne = fd.Range("a65536").End(xlUp).Row + 1
    x.EntireRow.Copy fd.Rows(iDerLigne)
    fd.Cells(iDerLigne, "H") = Date
    x.EntireRow.Delete Shift:=xlUp
    'Libération des objets..
    Set x = Nothing
    Set fd = Nothing
End Sub

24/11/2006, 13h40
Chewi

bbil,

peux-tu me dire quel est le problème avec les "Select", "ActiveSheet", "ActiveCell", et autres.

Car tu dis vouloir les éviter Or, la plupart du temps, je base ma syntaxe dessus.

Merci
24/11/2006, 14h21
SfJ5Rpw8

Citation:

Envoyé par Chewi

bbil,

peux-tu me dire quel est le problème avec les "Select", "ActiveSheet", "ActiveCell", et autres.

Car tu dis vouloir les éviter Or, la plupart du temps, je base ma syntaxe dessus.

Merci

ben difficile à préciser... en les utilsant tu deviens dépendant de la façon dont est lancée ta macro (cellule active..., feuille active..) , tu provoque des mouvement du curseur vers les diverses feuilles et cellules ce qui modifie l'affichage et ralentie le déroulement de ta macro...il doit y avoir d'autre raison que j'ai du mal à trouver pour le moment...:roll: