XL 2016 Message d'alerte pour une cellule particuliere non renseigne

[Bebzinda]

Bonjour a tous ! J'ai soucis avec mon code. En faite je veux faire appel a un msgbox a chaque foi que la cellule A est vide alors que la cellule F est renseigné. Voilà mon code:
Private sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As integer
Dim derligne As integer
derligne=Range("A1000"). End(xlUp).Row
For i=3 To derligne
If Cells(i,6)<>"" Ans Cells(i,1)="" Then
MsgBox("Veuillez renseigner l'année SVP"),vbOKOnly,"Chose capitale!"
End if
Next i
End sub

 

[Compte Supprimé 979]

Bonjour

Et VBA project ne vous dis pas que vous avez un souci

If Cells(i,6)<>"" And Cells(i,1)="" Then

C'est And et non Ans

 

[Bebzinda]

Bonjour

Et VBA project ne vous dis pas que vous avez un souci

If Cells(i,6)<>"" And Cells(i,1)="" Then

C'est And et non Ans

Erreur de frappe ! C'est And j'ai écrits.
Non on ne me signale pas d'erreur, mais lorsque je veux exécuter le code la fenêtre des macros s'ouvre

 

[Compte Supprimé 979]

Re,
Erreur de frappe
je ne comprendrais jamais pourquoi les gens ne font pas un simple copier/coller

Si la fenêtre s'ouvre c'est qu'un bug se produit, quelle ligne est surlignée ?
Ou partagez votre fichier ce sera plus simple

A+