Macro pour déplacer une cellule sous condition

[n1c0la5]

Bonjour !

D'abord, merci à tous pour votre participation sur ce forum que je consulte régulièrement dans le cadre professionnel 🙂

Je souhaite obtenir de l'aide sur le cas suivant (exemple en pièce jointe):
Avec une macro, déplacer certaines cellules d'une colonne sous condition, je m'explique,

-dans la colonne C déplacer les cellule qui contiennent "2011" vers la colonne B;
-dans la colonne D déplacer les cellule qui contiennent un nombre inférieur à 100 vers la colonne E.

Merci d'avance pour toute aide qui pourrait m'être apporter !
@+

Nicolas.

 

[Efgé]

Re : Macro pour déplacer une cellule sous condition

Bonjour n1c0la5,
Une proposition :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 6 To Cells(Rows.Count, 3).End(xlUp).Row
    If InStr(Cells(i, 3), "2011") <> 0 Then
        Cells(i, 2) = Cells(i, 3)
        Cells(i, 3).ClearContents
    End If
    If Cells(i, 4).Value < 100 Then
        Cells(i, 5) = Cells(i, 4)
        Cells(i, 4).ClearContents
    End If
Next i
Application.ScreenUpdating = True
End Sub

Après il faudra voir par rapport au fichier réel...
Cordialement

 

[n1c0la5]

Re : Macro pour déplacer une cellule sous condition

Je vais tester de ce pas 🙂

Edit: Fonctionne parfaitement, Merci encore !
@+