Différent de "Texte"

Bonjour,

j'ai une problème assez simple à résoudre je pense mais je ne trouve pas la solution sur internet.

J'ai un "If" avec une condition sur une cellule qui doit être différente d'un certain texte, or le signe <> ne fonctionne pas avec mon texte, existe-il un moyen de comparer la valeur d'une cellule à un texte ?

Voilà un exemple de ce que je voudrais faire mais qui ne fonctionne pas :

[barrer]Sub test()
If Sheets(1).Cells(10, 10).Value <> "Livré" then
        Sheets(1).Cells(10, 11).Value = "Non Livré"
End If
End Sub[/barrer]

Merci pour votre aide !


Bon, je viens de me rendre compte que mon exemple fonctionne donc je ne sais pas d'où vient mon erreur.

Voilà mon code :

fichier1 = ThisWorkbook.Name

For i = 1 To 50
    If Workbooks(fichier1).Sheets(1).Cells(i, 10).Value <> "Stock" And Workbooks(fichier1).Sheets(1).Cells(i, 10).Value <> "Livré AG" And IsEmpty(Workbooks(fichier1).Sheets(1).Cells(i, 10)) = False Then 'l'erreur se situe ici

        For j = 2 To 51
            If IsEmpty(Workbooks(fichier1).Sheets("Tableau ROP").Cells(j, 2)) = False Then
                Workbooks(fichier1).Sheets("Tableau ROP").Cells(j, 2).Value = Workbooks(fichier1).Sheets(1).Cells(i, 3)
                Workbooks(fichier1).Sheets("Tableau ROP").Cells(j, 4).Value = Workbooks(fichier1).Sheets(1).Cells(i, 2)
            Exit For
            End If
        Next j
    End If
Next i

J'ai trouvé, une faute de frappe dans une variable.......................

Rechercher des sujets similaires à "different texte"