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.
