Bonjour,
Je suis ennuyé et bloqué sur cette macro (Le FONCTIONNEMENT EST CORRECT QUAND ELLES NE SONT PAS ASSOCIES)
Quand je les réunis Beug 😕 1004 la métode Select de la classe Range a échoué.
Range("1:3,5:5").Delete
For i = [J65536].End(xlUp).Row To 2 Step -1
If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
Rows(i).Delete
End If
Next i
Sheets("Feuil2").Select
Columns("K:K").Insert
Columns("W:W").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste
End Sub
Par avance merci
A+
Je suis ennuyé et bloqué sur cette macro (Le FONCTIONNEMENT EST CORRECT QUAND ELLES NE SONT PAS ASSOCIES)
Quand je les réunis Beug 😕 1004 la métode Select de la classe Range a échoué.
Range("1:3,5:5").Delete
For i = [J65536].End(xlUp).Row To 2 Step -1
If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
Rows(i).Delete
End If
Next i
Sheets("Feuil2").Select
Columns("K:K").Insert
Columns("W:W").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste
End Sub
Par avance merci
A+