L'erreur classique 424 ^^ Résolu/Fermé

Question

Bonjour à tous,

Cette erreur est assez présente sur le forum cependant je n'ai pas trouvé de réponses satisfaisantes, même en cherchant sur google, voilà tout ca pour dire que j'ai un niveau mediocre en VBA, surtout que c'est sûrement encore une erreur à la con, mais je ne vois pas laquelle ...

Mon code à pour but de classer des données pour chaque ligne dans un ordre dépendant de leur date (du plus proche au plus vieux). J'avais commencer à l'appliquer pour une seule ligne et maintenant à toutes les lignes par une boucle. Sauf que j'ai un problème d'erreur 424 à la ligne :

 - Set myplage = .Range(.Cell(4, i), .Cell(7, i), .Cell(10, i))

Voici le code complet :

Sub new_ranking()

Dim Minimum As Date
Dim i As Integer
Dim FRemoval_1 As Integer
Dim FRemoval_2 As Integer
Dim FRemoval_3 As Integer

Set wb = ActiveWorkbook
Set f_report = wb.Worksheets("Forecast")
FRemoval_1 = 4
FRemoval_2 = 7
FRemoval_3 = 10

f_report.Activate

'Rank#1
For i = 5 To 7

Minimum = Application.Min(Cells(i, 4), Cells(i, 7), Cells(i, 10))
    
With Forecast
Set myplage = .Range(.Cell(4, i), .Cell(7, i), .Cell(10, i))
End With

For Each Cell In myplage
        If Cell = Minimum Then
            MinimumAddress = Cell.Address
            Exit For
        End If
    Next Cell
    
    Range(MinimumAddress).Cut
        Sheets("Template").Select
        Range("D" & i).Select
        ActiveSheet.Paste
    Sheets("Forecast").Range(MinimumAddress).Offset(0, -2).Cut
        Sheets("Template").Select
        Range("B" & i).Select
        ActiveSheet.Paste
    Sheets("Forecast").Range(MinimumAddress).Offset(0, -1).Cut
        Sheets("Template").Select
        Range("C" & i).Select
        ActiveSheet.Paste
    f_report.Activate

'Rank#2
    Minimum = Application.Min(Cells(i, 4), Cells(i, 7), Cells(i, 10))
    For Each Cell In myplage
        If Cell = Minimum Then
            MinimumAddress = Cell.Address
            Exit For
        End If
    Next Cell
    
    Range(MinimumAddress).Cut
        Sheets("Template").Select
        Range("G" & i).Select
        ActiveSheet.Paste
    Sheets("Forecast").Range(MinimumAddress).Offset(0, -2).Cut
        Sheets("Template").Select
        Range("E" & i).Select
        ActiveSheet.Paste
    Sheets("Forecast").Range(MinimumAddress).Offset(0, -1).Cut
        Sheets("Template").Select
        Range("F" & i).Select
        ActiveSheet.Paste
    f_report.Activate

'Rank#3
    Minimum = Application.Min(Cells(i, 4), Cells(i, 7), Cells(i, 10))
    For Each Cell In myplage
        If Cell = Minimum Then
            MinimumAddress = Cell.Address
            Exit For
        End If
    Next Cell
    
    Range(MinimumAddress).Cut
        Sheets("Template").Select
        Range("J" & i).Select
        ActiveSheet.Paste
    Sheets("Forecast").Range(MinimumAddress).Offset(0, -2).Cut
        Sheets("Template").Select
        Range("H" & i).Select
        ActiveSheet.Paste
    Sheets("Forecast").Range(MinimumAddress).Offset(0, -1).Cut
        Sheets("Template").Select
        Range("I" & i).Select
        ActiveSheet.Paste
    f_report.Activate
Next

End Sub

Si vous préférez avoir le fichier pas de problèmes mais je ne sais pas comment le metre en pièce-jointe.

Merci beaucoup !

michel_m · Answer

Bonjour

pourquoi
on a
Set f_report = wb.Worksheets("Forecast") 

With Forecast  ?????
Set myplage = .Range(.Cell(4, i), .Cell(7, i), .Cell(10, i))
End With 


j'aurais plutôt écris ceci
With f_report     'Rank#1     For i = 5 To 7          Minimum = Application.Min(.Cells(i, 4), .Cells(i, 7), .Cells(i, 10))          minimumadress = .Rows(i).Find(Minimum).Address       ..... etc

mais il y a beaucoup d'autres choses à revoir....

Patrice33740 · Answer

Re,

«Mais les select j'en ai besoin, ...» : Non pas dans ton cas !!!
Et si tu les supprimes, le code n'en sera que plus simple, plus lisible et plus efficace.

Par exemple tu peux remplacer toutes les lignes suivantes :
Range(MinimumAddress).Cut
Sheets("Template").Select
Range("D" & i).Select
ActiveSheet.Paste
Par une seule (sans Select)

f_report.Range(MinimumAddress).Cut Worksheets("Template").Range("D" & i)

michel_m · Answer

re, Si j'ai pigé, tu veux reproduire le tableau de forecaste dans template dans l'orde croissant des dates références (colonne 4,7,10) si oui sans select-selection copy ou cut-paste, grands mangeurs de RAM et de temps... tu débutes: il est important pour chacun d'activer "option explicit" et de déclarer les variables crois- moi, c'est plus qu'utile lorsque tu fais des essais : faute de frappe, mauvais choix de type etc, âneries que l'on sait tous très bien faire ! de m^me , indenter le code permet une lecture plus facile (penser a la maintenance ou évolution par toi ou une autre personne: 80% du temps de vie de l'appli) Option Explicit'------Sub markoko()Dim Minimum As Double, Minimumadresse As StringDim Tri As Byte, Col As ByteDim Tampon(2)Dim Lig As Byte, Debut As StringApplication.ScreenUpdating = FalseFor Lig = 5 To 7 With Sheets("forecast") For Tri = 1 To 3 If .Cells(Lig, 4) <> "" Then Minimum = CDbl(.Cells(Lig, 4)) Minimumadresse = .Cells(Lig, 4).Address End If For Col = 7 To 10 Step 3 If .Cells(Lig, Col) <> "" Then If Minimum > CDbl(.Cells(Lig, Col)) Then Minimum = CDbl(.Cells(Lig, Col)) Minimumadresse = .Cells(Lig, Col).Address End If End If Next Col Tampon(0) = .Range(Minimumadresse).Offset(0, -2) Tampon(1) = .Range(Minimumadresse).Offset(0, -1) Tampon(2) = .Range(Minimumadresse) .Range(Minimumadresse & ":" & Range(Minimumadresse).Offset(0, -2).Address) = "" With Sheets("template") Debut = Choose(Tri, "B", "E", "H") .Cells(Lig, Debut).Resize(1, 3) = Tampon End With Minimum = 99999 Next Tri End WithNext LigSheets("template").ActivateEnd Sub Michel

L'erreur classique 424 ^^

3 réponses

Discussions similaires