Bonjour,
Petite question concernant une macro que tu as ecrite pour moi, je voudrais savoir si il est possible de modifier un peu le codage pour faire cette fonction
En gros voila, je voudrais que si une ligne correspond aux criteres defini dans la macro, celle ci soit copié dans la sheet temporaire (ca ca fonctionne), mais egalement la ligne au dessus de la ligne repondant à ces dit criterres
D'avance merci beaucoup.
Voici le code
Petite question concernant une macro que tu as ecrite pour moi, je voudrais savoir si il est possible de modifier un peu le codage pour faire cette fonction
En gros voila, je voudrais que si une ligne correspond aux criteres defini dans la macro, celle ci soit copié dans la sheet temporaire (ca ca fonctionne), mais egalement la ligne au dessus de la ligne repondant à ces dit criterres
D'avance merci beaucoup.
Voici le code
Code:
Sub supprime()
' Macro by Camarchepas
Dim Tourne As Long, Cible As Long
'Dim Nom As String
Tourne = 2
Cible = 2
With ActiveSheet
Do
'Ne copie pas les lignes dont la valeur de la colonne B est inférieur à 1 seconde
'Ne copie pas les lignes dont la valeur de la colonne C est supérieur à 200
'Ne copie pas les lignes dont la valeur de la colonne F est inférieur à 100
If .Range("B" & Tourne) >= 1 And .Range("C" & Tourne) <= 200 And .Range("F" & Tourne) >= 100 Then
Cible = Cible + 1
.Rows(Tourne).Copy Destination:=ThisWorkbook.Worksheets("Temporaire").Rows(Cible)
End If
Tourne = Tourne + 1
Loop Until .Range("A" & Tourne) = ""
End With
End Sub