IF different de

Fermé

ced0802 - Modifié par jordane45 le 1/12/2015 à 14:44
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 1 déc. 2015 à 16:11

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)

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.

A voir également:

IF different de
Nb.si.ens différent de ✓ - Forum Excel
Symbole différent ✓ - Forum Clavier
Signe différent ✓ - Forum Bureautique
If exist ✓ - Forum Autoit / batch
Nb.si.ens différent de vide ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
1 déc. 2015 à 16:11

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.

Discussions similaires

Question PIX

Quelle touche clavier ou combinaison pour désigner "différent de

comment faire "différent de" sous excel/

Caractère "différent" ou "pas égal à"

Comment écrire le signe mathématique "différent de"?

Discussions similaires

Newsletters