Bonjour,=20
Je travail sur excel 2000 . Le bout de programme ci-
dessous me pose une erreur au niveau du “Cstr(x.text)”. 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:
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
michdenis
Bonjour Cedric,
Toutes les fonctions de conversion travaillent seulement avec le séparateur décimal défini dans le panneau de configuration. Si lors de la saisie des données dans ton textbox, tu utilises autre chose que le séparateur défini dans le panneau de configuration, tu devras le substituer pour celui qui est approprié.
Salutations!
"Cedric" a écrit dans le message de news:09e201c3d460$f56546f0$ Bonjour, Je travail sur excel 2000 . Le bout de programme ci- dessous me pose une erreur au niveau du “Cstr(x.text)”. 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:
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...
Bonjour Cedric,
Toutes les fonctions de conversion travaillent seulement avec le séparateur décimal défini dans le panneau de configuration.
Si lors de la saisie des données dans ton textbox, tu utilises autre chose que le séparateur défini dans le panneau de
configuration, tu devras le substituer pour celui qui est approprié.
Salutations!
"Cedric" <anonymous@discussions.microsoft.com> a écrit dans le message de news:09e201c3d460$f56546f0$a401280a@phx.gbl...
Bonjour,
Je travail sur excel 2000 . Le bout de programme ci-
dessous me pose une erreur au niveau du “Cstr(x.text)”. 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:
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...
Toutes les fonctions de conversion travaillent seulement avec le séparateur décimal défini dans le panneau de configuration. Si lors de la saisie des données dans ton textbox, tu utilises autre chose que le séparateur défini dans le panneau de configuration, tu devras le substituer pour celui qui est approprié.
Salutations!
"Cedric" a écrit dans le message de news:09e201c3d460$f56546f0$ Bonjour, Je travail sur excel 2000 . Le bout de programme ci- dessous me pose une erreur au niveau du “Cstr(x.text)”. 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:
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...
Je n'utilise aucun séparateur. Les texboxe sont crée avec une macro. Elle récupére l'entier et créé une textbox sur une autre feuille avec comme nom de zone l'entier sélectionné... Et aprés quand l'autre macro demande de voir si la textboxe est sur la feuille, ca beug.
Je n'utilise aucun séparateur. Les texboxe sont crée avec
une macro.
Elle récupére l'entier et créé une textbox sur une autre
feuille avec comme nom de zone l'entier sélectionné...
Et aprés quand l'autre macro demande de voir si la
textboxe est sur la feuille, ca beug.
Je n'utilise aucun séparateur. Les texboxe sont crée avec une macro. Elle récupére l'entier et créé une textbox sur une autre feuille avec comme nom de zone l'entier sélectionné... Et aprés quand l'autre macro demande de voir si la textboxe est sur la feuille, ca beug.
michdenis
Bonjour ,
Ouvre l'éditeur de code : Alt + F11
Barre des menus / outils / références /
Dans la liste affichée et cochée, est-ce qu'il y en a dont il est écrit "Manquante" , si oui , décoche-les.
Salutations!
a écrit dans le message de news:09d201c3d469$28bac810$ Je n'utilise aucun séparateur. Les texboxe sont crée avec une macro. Elle récupére l'entier et créé une textbox sur une autre feuille avec comme nom de zone l'entier sélectionné... Et aprés quand l'autre macro demande de voir si la textboxe est sur la feuille, ca beug.
Bonjour ,
Ouvre l'éditeur de code : Alt + F11
Barre des menus / outils / références /
Dans la liste affichée et cochée, est-ce qu'il y en a dont il est écrit "Manquante" , si oui , décoche-les.
Salutations!
<anonymous@discussions.microsoft.com> a écrit dans le message de news:09d201c3d469$28bac810$a501280a@phx.gbl...
Je n'utilise aucun séparateur. Les texboxe sont crée avec
une macro.
Elle récupére l'entier et créé une textbox sur une autre
feuille avec comme nom de zone l'entier sélectionné...
Et aprés quand l'autre macro demande de voir si la
textboxe est sur la feuille, ca beug.
Dans la liste affichée et cochée, est-ce qu'il y en a dont il est écrit "Manquante" , si oui , décoche-les.
Salutations!
a écrit dans le message de news:09d201c3d469$28bac810$ Je n'utilise aucun séparateur. Les texboxe sont crée avec une macro. Elle récupére l'entier et créé une textbox sur une autre feuille avec comme nom de zone l'entier sélectionné... Et aprés quand l'autre macro demande de voir si la textboxe est sur la feuille, ca beug.
