Sujet Précédent Sujet Suivant

Erreur13 incompatibilité de type

Fermé
monalisach - 1 juil. 2013 à 15:02
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 1 juil. 2013 à 17:05
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 :)


7 réponses

Réponse 1 / 7
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
1 juil. 2013 à 15:11
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
0
Réponse 2 / 7
monalisach
1 juil. 2013 à 15:29
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
0
Réponse 3 / 7
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
1 juil. 2013 à 16:02
Re,

Ce code est place sur quelle feuille ????
0
Réponse 4 / 7
monalisach
1 juil. 2013 à 16:06
le code est placé dans la "Feuil1"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
1 juil. 2013 à 16:19
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
0
Réponse 6 / 7
monalisach
1 juil. 2013 à 16:27
Merci d'avoir essayé mais ,ça ne marche toujours pas il m'affiche toujours la même erreur
0
Réponse 7 / 7
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
1 juil. 2013 à 17:05
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+
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
Incompatibilité de type
BUDGETS -
BUDGETS -

56 réponses
Erreur exécution 13 : incompatibilité de type
Belinos -
yg_be -

9 réponses