A voir également:
- Insérer lignes sous conditions
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer sommaire word - Guide
- Insérer filigrane word - Guide
1 réponse
merci de verifier le code ci dessous :
Cdt,
billy
Sub Renouvellement_Norm()
Dim plage As Range, cel As Range
'stop rafraichissement ecran
Application.ScreenUpdating = False
'valeur a chercher
valcherch = Sheets("Extraction1").Range("A1")
With Worksheets("Extraction1")
'derniere cellule colonne D
derlig = .Range("U" & Rows.Count).End(xlUp).Row
'defintion plage a tester en memoire
Set plage = .Range("U5:U" & derlig)
End With
derlig = 0
With Worksheets("Extraction1")
'test plage
For Each cel In plage
If cel = valcherch Then
'premiere cellule vide apres derniere non vide colonne D
derlig = .Range("U" & Rows.Count).End(xlUp).Row + 1
'premier lancement
If derlig = 2 Then
derlig = 9
End If
'copy ligne entiere
cel.EntireRow.Copy .Range("A" & derlig)
End If
Next cel
End With
'rafraichissement ecran
Application.ScreenUpdating = True
End Sub
Cdt,
billy