Transferer des infos en VBA avec condition

Question

Bonjour, 

Je suis débutant en VBA et je cherche une solution pour faire la manip ci-dessous.

je voudrai un code qui fasse une recherche sur une colonne X. si cette valeur est inférieur à la date d'aujourd'hui, alors un report de la ligne se fait sur la feuille 2 du classeur.

Merci d'avance pour vos réponses


Configuration: Windows XP / Internet Explorer 7.0

zebulon2503 · Answer

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

Transferer des infos en VBA avec condition

1 réponse

Discussions similaires

Newsletters