Discussion :

[Chewi]

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 :

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

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

Chewi

[SfJ5Rpw8]

ben utilise une variable pour stocker le numéro de derniére ligne...

Code :

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

1
2
3
4
5
...
iDerLigne = Range("a65536").End(xlUp).Row + 1
...

puis utilise la variable...

Code :

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

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..

[Chewi]

Salut bbil,

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"

Chewi

[SfJ5Rpw8]

ben non tu copie la "valeur" de date ... pas une formule...!

[Chewi]

euh... autant pour moi?

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

[SfJ5Rpw8]

à 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 :

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

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

[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

[SfJ5Rpw8]

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...