XL 2016 la méthode range de l'objet _global a échoué

vanin

XLDnaute Occasionnel
Bonjour avec mon fichier joint je recois l'erreur la méthode range de l'objet _global a échoué. Aidez moi s'il vous plait à régler ce problème meci
mon code



Option Explicit

Sub FifoBooking()
'controle
If Range("i2") <> Empty And Range("i3") <> Empty And Range("l2") <> Empty And Range("l2") <> Empty Then


'cherher sur quelle ligne placer les informations
Dim dl As Long 'variable pour le numero de ligne
If Range("h8") <> Empty Then
dl = 8
Else
dl = Range("h7").End(xlDown).Row + 1
End If


Range("h" & dl) = Range("l2")
Range("i" & dl) = Range("i2")
Range("j" & dl) = Range("i3")
Range("k" & dl) = Range("l3")

End If












End Sub
 
Solution
Bonjour vanin,

juste une petite optimisation de ton code VBA :

VB:
Option Explicit

Sub FifoBooking()
  'contrôle
  If [I2] = Empty Or [I3] = Empty Or [L2] = Empty Or [L3] = Empty Then Exit Sub
  'chercher sur quelle ligne placer les informations
  Dim dl& 'variable pour le numéro de ligne
  dl = IIf([H8] <> Empty, 8, [H7].End(4).Row + 1)
  With Cells(dl, "H")
    .Value = [L2]: .Offset(, 1) = [I2]: .Offset(, 2) = [I3]: .Offset(3) = [L3]
  End With
End Sub

soan

soan

XLDnaute Barbatruc
Inactif
Bonjour vanin,

juste une petite optimisation de ton code VBA :

VB:
Option Explicit

Sub FifoBooking()
  'contrôle
  If [I2] = Empty Or [I3] = Empty Or [L2] = Empty Or [L3] = Empty Then Exit Sub
  'chercher sur quelle ligne placer les informations
  Dim dl& 'variable pour le numéro de ligne
  dl = IIf([H8] <> Empty, 8, [H7].End(4).Row + 1)
  With Cells(dl, "H")
    .Value = [L2]: .Offset(, 1) = [I2]: .Offset(, 2) = [I3]: .Offset(3) = [L3]
  End With
End Sub

soan
 

vanin

XLDnaute Occasionnel
Bonjour vanin,

juste une petite optimisation de ton code VBA :

VB:
Option Explicit

Sub FifoBooking()
  'contrôle
  If [I2] = Empty Or [I3] = Empty Or [L2] = Empty Or [L3] = Empty Then Exit Sub
  'chercher sur quelle ligne placer les informations
  Dim dl& 'variable pour le numéro de ligne
  dl = IIf([H8] <> Empty, 8, [H7].End(4).Row + 1)
  With Cells(dl, "H")
    .Value = [L2]: .Offset(, 1) = [I2]: .Offset(, 2) = [I3]: .Offset(3) = [L3]
  End With
End Sub

soan
bonjour merci ca marche
 

soan

XLDnaute Barbatruc
Inactif
Bonjour Yeahou,

tu vois, j'ai pas d'chance ! 😭 même quand j'trouve une solution, le demandeur marque son propre post comme solution au lieu du mien ! 😢 comme dirait Caliméro : « c'est vraiment trop injuste ! » 😭 😭 😭

est-ce que la modération automatique de mes posts dont tu as parlé pourrait résoudre ce genre de chose ? 🤪

soan
 
Dernière édition:

vanin

XLDnaute Occasionnel
Bonjour Yeahou,

tu vois, j'ai pas d'chance ! 😭 même quand j'trouve une solution, le demandeur marque son propre post comme solution au lieu du mien ! 😢 comme dirait Caliméro : « c'est vraiment trop injuste ! » 😭 😭 😭

est-ce que la modération automatique de mes posts dont tu as parlé pourrai résoudre ce genre de chose ? 🤪

soan
excuser moi c'est une mauvaise manipulation de ma part
 

Discussions similaires