probleme de boucle

Bonjour, je n'arrive pas a sortir de la boucle suivante; le programme reste bloque sur les next l; une idee?

Merci.

Sub ASW()
Dim c As Variant
Dim l As Variant

 

For Each l In Worksheets("Sheet2").Range("D8:D50")

If l <> "" Then

m = Worksheets("Sheet2").Range(l, l).Value
b = Worksheets("Sheet2").Range(l.Offset(0, 2), l.Offset(0, 2)).Value

 

With Worksheets("Sheet1").Range("a:z")
Set c = .Find(m, LookIn:=xlValues)

 

 
g = Run([UIA_LOOKUP], b, Range("DADA"), Range(c.Offset(1, 0), c.Offset(6, 0)), 4)
Range(l.Offset(0, 8), l.Offset(0, 8)).Value = g

'End If

End With
End If
Next l

End Sub

ce serait pas  l.value  <> ""  plutôt

coïto ergo sum

Merci mais malheureusement ca ne change rien, toujours bloque sur next.

Albeil

franchement, ton code est compliqué à lire, ...
- si l <> "", alors que l est un objet range,
- range(l,l)  ??
- with avec une seule utilisation,

voila ce que je comprends :

pour chaque cellule de Range("D8:D50"),

si cette cellule (??? en tant qu'objet, je vois pas) est nulle,

alors m est la valeur de ma cellule (l,l) ?? , je rappelle que l est l'objet range
et b est la valeur de l'ensemble des 2 cellules identiques deux colonnes plus loin (???)

et je colle un truc dans l'ensemble de celules (???? qui est la même sur elle-même) 8 colonnes plus loin



coïto ergo sum

grosso modo c est ca; ca fonctionne bien sauf que ca sort jamais de la boucle

Albeil

t'es sur que c'est pas dans la fonction UIA_LOOKUP que ça merde, vu la maitrise que tu as des types ...

coïto ergo sum

non les valurs sont bien calculees sans probleme, c est juste sortir du dernier next qui pose probleme

Albeil