Copier/coller ligne sous condition dans excel

Commenter

Contenu du snippet

Bonjour,

Voiçi un petit code qui permet via un bouton de trier les données d'un tableau et de les dispatcher dans deux autre feuilles.

Sachent que la première ligne est pour les titres des collones, on commence à la seconde ligne. La variable "don" est ma condition. Je n'annalyse que les 150 première lignes du tableau. Si les valleur dans les case de la 9 ème colonne sont < à ma variable don, je copie la ligne et la colle dans une feuile, même chose si la valleur est > à la variable.

Il y a moyens de faire un tri automatique à la fin de la comparaisonce qui aura pour effet de rassembler toutes les données vers le haut de la feuille et pas dicéminée dans tout le tableau.

Voilà.

Aller.

@@++

Nicostrong

Source / Exemple : 


Private Sub CommandButton3_Click()
    Dim don
    Dim ligne
    don = 120
    For i = 2 To 150
        If Cells(i, 9) < don Then
            Worksheets(2).Range("A" & i & ":K" & i).Copy
            Worksheets(4).Range("A" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Else
            Worksheets(2).Range("A" & i & ":K" & i).Copy
            Worksheets(3).Range("A" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        End If
    Next i
    Worksheets(2).Range("A2").Select
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.