IF different de

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)
(je n'ai pas de message d'erreur cependant)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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

---

En vous remerciant par avance.

Bonjour,

Je pense qu'après ton "Cells" il faudrait mettre ".Value"

autrement dit la valeur de a cellule(y,3) de la feuille "feuil1" du classeur "deliveries macro" <> de vide

ceci dit j'ai pas tester

A+

De ce que je sais la recherche verticale s'execute sur TOUTE la colonne en question. (enfin j'ai peut etre tort) :roll:

Pour s'interesser aux cellules non vide le plus simple est :
If <> " "

Merci a vous pour votre aide, mais ca ne fonctionne pas :(

Bonjour à tous,
Ced0802, dans ton post précédent pense à Voter :plusser: car sinon les gens ne t'aiderons plus ;)

Code:

---

If Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3) <> "" Then

---

Essai avec ça pour voir

Code:

---

If Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3) Not is Empty Then

---

Redit nous

Mes excuses, je ne connaissais pas le bouton.

Merci pour vos reponses.
J'obtiens un message d erreur avec is Empty.

Voici ce aue j'ai essaye. Pas de message d'erreur mais aucune action.

Code:

---

If IsEmpty(Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).Value) = False Then

---

Je viens d'essayer aussi :

Code:

---

If Not IsEmpty(Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).Value) Then

---

No error, mais aucune reaction :(

Bonjour,

Deux pistes:

Code:

---

1 2 3

If IsEmpty(Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3)) = False 'une cellule vide ramène une valeur 0 je crois 'ou If Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3)) = vbNullString

---

mais il y aurait bien plus efficace en passant par le Range.SpecialCells qui vous permet en une passe de sortir toutes les cellules non vides par exemple. Voir l'aide sur le sujet, ça vous évite de parcourir toutes les cellule

Bonjour,


Au moment où tu ne devrait pas rentrer dans ton If, quelle valeur à ton y ?

Ensuite, pourrais-tu faire un msgbox sur ta cellule :

Code:

---

Msgbox Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).value

---

En remplaçant ton y par la valeur où ça coince.

A la limite, fait même un :

Code:

---

Msgbox len(Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).value)

---

Voir déjà si effectivement tu n'as vraiment rien dans ta cellule ou pas.

Si jamais ça te renvoie 1, tu fais ça :

Code:

---

Msgbox asc(Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).value)

---

Pour savoir le code ascii du caractère de ta cellule.


Sinon, de mon côté, j'ai arrêté d'utiliser des <> "" dans mes conditions, car ça peut porter à confusion.

A la place, je fais plutot :

Code:

---

If len(Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).value) > 0 Then

---

Merci Vinc.

J'ai essaye maleheureusement les 2 propositions ne fonctionnent pas.
Je vais voir le special cells

Merci bcp !!!

Merci Ilight,

J'utilise maintenant comme suggere <0.
Avant d entrer dans ma boucle y=empty, puis ensuite 13.

Ca reste un mystere je ne comprends toujours pas pourquoi il m effectue ma rechercheV pour toutes les celulles meme lorsqu elle sont vides...

Bonsoir,

Dans ta boucle essais ceci :

Code:

---

1 2 3 4

Debug.Print "-->" & Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).Value & "<--" If Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3).Value <> "" Then '...

---

si la cellule ne contient aucune valeur, les > et < doivent se toucher dans la fenêtre d'exécution (Ctrl+G) donc, ceci : --><--

Bonsoir,
if Trim("" & Workbooks("deliveries macro").Worksheets("feuil1").Cells(y, 3)) <> "" Then

Bonjour,

Je viens de trouver la solution a mon probleme.
Je tiens a tous vous remercier pour votre participation et aide.

Bonne journee

Citation:

---

Envoyé par ced0802

Bonjour,

Je viens de trouver la solution a mon probleme.
Je tiens a tous vous remercier pour votre participation et aide.

Bonne journee

---

Bonjour,
il y a d'autre internaute que la réponse peut intéresser!

Bonjour,

Le problème venait plutôt de mon coté et d'un de mes fichiers.