Discussion :

[ced0802]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Igloobel]

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+

[Citrax]

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

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

[ced0802]

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

[Sebphyto]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Essai avec ça pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Redit nous

[ced0802]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je viens d'essayer aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

No error, mais aucune reaction

[vinc_bilb]

Bonjour,

Deux pistes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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