Erreur dans le code?!Résolu

Question

Bonjour,

Une erreur subsiste toujours au niveau de la 7ème ligne de code... Voir code ci-dessous
Merci d'avance pour votre aide

Sub Alerte()
Dim i As Integer, bas As Integer
Dim message As String
message = "La facturation est incomplète pour les N° :"
 
bas = Range("A7").End(xlDown).Value
 




For i = 7 To bas


If (Cells(i, 15).Interior.Color.Index 3 Or Cells(i, 15).Interior.Color.Index 7) And _
    Cells(i, 15).Value <> Cells(i, 16).Value Then


            message = message & " - " & CStr(i)
            
        End If
End If




Next i


MsgBox (message)


End Sub

Big200148 · Accepted Answer

tu as 2 end if deja, je sais pas si 'est ca

jrivet · Answer

Salut,
Quelle est cette Erreur?

Que représente Bas pour toi (c'est la valeur contenu dans la dernier cellule non vide de la colonne A si je ne me trompe pas)

@+: Ju£i?n
Pensez: Réponse acceptée

cs_lapprentie · Answer

Il y a deux if, c incorrect, mais je l'ai rectifié entre temps.
Mais subsiste tjrs une erreur à cette ligne 
If (Cells(i, 15).Interior.Color.Index 3 Or Cells(i, 15).Interior.Color.Index 7) And _
    Cells(i, 15).Value <> Cells(i, 16).Value Then...

erreur 424 objet requis...

Bas représente bien la dernière valeur (->integer) de la colonne A.

jrivet · Answer

Re,
Est ce que cela plante directement, ou est ce que c'est avec une certaine valeur de i?

@+: Ju£i?n
Pensez: Réponse acceptée

cs_lapprentie · Answer

ça plante directement. quand je pointe sur i, i a pour valeur 7, valeur à laquelle commence mon for.

jrivet · Answer

Salut,
Ah non en fait c'est parce que tu mets .
 
Interior.Color.Index AU LIEU DE Interior.ColorIndex

enfin je crois

@+: Ju£i?n
Pensez: Réponse acceptée

cs_lapprentie · Answer

Ben, non: j'écris bienIf (Cells(i, 15).Interior.Color.Index 3 Or Cells(i, 15).Interior.Color.Index 7) And _

jrivet · Answer

Salut, 
relis mieux ce que je te marques....
.Interior.Color.Index ca c'est faux, 
c'est 

Interior.ColorIndex QUI EST JUSTE


@+: Ju£i?n
Pensez: Réponse acceptée

cs_lapprentie · Answer

j'avoue, là ça dvient grâve.......

Au passage, sais-tu comment faire apparaître automatiquement cet msgbox (voir code précédent) après 15 s de l'ouverture de la feuille, sous xl 2000

sous 2003, je sais:

dans thisWorkbook:
PrivateSub Workbook_Open()
 Application.OnTime Now + TimeSerial(0, 0, 15), "MaProcedure"
EndSub

dans module:
Sub MaProcedure()
 MsgBox "hello"
EndSub

jrivet · Answer

Salut,
Le code que tu as mis fonctionne très bien chez moi sous Excel 2000.

@+: Ju£i?n
Pensez: 
Réponse acceptée

Erreur dans le code?!

10 réponses

Votre réponse

Discussions similaires