IF different de
ced0802
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Bonjour a tous,
Je n'arrive pas a comprendre pourquoi mon "iF" different de <> ne fonctionne pas.
En gros j ai une colonne avec des celulles vide. Je souhaite qu'il effectue ma recherche V que lorsau'il rencontre un nombre (cellule non vide)
Merci beaucoup
Bonjour a tous,
Je n'arrive pas a comprendre pourquoi mon "iF" different de <> ne fonctionne pas.
En gros j ai une colonne avec des celulles vide. Je souhaite qu'il effectue ma recherche V que lorsau'il rencontre un nombre (cellule non vide)
Sub exp()
Dim ws As Worksheet
Set ws = Workbooks("wk49production").Sheets("Packing Production Schedule")
Set rng = Workbooks("deliveries macro").Worksheets("feuil1").Range("A13:C105")
For x = 1 To 1000
For y = 13 To 150
On Error Resume Next
If Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3) <> "" Then
ws.Cells(x, 5) = Left(ws.Cells(x, 5), 5) & "+" & "[" & Application.VLookup(ws.Cells(x, 7), rng, 3, False) & "]" & _
"on " & Application.VLookup(Workbooks("deliveries macro").Worksheets("feuil1").Cells(10, 3), Range("C10:J10"), 1, False)
On Error Resume Next
End If
Next y
Next x
End Sub
Merci beaucoup
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages. |
1 réponse
-
Bonjour,
Pourquoi 2 boucles?!
Sub exp() Dim ws As Worksheet Set ws = Workbooks("wk49production").Sheets("Packing Production Schedule") Set rng = Workbooks("deliveries macro").Worksheets("feuil1").Range("A13:C105") For y = 13 To 150 On Error Resume Next If Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3) <> "" Then ws.Cells(y, 5) = Left(ws.Cells(y, 5), 5) & "+" & "[" & Application.VLookup(ws.Cells(y, 7), rng, 3, False) & "]" & _ "on " & Application.VLookup(Workbooks("deliveries macro").Worksheets("feuil1").Cells(10, 3), Range("C10:J10"), 1, False) On Error Resume Next End If Next y End Sub
Cordialement.
