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