Discussion :

[dj-julio]

Bonjour,

J'ai 2 feuilles dans le même document Excel (Feuille : "ARCHIVES" et "DETRUIT2")
ces 2 feuilles sont du même format : la ligne 1 comporte les en-tête (Nom, prénom, adversaire, N° de sinistre, date sinistre, date destruction, nom de la chemise et N° de la chemise).
Il faut que je déplace les lignes dont la date de destruction (Date destruction) et égale à année actuelle -1 an (soit 2006).
j'arrive à isoler la ligne que je souhaite (dans la feuille "ARCHIVES", mais je ne sais pas comment la coller dans la 1ère ligne vide de la feuille "DETRUIT2").
Cette action est faite au click sur un bouton et va agire sur de nombreux enregistrements (sur une feuille : ARCHIVES qui fait dans les 50 000 lignes).

Merci de votre aide.

[Singular]

Essaies :

Code :

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

1
2
 
Worksheets.("DETRUIT2").Cells((Worksheets("DETRUIT2").UsedRange.Rows.Count + 1), 1).Paste

[dj-julio]

Merci, je vais essayer ça dès demain !!
maintenant pour supprimer une ligne entière (en la supprimant vraiment, pas seulement son contenu), je n'y arrive pas non plus

si par exemple dans la ligne 5 j'efface ce qu'elle contient, je veux que toutes les lignes qui se situent en dessous de la ligne 5 remontent d'1 cran.

Merci encore !!

[Singular]

Quelque chose comme ça :

Code :

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

1
2
 
Worksheets("ARCHIVES").Cells(5,1).EntireRow.Delete xlShiftUp

A+

[dj-julio]

Super !!!
La suppression marche
Merci beaucoup !

Je suis une grosse m**** en vba ^^ je préfère le php quand même.

[dj-julio]

Par contre j'essaie de copier coller une ligne
je fais ça :

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
   Worksheets("Feuil1").Rows(5).EntireRow.Copy
   Worksheets("Feuil2").Cells((Worksheets("Feuil2").UsedRange.Rows.Count + 1), 1).Paste
 
End Sub

Le nom des feuilles c'est juste pendant mes tests l'erreur n'est pas là.

Il me renvoie une erreur 438
"Propriété ou méthode non gérée par cet objet".

désolé et merci encore pour cettd aide !