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

vanin · 23 Mai 2021

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 · 23 Mai 2021

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 · 23 Mai 2021

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 · 23 Mai 2021

soan à dit:

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 · 23 Mai 2021

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 · 23 Mai 2021

Bonjour le fil, le forum !
re, soan

soan à dit:
le demandeur marque son propre post comme solution au lieu du mien !

C'est cela, le libre arbitre !

Bien cordialement, @+

soan · 23 Mai 2021

@Yeahou

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

« bonjour merci ca marche »

soan

vanin · 23 Mai 2021

soan à dit:
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 · 23 Mai 2021

ok, merci pour avoir corrigé !

vanin · 23 Mai 2021

soan à dit:
@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 · 23 Mai 2021

ok, c'est réglé !

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

vanin

XLDnaute Occasionnel

soan

soan

XLDnaute Barbatruc

vanin

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

vanin

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

vanin

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Discussions similaires