Transferer des infos en VBA avec condition
Fermé
Napo
-
24 mars 2010 à 11:51
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 - 24 mars 2010 à 14:01
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 - 24 mars 2010 à 14:01
A voir également:
- Transferer des infos en VBA avec condition
- Excel cellule couleur si condition texte - Guide
- Transferer photo android vers pc - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
1 réponse
zebulon2503
Messages postés
1228
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
110
Modifié par zebulon2503 le 24/03/2010 à 14:03
Modifié par zebulon2503 le 24/03/2010 à 14:03
Salut
Voici un bout de code qui pourra t'aider :
Dans "Today", je met la date d'aujourd'hui.
J'ai mis le compteur de lignes i de 1 à 100 (tu mettras en fonction du nombre de ligne de ton fichier).
Par défaut, je fait le test sur la colonne A (
Après avoir copié la ligne voulue, je sélectionne la Feuil2 du classeur et colle la ligne copiée au même endroit (ligne 1 de Feuil1 copiée en ligne 1 de Feuil2).
Hésites pas si tu veux des explications. :-)
A+
Les cons peuvent avoir l'air intelligent à première vue... Heureusement pour eux que la vitesse de la lumière est supérieure à celle du son.
Voici un bout de code qui pourra t'aider :
Sub Test() Dim Today As Date Today = Format(Now, "dd.mm.yyyy") Sheets("Feuil1").Select For i = 1 To 100 Sheets("Feuil1").Select Cells(i, 1).Activate If ActiveCell.Value < Today Then Rows(ActiveCell.Row).Select Selection.Copy Sheets("Feuil2").Select Cells(i, 1).Activate Selection.PasteSpecial End If Next i Cells(1, 1).Activate End Sub
Dans "Today", je met la date d'aujourd'hui.
J'ai mis le compteur de lignes i de 1 à 100 (tu mettras en fonction du nombre de ligne de ton fichier).
Par défaut, je fait le test sur la colonne A (
Cells(i, 1).Activate)
Après avoir copié la ligne voulue, je sélectionne la Feuil2 du classeur et colle la ligne copiée au même endroit (ligne 1 de Feuil1 copiée en ligne 1 de Feuil2).
Hésites pas si tu veux des explications. :-)
A+
Les cons peuvent avoir l'air intelligent à première vue... Heureusement pour eux que la vitesse de la lumière est supérieure à celle du son.