Bonjour
J'ai besoin de votre soutien pour finaliser un post copier/coller avec condition avec une macro si possible
Ma requête, merci d'avance pour votre aide si cela est faisable :
-de copier coller suivant 1 condition si des lignes du tableau FEUIL1
comprend 2 textes ' Lundi ' et ' abc'
et également
comprend 2 textes ' Mercredi' et ' bde'
de copier toutes les lignes afin de les transférées dans l'onglet de la Feuil2
merci, je joins le fichier
j'ai cela pour effacer
Dim I As Integer
For I = 300 To 1 Step -1
If Not Cells(I, 1).Resize(1, 6).Find("Lundi") Is Nothing Then Rows(I).Delete
Next I
Sub Renouvellement_Norm()
Dim plage As Range, cel As Range
'stop rafraichissement ecran
Application.ScreenUpdating = False
' valeur à chercher
valcherch = "lundi"
With Worksheets("Feuil1")
'derniere cellule colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row
'definition plage à tester en memoire
Set plage = .Range("A1:ZA" & derlig)
End With
derlig = 0
With Worksheets("Feuil2")
'test plage
For Each cel In plage
If cel = valcherch Then
'premiere cellule vide apres derniere non vide colonne D
derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
'premier lancement
If derlig = 2 Then
derlig = 9
End If
'copier la ligne entière
cel.EntireRow.Copy .Range("A" & derlig)
End If
Next cel
End With
' rafraichissement ecran
Application.ScreenUpdating = True
End Sub
merci d'avance
crdlt,
André