erreur 424... objet requis Résolu

Question

Bonjour,
selon la grandeur de la valeur en cellule D, je souhaite multiplier celle-ci par un coef différent et à renvoyer le résultat en colonne G.
Je débute tant bien que mal dans le monde épanouissant de VBA et rencontre des difficultés à desceller mes erreurs... Merci d'avance pour votre aide !
Je vous met ci-dessous ma macro.
cdt
Guillaume

Private Sub CommandButton1_Click()
Dim L As Integer
Dim c As Integer

L = target.Row
c = target.Column
If Not Range("D" & L) Is Empty Then

If Range("D" & L).Value <= 5 Then Range("G" & L) = Range("D" & L).Value * 8
If Range("D" & L).Value > 5 And Range("D" & L).Value <= 10 Then Range("G" & L) = Range("D" & L).Value * 7
If Range("D" & L).Value > 10 And Range("D" & L).Value <= 20 Then Range("G" & L) = Range("D" & L).Value * 5
If Range("D" & L).Value > 20 And Range("D" & L).Value <= 30 Then Range("G" & L) = Range("D" & L).Value * 4.5
If Range("D" & L).Value > 30 And Range("D" & L).Value <= 50 Then Range("G" & L) = Range("D" & L).Value * 4
If Range("D" & L).Value > 50 And Range("D" & L).Value <= 70 Then Range("G" & L) = Range("D" & L).Value * 3.5
If Range("D" & L).Value > 70 And Range("D" & L).Value <= 100 Then Range("G" & L) = Range("D" & L).Value * 3
If Range("D" & L).Value > 100 And Range("D" & L).Value <= 250 Then Range("G" & L) = Range("D" & L).Value * 2.5
If Range("D" & L).Value > 250 Then Range("G" & L) = Range("D" & L).Value * 1.5

End If

End Sub

Kalissi · Answer

Bonjour,

À première vue ...

Private Sub CommandButton1_Click()

    Dim L As Integer, C As Integer
    Dim Target As Range
    
    ' Target doit être initialisé quelque part
    Set Target = ActiveCell

    L = Target.Row
    C = Target.Column
    
    If Not Range("D" & L) Is Empty Then

        If Range("D" & L).Value <= 5 Then Range("G" & L).Value = Range("D" & L).Value * 8
        If Range("D" & L).Value > 5 And Range("D" & L).Value <= 10 Then Range("G" & L).Value = Range("D" & L).Value * 7
        If Range("D" & L).Value > 10 And Range("D" & L).Value <= 20 Then Range("G" & L).Value = Range("D" & L).Value * 5
        If Range("D" & L).Value > 20 And Range("D" & L).Value <= 30 Then Range("G" & L).Value = Range("D" & L).Value * 4.5
        If Range("D" & L).Value > 30 And Range("D" & L).Value <= 50 Then Range("G" & L).Value = Range("D" & L).Value * 4
        If Range("D" & L).Value > 50 And Range("D" & L).Value <= 70 Then Range("G" & L).Value = Range("D" & L).Value * 3.5
        If Range("D" & L).Value > 70 And Range("D" & L).Value <= 100 Then Range("G" & L).Value = Range("D" & L).Value * 3
        If Range("D" & L).Value > 100 And Range("D" & L).Value <= 250 Then Range("G" & L).Value = Range("D" & L).Value * 2.5
        If Range("D" & L).Value > 250 Then Range("G" & L).Value = Range("D" & L).Value * 1.5

    End If

End Sub

K

Kuartz · Answer

Bonjour,

Pour la petite explication car il est important de comprendre les erreurs.

Tu n'as jamais défini le "Target" que tu utilises. Tu vois sur le code de Kalissi, on a cette ligne importante que tu oublies, et qui précise que par Target, tu entends la cellule sélectionnée :

Set Target = ActiveCell

Pour aller un peu plus loin, Target est un objet. Et non une variable. C'est la raison pour laquelle on l'initialise avec Set.

En espérant t'avoir éclairé.

nathan · Answer

Bonjour,

Dans ton code VBA, target n'existe pas, mais on peut s'en passer :
j'ai utilisé à la place ActiveCell, puis aussi ActiveCell.Row.

Tu as écris : Dim c As Integer, puis c = target.Column, mais après,
tu n'as pas utilisé c, donc cette variable est inutile !

J'ai réécrit ainsi ton code VBA :

Option Explicit

Private Sub CommandButton1_Click()
  Dim v As Single, k As Single
  v = Val(ActiveCell): If v = 0 Then Exit Sub
  Select Case v
    Case Is <= 5: k = 8
    Case Is <= 10: k = 7
    Case Is <= 20: k = 5
    Case Is <= 30: k = 4.5
    Case Is <= 50: k = 4
    Case Is <= 70: k = 3.5
    Case Is <= 100: k = 3
    Case Is <= 250: k = 2.5
    Case Else: k = 1.5
  End Select
  Cells(ActiveCell.Row, 7) = v * k
End Sub

Merci de me dire si ça te convient.

guillaume · Answer

Bonjour,

Merci pour votre aide à tous les 3 ! La communauté VBA : un modèle d'entre-aide !

guillaume · Answer

Bonjour,

Je me suis inspiré de ta réponse Nathan.
Je souhaitais que la macro calcul la formule pour toutes les lignes du tableau. J'ai essayé avec la macro ci-dessous.  Ce coup-ci je n'ai pas d'erreur de compilation mais la macro ne fait rien d'autre que sélectionner mon Range... XD 

Private Sub CommandButton1_Click()
      Dim v As Single, k As Single

    Range("D2:D202").Select

  v = ActiveCell.Value
  Select Case v
    Case Is <= 5: k = 8
    Case Is <= 10: k = 7
    Case Is <= 20: k = 5
    Case Is <= 30: k = 4.5
    Case Is <= 50: k = 4
    Case Is <= 70: k = 3.5
    Case Is <= 100: k = 3
    Case Is <= 250: k = 2.5
    Case Else: k = 1.5
End Select

  Cells(ActiveCell.Row, 7) = v * k
End Sub

Kalissi · Answer

Bonjour,

Il y a un désordre dans ce code ...

Range("D2:D202").Select

v = ActiveCell.Value 


Un range de 200 cellule est sélectionné ...

Alors ActiveCell.Value n'existe pas, il n'y a pas qu'une seule cellule de sélectionnée.

Il serait probablement judicieux de penser ...

Private Sub CommandButton1_Click()

Dim Boucle As Integer
    Dim v As Single, k As Single
    
    Range("D2").Select

For Boucle = 0 To 199
        v = ActiveCell.Offset(Boucle, 0).Value
        Select Case v
            Case Is <= 5: k = 8
            Case Is <= 10: k = 7
            Case Is <= 20: k = 5
            Case Is <= 30: k = 4.5
            Case Is <= 50: k = 4
            Case Is <= 70: k = 3.5
            Case Is <= 100: k = 3
            Case Is <= 250: k = 2.5
            Case Else: k = 1.5
        End Select

ActiveCell.Offset(Boucle, 7).Value = v * k
    Next Boucle

End Sub


Déclenchement de la macro ...

Il est possible de déclencher automatiquement le calcul directement comme une formule Excel. Pour ce faire, tu convertis la procédure "Sub" en fonction "Function" et la première instruction de cette fonction doit être :

Application.Volatile


Cette fonction doit être placé derrière la feuille visé.
Ainsi, sur tous les évènements de la feuille, le calcul sera effectué.

Bon, il est clair que je ne possède pas tous les éléments de ton classeur ...

Bonne continuité

K

Erreur 424... objet requis

6 réponses

Discussions similaires

Newsletters