Error sur "Range"

Le 18/08/2020 à 10:53

Bonjour,

Je pense ne pas avoir fait d'erreur dans mon programme mais excel me signal une erreur sur la 2ème ligne 2èeme "Range" et je ne comprend pas pourquoi.

If Range("D7") = "FI 1" And Range("D37") = "Non Respecté" Then Range("D40") = Worksheets("Listes").Range("M4")
ElseIf Range("D7") = "FI 2" And Range("D37") = "Non Respecté" Then Range("D40") = Worksheets("Listes").Range("M4")
ElseIf Range("D7") = "FI 1" And Range("D37") = "Respecté" Then Range("D40") = ""
ElseIf Range("D7") = "FI 2" And Range("D37") = "Respecté" Then Range("D40") = ""
End If

Pourriez vous m'aider?

Mercid d'avance,

Pati

Le 18/08/2020 à 11:05

Bonjour,

Pouvez vous détailler l'erreur affichée ?

Le 18/08/2020 à 11:06

Bonjour,

Deux préconisations :

Présente le code avec les balises prévues pour une lecture propre et claire

Merci de joindre le fichier qui va avec le code pour tester

Un conseil : sois précis sur ta demande en indiquant quel message d'erreur.

Le 18/08/2020 à 18:22

Bonjour Pati, Pedro22, Raja, le forum,

Un essai à tout hasard.......

If Range("D7") = "FI 1" And Range("D37") = "Non Respecté" Then
    Range("D40") = Worksheets("Listes").Range("M4")
 ElseIf Range("D7") = "FI 2" And Range("D37") = "Non Respecté" Then
    Range("D40") = Worksheets("Listes").Range("M4")
 ElseIf Range("D7") = "FI 1" And Range("D37") = "Respecté" Then
    Range("D40") = ""
 ElseIf Range("D7") = "FI 2" And Range("D37") = "Respecté" Then
    Range("D40") = ""
 End If

Sauf erreur, on peut le résumer ainsi.....

Range("D40") = IIf((Range("D7") = "FI 1" Or Range("D7") = "FI 2") And Range("D37") = "Non Respecté", Worksheets("Listes").Range("M4"), "")

Cordialement,

Rechercher des sujets similaires à "error range"