DAVID-44-
XLDnaute Occasionnel
Bonjour à tous,
J'ai besoin d'un petit coup de main !
Que faut-il changer dans ce code pour supprimer les lignes dans "Stock" au lieu de simplement effacer le contenu et sans décaler l'ensemble de la feuille ?
J'ai essayé "Delete" à la place de "ClearContents", ça supprime bien la ligne, mais ça décale tout le tableau !
Merci de votre aide.
J'ai besoin d'un petit coup de main !
Que faut-il changer dans ce code pour supprimer les lignes dans "Stock" au lieu de simplement effacer le contenu et sans décaler l'ensemble de la feuille ?
J'ai essayé "Delete" à la place de "ClearContents", ça supprime bien la ligne, mais ça décale tout le tableau !
Merci de votre aide.
Code:
Sub Worksheet_Activate()
Dim f1 As Worksheet, f2 As Worksheet
Dim DerLig_f1 As Long, DerLig_f2 As Long, Lig As Long
Dim i As Long
Dim Strock As Range
Application.ScreenUpdating = False
Set f1 = Sheets("STOCK")
Set f2 = Sheets("PREVU LE")
DerLig_f1 = f1.Range("B" & Rows.Count).End(xlUp).Row
Lig = 1 + f2.Range("B65500").End(xlUp).Row
Stock = f1.Range("B9:K" & DerLig_f1)
ReDim Prevu(1 To UBound(Stock), 1 To 10)
For i = LBound(Stock) To UBound(Stock)
If f1.Cells(i + 8, "J") <> "" And f1.Cells(i + 8, "J") <> "PRÉVU LE" Then
f2.Range("B" & Lig & ":I" & Lig) = Array(Stock(i, 1), Stock(i, 2), Stock(i, 3), Stock(i, 4), Stock(i, 5), Stock(i, 8), Stock(i, 9), Stock(i, 10))
f1.Range(f1.Cells(i + 8, "A"), f1.Cells(i + 8, "K")).ClearContents
Lig = Lig + 1
End If
Next i
If Lig > 10 Then
DerLig_f2 = f2.Range("B" & Rows.Count).End(xlUp).Row
f2.Range("B9:I" & DerLig_f2).Sort [H8], 1
End If
End Sub
Dernière édition: