Bonjour,=20
Je travail sur excel 2000 . Le bout de programme ci-
dessous me pose une erreur au niveau du “for each…”. =
En=20
effet il me dis incompatibilit=E9 de type : Le programme=20
s’execute pour comparer des nombres (Entier long) d’une=20
feuille a une zone nom donn=E9 =E0 une textboxe sur une autre=20
feuille (Le probl=E8me en fait c'est le "i=3DApplication.match
(Cstr(x.text)," :
Worksheets("V=E9hicules").Select
Count =3D Application.CountA(Columns(1))
Range(Cells(6, 13), Cells(Count, 13)) =3D "Non"
Range(Cells(6, 13), Cells(Count,=20
13)).Interior.ColorIndex =3D 3
For Each x In Worksheets("Plan").TextBoxes
i =3D Application.Match(Cstr(x.Text), Worksheets
("V=E9hicules").Columns(1), 0)
If Not Application.IsNA(i) Then
Worksheets("V=E9hicules").Cells(i, 13) =3D "Oui"
Worksheets("V=E9hicules").Cells(i,=20
13).Interior.ColorIndex =3D 14
End If
Next
Si qqn a une solution et comprend d=E9j=E0 mon probl=E8me…
Merci d’avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, je comprends pas le Cstr(x.Text) ne faudrait-il pas Val(x.Text) ? -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Babe" a écrit dans le message de news: 0b8c01c3d45f$d2ee7390$ Bonjour, Je travail sur excel 2000 . Le bout de programme ci- dessous me pose une erreur au niveau du “for each…”. En effet il me dis incompatibilité de type : Le programme s’execute pour comparer des nombres (Entier long) d’une feuille a une zone nom donné à une textboxe sur une autre feuille (Le problème en fait c'est le "i=Application.match (Cstr(x.text)," :
Worksheets("Véhicules").Select Count = Application.CountA(Columns(1)) Range(Cells(6, 13), Cells(Count, 13)) = "Non" Range(Cells(6, 13), Cells(Count, 13)).Interior.ColorIndex = 3 For Each x In Worksheets("Plan").TextBoxes i = Application.Match(Cstr(x.Text), Worksheets("Véhicules").Columns(1), 0) If Not Application.IsNA(i) Then Worksheets("Véhicules").Cells(i, 13) = "Oui" Worksheets("Véhicules").Cells(i, 13).Interior.ColorIndex = 14 End If Next
Si qqn a une solution et comprend déjà mon problème… Merci d’avance.
Salut,
je comprends pas le Cstr(x.Text)
ne faudrait-il pas Val(x.Text) ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Babe" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0b8c01c3d45f$d2ee7390$a101280a@phx.gbl...
Bonjour,
Je travail sur excel 2000 . Le bout de programme ci-
dessous me pose une erreur au niveau du “for each…”. En
effet il me dis incompatibilité de type : Le programme
s’execute pour comparer des nombres (Entier long) d’une
feuille a une zone nom donné à une textboxe sur une autre
feuille (Le problème en fait c'est le "i=Application.match
(Cstr(x.text)," :
Worksheets("Véhicules").Select
Count = Application.CountA(Columns(1))
Range(Cells(6, 13), Cells(Count, 13)) = "Non"
Range(Cells(6, 13), Cells(Count,
13)).Interior.ColorIndex = 3
For Each x In Worksheets("Plan").TextBoxes
i = Application.Match(Cstr(x.Text),
Worksheets("Véhicules").Columns(1), 0)
If Not Application.IsNA(i) Then
Worksheets("Véhicules").Cells(i, 13) = "Oui"
Worksheets("Véhicules").Cells(i, 13).Interior.ColorIndex = 14
End If
Next
Si qqn a une solution et comprend déjà mon problème…
Merci d’avance.
Salut, je comprends pas le Cstr(x.Text) ne faudrait-il pas Val(x.Text) ? -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Babe" a écrit dans le message de news: 0b8c01c3d45f$d2ee7390$ Bonjour, Je travail sur excel 2000 . Le bout de programme ci- dessous me pose une erreur au niveau du “for each…”. En effet il me dis incompatibilité de type : Le programme s’execute pour comparer des nombres (Entier long) d’une feuille a une zone nom donné à une textboxe sur une autre feuille (Le problème en fait c'est le "i=Application.match (Cstr(x.text)," :
Worksheets("Véhicules").Select Count = Application.CountA(Columns(1)) Range(Cells(6, 13), Cells(Count, 13)) = "Non" Range(Cells(6, 13), Cells(Count, 13)).Interior.ColorIndex = 3 For Each x In Worksheets("Plan").TextBoxes i = Application.Match(Cstr(x.Text), Worksheets("Véhicules").Columns(1), 0) If Not Application.IsNA(i) Then Worksheets("Véhicules").Cells(i, 13) = "Oui" Worksheets("Véhicules").Cells(i, 13).Interior.ColorIndex = 14 End If Next
Si qqn a une solution et comprend déjà mon problème… Merci d’avance.
