Excel

Eindevor -  
eljojo_e Messages postés 1155 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour
J'ai un fichier Excel qui contient environ 6000 donnés (Montant ) sur une seule colonne ces montants corréspondent a des effets de commerce conservés dans un coffre par exemple . Je dois chaque jour supprimer de ce fichier un nombre qui est déterminé par la date d'echeance de chaque traîte (effet),
Exemple:
la date du jour est 13/12/2010
donc je vais retirer tout les montants (traîtes)dont l'echeance est inférieure ou égal à 13/12/2010.
Actuellement je procéde comme suit : menu :Edition + Supprimer +décaller les cellules vers le haut ,vous imaginez le temps colossale si par exemple j'ai un 300 ou 400 effet à supprimer de cette base.
Merci.
A voir également:

1 réponse

Réponse 1 / 1
eljojo_e Messages postés 1155 Date d'inscription   Statut Membre Dernière intervention   154
 
bonjour,
il faut utiliser un code :

sub supprimer ligne()

Application.ScreenUpdating = False

'admettons que tes dates d'échéance sont sur la colonne B et que ton tableau commence à la ligne 2

dim a as string

for a = 2 to 65000

if range("b" & a).value < now() then
rows(a & a).select
Selection.Delete Shift:=xlUp
end if

next

Application.ScreenUpdating = true

end sub
0