Erreur13 incompatibilité de type
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 :)
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 :)
7 réponses
-
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 -
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 -
Re,
Ce code est place sur quelle feuille ???? -
le code est placé dans la "Feuil1"
-
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 -
Merci d'avoir essayé mais ,ça ne marche toujours pas il m'affiche toujours la même erreur
-
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+
