Erreur d'exécution '13': Incompatibilité de type

  • Initiateur de la discussion Initiateur de la discussion AJIGO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

AJIGO

XLDnaute Nouveau
Bonjour,

Mon boucle ne fonctionne pas. Je ne sais pas d'où vient le problème

Dim i As Long For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(Cells(i, "F")) Then If Cells(i, "K") > 0 And Cells(i, "K") < 1000 And Year(Cells(i, "F")) < (Year(Now) - 1) Then Cells(i, "I") = "PROBLEME" End If Next i

Merci
 

Pièces jointes

Bonjour,

Il manque des dates en colonne F alors il faut modifier le test:
VB:
Sub Test()

Dim i As Long

For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    If IsDate(Cells(i, "F")) Then
        If Cells(i, "K") > 0 And Cells(i, "K") < 1000 And Year(Cells(i, "F")) < (Year(Now) - 1) Then Cells(i, "I") = "PROBLEME"
    End If
Next i

End Sub

Pour ne travailler que sur les lignes dont la colonne F est une date.

A bientôt
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
236
Réponses
4
Affichages
177
Réponses
5
Affichages
182
Réponses
5
Affichages
232
Réponses
10
Affichages
281
Retour