OVH Cloud OVH Cloud

rechercher valeur en vba

11 réponses
Avatar
janus51
Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell

10 réponses

1 2
Avatar
Jaky
Bonsoir,

Dim var As String

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux et
risque un plantage d'excel.

Salutations
JJ

"janus51" a écrit dans le message de news:
eHpvVOd%
Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell



Avatar
janus51
Merci Jaky
"janus51" a écrit dans le message de news:
eHpvVOd%
Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell



Avatar
anonymousA
Bonjour,

un petit tour sur l'aide d'Excel t'aurait permis de trouver ceci

Inputbox
Affiche une invite dans une boîte de dialogue, attend que l'utilisateur
tape du texte ou clique sur un bouton, puis renvoie le contenu de la
zone de texte sous la forme d'une valeur de type String.

pour ton problème particulier

Var = InputBox("que cherchez vous?")
For Each cell In Range("A1:A7")
If cell.Value = Var Or cell.Value = CDbl(Var) Then
ligne = cell.Row
MsgBox ligne
End If
Next cell

A+



Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell




Avatar
Ange Ounis
Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux et
risque un plantage d'excel.


Ah bon, pourquoi ?

----------
Ange Ounis
----------

Bonsoir,

Dim var As String

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux et
risque un plantage d'excel.

Salutations
JJ

"janus51" a écrit dans le message de news:
eHpvVOd%

Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell








Avatar
Jacky
re...
Ah bon, pourquoi ?
Personnellement j'ai déjà eu des surprises sur xl 97 avec cells. Oui, bien

sur avec un "S" mais il faut peu de chose pour qu'excel tourne en rond et
finit par faire une erreur du genre à devoir faire un "ctrl-alt-suppr" pour
avoir la main (et comme les deux "Cell et Cells") existent dans VBA, amha il
vaut mieux éviter.
Mais bon, à chacun de voir.......
Pas d'accord ???
;o))
Salutations
JJ


"Ange Ounis" a écrit dans le message de news:
ue$79Se%
Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et
risque un plantage d'excel.


Ah bon, pourquoi ?

----------
Ange Ounis
----------

Bonsoir,

Dim var As String

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et risque un plantage d'excel.

Salutations
JJ

"janus51" a écrit dans le message de news:
eHpvVOd%

Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell









Avatar
Ange Ounis
Pas d'accord ???


Du tout !
La seule utilisation de Cell en VBA est une chaine de caractères pour un nom de
barre d'outils (CommandBars("Cell")), celle qui s'affiche par un clic droit dans
une cellule. Aucune chance qu'Excel s'embrouille entre l'ensemble des cellules
d'une feuille de calcul et une barre d'outils..
Aucune chance non plus entre un mot clé (Cells) et un nom de variable (Cell) qui
n'en est pas un (mot clé), nom de variable que je ne me prive pas d'utiliser,
personnellement, parce que je le trouve très "parlant". Affaire perso évidemment.
Le programmeur, par contre, je ne dis pas qu'il n'y a aucune chance qu'il fasse
une faute de frappe maltapropos et qu'il en impute les éventuelles conséquences
à un bug d'Excel, c'est une première réaction spontanée assez courante :)

----------
Ange Ounis
----------

re...

Ah bon, pourquoi ?


Personnellement j'ai déjà eu des surprises sur xl 97 avec cells. Oui, bien
sur avec un "S" mais il faut peu de chose pour qu'excel tourne en rond et
finit par faire une erreur du genre à devoir faire un "ctrl-alt-suppr" pour
avoir la main (et comme les deux "Cell et Cells") existent dans VBA, amha il
vaut mieux éviter.
Mais bon, à chacun de voir.......
Pas d'accord ???
;o))
Salutations
JJ


"Ange Ounis" a écrit dans le message de news:
ue$79Se%

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et
risque un plantage d'excel.


Ah bon, pourquoi ?

----------
Ange Ounis
----------


Bonsoir,

Dim var As String

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et risque un plantage d'excel.

Salutations
JJ

"janus51" a écrit dans le message de news:
eHpvVOd%


Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell












Avatar
Jacky
Re..
For each cells in......
ou simplement cells dans une ligne vide en vba
Me provoque un plantage de tout mon système.(xl97)
JJ

"Ange Ounis" a écrit dans le message de news:
%2319mazp%
Pas d'accord ???


Du tout !
La seule utilisation de Cell en VBA est une chaine de caractères pour un
nom de barre d'outils (CommandBars("Cell")), celle qui s'affiche par un
clic droit dans une cellule. Aucune chance qu'Excel s'embrouille entre
l'ensemble des cellules d'une feuille de calcul et une barre d'outils..
Aucune chance non plus entre un mot clé (Cells) et un nom de variable
(Cell) qui n'en est pas un (mot clé), nom de variable que je ne me prive
pas d'utiliser, personnellement, parce que je le trouve très "parlant".
Affaire perso évidemment.
Le programmeur, par contre, je ne dis pas qu'il n'y a aucune chance qu'il
fasse une faute de frappe maltapropos et qu'il en impute les éventuelles
conséquences à un bug d'Excel, c'est une première réaction spontanée assez
courante :)

----------
Ange Ounis
----------

re...

Ah bon, pourquoi ?


Personnellement j'ai déjà eu des surprises sur xl 97 avec cells. Oui,
bien sur avec un "S" mais il faut peu de chose pour qu'excel tourne en
rond et finit par faire une erreur du genre à devoir faire un
"ctrl-alt-suppr" pour avoir la main (et comme les deux "Cell et Cells")
existent dans VBA, amha il vaut mieux éviter.
Mais bon, à chacun de voir.......
Pas d'accord ???
;o))
Salutations
JJ


"Ange Ounis" a écrit dans le message de news:
ue$79Se%

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et
risque un plantage d'excel.


Ah bon, pourquoi ?

----------
Ange Ounis
----------


Bonsoir,

Dim var As String

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et risque un plantage d'excel.

Salutations
JJ

"janus51" a écrit dans le message de news:
eHpvVOd%


Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell














Avatar
Modeste
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
For each cells in......
ou simplement cells dans une ligne vide en vba
Me provoque un plantage de tout mon système.(xl97)


c'est exactement ce que Fred t'expliquais à l'instant ;o)))
d'autant que l'utilisation ici du pluriel est "grammaticalement" incorrect
;o)))
c'est commne si tu ecrivais :
pour chaque Chevaux dans collection
chaque "xxx" representent un element d'une collection
Cells est un mot reservé et correspond à la collection de cellules (range)
de la feuille
Cells s'utilise notament en précisant ligne et colonne : cells(xx,yy)
;o)))
de même je ne peux me retenir de préciser que chevaux est la collection de
plusieurs "cheval"


--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
Jacky
Bonsoir modeste

c'est exactement ce que Fred t'expliquais à l'instant ;o)))
C'est Ange, Fred ???

Oui, j'avais bien compris, c'est bien parce que:
Cells s'utilise notament en précisant ligne et colonne : cells(xx,yy)
existe, que je m'interdis:

For each cell in...
Simplement pour un s qui traine sous les gros doigts de celui qui tape le
code , il est bon pour tout recommencer.
Toute la collection de plusieurs "cheval" s'en vont au galop ;o))

Bonne nuit
JJ

Avatar
Ange Ounis
For each cells in......
ou simplement cells dans une ligne vide en vba
Me provoque un plantage de tout mon système.(xl97)


Chez moi (Excel 2000, 2002 et 2003) cela provoque l'apparition d'un message
d'erreur très explicite : 'Erreur de compilation. Attendu : variable', ce qui me
paraît tout à fait approprié, mais pas de plantage. Je n'ai pas Excel 97 à
disposition.
Serait-ce un particularisme de cette version ?

----------
Ange Ounis
----------

Re..
For each cells in......
ou simplement cells dans une ligne vide en vba
Me provoque un plantage de tout mon système.(xl97)
JJ

"Ange Ounis" a écrit dans le message de news:
%2319mazp%

Pas d'accord ???


Du tout !
La seule utilisation de Cell en VBA est une chaine de caractères pour un
nom de barre d'outils (CommandBars("Cell")), celle qui s'affiche par un
clic droit dans une cellule. Aucune chance qu'Excel s'embrouille entre
l'ensemble des cellules d'une feuille de calcul et une barre d'outils..
Aucune chance non plus entre un mot clé (Cells) et un nom de variable
(Cell) qui n'en est pas un (mot clé), nom de variable que je ne me prive
pas d'utiliser, personnellement, parce que je le trouve très "parlant".
Affaire perso évidemment.
Le programmeur, par contre, je ne dis pas qu'il n'y a aucune chance qu'il
fasse une faute de frappe maltapropos et qu'il en impute les éventuelles
conséquences à un bug d'Excel, c'est une première réaction spontanée assez
courante :)

----------
Ange Ounis
----------


re...


Ah bon, pourquoi ?


Personnellement j'ai déjà eu des surprises sur xl 97 avec cells. Oui,
bien sur avec un "S" mais il faut peu de chose pour qu'excel tourne en
rond et finit par faire une erreur du genre à devoir faire un
"ctrl-alt-suppr" pour avoir la main (et comme les deux "Cell et Cells")
existent dans VBA, amha il vaut mieux éviter.
Mais bon, à chacun de voir.......
Pas d'accord ???
;o))
Salutations
JJ


"Ange Ounis" a écrit dans le message de news:
ue$79Se%


Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et
risque un plantage d'excel.


Ah bon, pourquoi ?

----------
Ange Ounis
----------



Bonsoir,

Dim var As String

Ps: l'utilisation comme variable la fonction "Cell" peut-être dangereux
et risque un plantage d'excel.

Salutations
JJ

"janus51" a écrit dans le message de news:
eHpvVOd%



Bonjour, je cherche à trouver une valeur (texte ou nombre )dans une
colonne.
Mon code ne trouve que du texte et ignore les nombres
Merci de votre aide :
dim var as variant
var = inputbox ("que cherchez vous?")
for each cell in range("A1:A100")
if cell.value = var then
ligne = cell.row
msgbox ligne
end if
next cell

















1 2