erreur13 incompatibilité de type

Question

Bonjour, 
mon code m'affiche erreur 13 incompatibilité de type ci-dessous mon code:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
i = 1
Do While Worksheets(Feuil1).Cells(i, 3) >= Worksheets(Feuil1).Cells(15, 4)
i = i + 1
Loop
Cells(15, 4) = Cells(i, 5).Text
End Sub


merci d'avance :)


Configuration: Windows 7 / Firefox 23.0

f894009 · Answer

Bonjour,

Le nom de la feuille, ex:Feuil1 doit etre entre double cote 

Do While Worksheets("Feuil1").Cells(i, 3) >= Worksheets("Feuil1").Cells(15, 4)


Bonne suite

monalisach · Answer

Merci de ta réponse mais il y a une autre erreur qui surgit, "erreur 1004" définie par l'application ou par l'objet.
Merci

f894009 · Answer

Re,

Ce code est place sur quelle feuille ????

monalisach · Answer

le code est placé dans la "Feuil1"

f894009 · Answer

Re,

pas besoin de worksheets( etc... Mais dans les deux cas, je n'ai pas d'erreur

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim j As Integer
    i = 1
    Do While Cells(i, 3) >= Cells(15, 4)
        i = i + 1
    Loop
    Cells(15, 4) = Cells(i, 5).Text
End Sub

monalisach · Answer

Merci d'avoir essayé mais ,ça ne marche toujours pas il m'affiche toujours la même erreur

f894009 · Answer

Re,

Pouvez-vous mettre votre fichier a dispo (pas de donnees confidentielles) en cliquant sur ce lien https://www.cjoint.com/

ne pas oublier de copier/coller le lien cree dans votre prochain message

A+

Erreur13 incompatibilité de type

7 réponses

Votre réponse

Discussions similaires

Newsletters