Bonjour,
Je découvre le VBA et j'ai un problème.
Je m'explique: j'ai un tableau de 20 emplacements associés à des codes barre, et si on place un x sous l'un des emplacements cela signifie que le produit est manquant. Et je le cherche alors dans une liste de codes barre.
Et j'ai un message d'erreur :"Erreur de compilation : Else sans If"
voilà le code que j'ai tapé :
Je ne comprends pas d'autant que j'ai cherché à travers ce forum et je n'ai pas trouvé d'excplication adequate à mon problème.
Je vous remercie d'avance pour vos réponses
Je découvre le VBA et j'ai un problème.
Je m'explique: j'ai un tableau de 20 emplacements associés à des codes barre, et si on place un x sous l'un des emplacements cela signifie que le produit est manquant. Et je le cherche alors dans une liste de codes barre.
Et j'ai un message d'erreur :"Erreur de compilation : Else sans If"
voilà le code que j'ai tapé :
Code:
Sub CB()
'Déclaration des variables
Dim CB As Integer
Dim ligne As Variant
Dim c As Variant
Dim i As Integer
Dim x As String
For i = 2 To 22
If IsEmpty(Sheets(2).Cells(4, i)) Then MsgBox "C'est bon pas de manquant"
Else
Cells(2, i).Value = CB 'Permet de lire le code barre dans l'emplacement
End If
c = Sheets(1).Range("A2:A10000").Find(What:=CB, lookat:=xlWhole)
'Compare le code barre de la fourniture manquante avec la liste des codes barre
ligne = c.Row 'Détermine la ligne ou se trouve le code barre
Cells(ligne, 2) = x 'Permet de placer x en face du code barre manquant dans la liste
Next
End Sub
Je ne comprends pas d'autant que j'ai cherché à travers ce forum et je n'ai pas trouvé d'excplication adequate à mon problème.
Je vous remercie d'avance pour vos réponses