Condition IF pour macro

Bonjour;

J'aimerais connaitre la synthaxe VB pour une condition SI , pour recopier unn tableau de feuil 1 en feuil2

Exemple en PJ

mERCI

Bonjour Cyrino,

ton fichier en retour

tes explications sont bien ????????????????????????, relis donc ton texte dans le fichier !!!

enfin comme tu avais mis ce que tu voulais en résultat

a+

Papou

Je te remercie paritec, c'est exactement ce que je voulez

Merci beaucoup.

Est il possible de m'expliquer un peu chaque ligne de la macro (en mettant un commentaire) comme par exemple : i&, fin&, a& ; fin = .Range("A" & Rows.Count).End(xlUp).Row , etc ... , je suis débutant en VBA mais trouve cela trés utile donc a envie d'en apprendre plus.

En tout cas merci

re curino le forum

ci-dessous les explications

a+

papou

Sub copier()
    Dim i&, fin&, a& 'déclare les différentes variables en long
    With Feuil1 ' avec la feuille Feuil1
        fin = .Range("A" & Rows.Count).End(xlUp).Row ' là je cherche la dernière ligne remplie en partant de
        'la dernière ligne de la feuille colonne A
        a = 6 'là je donne à la variable a la valeur 6 pour commencer la copie en ligne 6
        For i = 1 To fin  'là je fais une boucle de 1 à là dernière ligne fin
            If .Cells(i, 2) <> "" And .Cells(i, 3) <> "" Then .Rows(i).Copy Feuil2.Cells(a, 1): a = a + 1
            'là je donne la condition de recopie, si la cellule ligne i colonne 2 est différente de rien, et que
            'la cellule ligne i, colonne 3 est aussi différente de rien, alors je recopie la ligne en feuil2
            'cellule ligne a, 1  et ensuite j'incrémente la variable a de a + 1
        Next i  ' prochaine ligne de la boucle
    End With 'fin du with
End Sub