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

[vanin]

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

 

[soan]

Bonjour vanin,

juste une petite optimisation de ton code VBA :

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]

Bonjour vanin,

juste une petite optimisation de ton code VBA :

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]

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

 

[Bernard_XLD]

Bonjour le fil, le forum !
re, soan

le demandeur marque son propre post comme solution au lieu du mien !

C'est cela, le libre arbitre !

Bien cordialement, @+

 

[soan]

@Yeahou

bon, alors la prochaine fois, la solution que je posterai sera :

« bonjour merci ca marche »

soan

 

[vanin]

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

 

[soan]

ok, merci pour avoir corrigé !

 

[vanin]

@Yeahou

bon, alors la prochaine fois, la solution que je posterai sera :

« bonjour merci ca marche »

soan

Pardon j'ai fais une erreur lorsque je marquai comme résolu, toutes mes excuses

 

[soan]

ok, c'est réglé !