tester la valeur d'une cellule

bonjour,
je voudrai sur une plage de cellules A3:A500 controler la valeur d'une
cellule sur 2 conditions :
1) de type = B 03/00225 à l'aide d'une inputbox
valeur=inputbox("recherche","saisir la reference")
2) si la valeur saisie exemple B 03/00225 n'existe pas,sélectionner la
première cellule non renseignée cad nulle
J'ai besoin d'aide !!!!

Bonjour,

Tu peux t'inspirer de ce qui suit :
.find pour trouver si présent
.end(xlup) pour aller à la dernière cellule
.select pour sélectionner

Set result = Range("A2:A1000").Find(What:="Total", LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Non trouvé"
Else
result.Offset(0, 2).Resize(, 4).Select
End If

derlig = Range("A65536").end(xlup).row

@+
FxM

valeur = InputBox("recherche", "saisir la reference")
For k = 3 To 500
If Cells(k, 1) = valeur Then Cells(k, 1).Select: Exit For
Next
If k > 500 Then Cells(Range("A2").End(xlDown).Row + 1, 1).Select

Youky
"richard" <mailhas@discussions.microsoft.com> a écrit dans le message de
news: A78DEEBB-AF27-4A9F-94DA-D7473D68647D@microsoft.com...

bonjour,
je voudrai sur une plage de cellules A3:A500 controler la valeur d'une
cellule sur 2 conditions :
1) de type = B 03/00225 à l'aide d'une inputbox
valeur=inputbox("recherche","saisir la reference")
2) si la valeur saisie exemple B 03/00225 n'existe pas,sélectionner la
première cellule non renseignée cad nulle
J'ai besoin d'aide !!!!

j'ai un peu de mal à comprendre car ma première condition est de vérifier si
ma cellule est égale à B 03/00225 si oui il faut sélectionner cette cellule
sinon il faut sélectionner la première cellule non renseignée de ma plage de
cellules

bonjour,
je voudrai sur une plage de cellules A3:A500 controler la valeur d'une
cellule sur 2 conditions :
1) de type = B 03/00225 à l'aide d'une inputbox
valeur=inputbox("recherche","saisir la reference")
2) si la valeur saisie exemple B 03/00225 n'existe pas,sélectionner la
première cellule non renseignée cad nulle
J'ai besoin d'aide !!!!

Bonjour,

Tu peux t'inspirer de ce qui suit :
..find pour trouver si présent
..end(xlup) pour aller à la dernière cellule
..select pour sélectionner

Set result = Range("A2:A1000").Find(What:="Total", LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Non trouvé"
Else
result.Offset(0, 2).Resize(, 4).Select
End If

derlig = Range("A65536").end(xlup).row

@+
FxM

Tu reprends la même question quasiment à l'identique !
As-tu essayé de comprendre ma proposition ? Apparemment, non.

Tu as du remarquer que j'ai écrit "Tu peux t'inspirer de". Ca laisse
supposer que je vais pas t'écrire le code mais te fournir des pistes
pour que tu l'écrives toi-même. C'est le but d'un forum.
Quand à écrire du code pour quelqu'un, c'est la définition d'un boulot
de développeur ou d'un analyste-programmeur (non, pas le même tarif).


Si tu veux plus explicite, il te faut passer de :
Set result = Range("A2:A1000").Find(What:="Total", LookIn:=xlValues)
à
Set result = Range("A3:A500").Find(What:="B 03/00225", LookIn:=xlValues)

... ce qui ne m'apparaît pas insurmontable, non ??
Il y a encore une étape que je te laisse franchir.


et de
If result Is Nothing Then
MsgBox "Non trouvé"
Else
result.Offset(0, 2).Resize(, 4).Select
End If
à
If result Is Nothing Then
range("A65536").end(xlup).offset(1,0).select
Else
result.Select
End If

Un peu plus subtil mais quand même pas très dur non plus, enfin je pense...

Teste, essaie, joue et reviens (avec du concret) si problème.

@+
FxM

j'ai un peu de mal à comprendre car ma première condition est de vérifier si
ma cellule est égale à B 03/00225 si oui il faut sélectionner cette cellule
sinon il faut sélectionner la première cellule non renseignée de ma plage de
cellules

bonjour,
je voudrai sur une plage de cellules A3:A500 controler la valeur d'une
cellule sur 2 conditions :
1) de type = B 03/00225 à l'aide d'une inputbox
valeur=inputbox("recherche","saisir la reference")
2) si la valeur saisie exemple B 03/00225 n'existe pas,sélectionner la
première cellule non renseignée cad nulle
J'ai besoin d'aide !!!!

Bonjour,

Tu peux t'inspirer de ce qui suit :
..find pour trouver si présent
..end(xlup) pour aller à la dernière cellule
..select pour sélectionner

Set result = Range("A2:A1000").Find(What:="Total", LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Non trouvé"
Else
result.Offset(0, 2).Resize(, 4).Select
End If

derlig = Range("A65536").end(xlup).row

@+
FxM

(...)

Tu as du remarquer que j'ai écrit "Tu peux t'inspirer de". Ca laisse
supposer que je vais pas t'écrire le code mais te fournir des pistes
pour que tu l'écrives toi-même. (...)

Bonsoir Homme au Nime,

T'est pas cool quand même.

:-)

--
François L

(...)

Tu as du remarquer que j'ai écrit "Tu peux t'inspirer de". Ca laisse
supposer que je vais pas t'écrire le code mais te fournir des pistes
pour que tu l'écrives toi-même. (...)

Bonsoir Homme au Nime,

T'est pas cool quand même.

:-)

Bonjour L :o)

En guise de note préliminaire, je prends ton message avec humour et que
ce qui suit ne s'applique pas spécifiquement pour Richard qui semble
être un vrai débutant qui débute mais répond plus à certain (au
singulier) qui me coupe l'ap...pétit.


Si tu parcoures les archives de MPFE, jette un oeil sur ce qui s'est
passé en fin d'année dernière en grande partie à cause des agissements
d'un énergumène changeant x fois de pseudos (cf Jean, Testou, ...) et
d'une insistance à toute épreuve (bref, passons ça va m'énerver).

Toujours est-il qu'il y a eu une cassure nette dans l'esprit même du
forum et que bon nombre d'intervenants réguliers n'apparaissent plus.

Profites-en pour voir également "question à tiroir". Souvent les
questionneurs n'indique qu'une petite étape de ce qu'ils veulent faire
et la réponse faite entraîne un autre souci (normal) alors qu'il aurait
été possible de faire le tout en un saut et fini.
C'est totalement différent de "et si ..." répétitifs, enchaînés à
vitesse Grand V et dont le but n'apparaît pas comme évident.

Si dire bonjour et merci me paraît être un minimum vital de moins en
moins partagé, ces mots ne présentent aucun intérêt s'il n'y a pas une
vraie considération de l'interlocuteur (dans les deux sens).

Devant ce qui se redessine comme digne(s) successeur(s) de l'infâme
personnage sus-cité, NON je ne pré-mâcherai plus le travail et ne chi...
pas du code par pur plaisir intellectuel.
C'est probablement une mauvaise habitude donnée par le passé, ici-même
et par les mêmes intervenants que maintenant. Libre à eux de continuer,
je n'ai personnellement plus l'envie, plus les moyens et j'espère,
bientôt plus le temps de ce genre de choses.

Clément (qui ne passe plus guère ici, coucou Clément où te caches-tu ?)
a souvent écrit qu'il vaut mieux apprendre à pêcher que de donner un
poisson.
Il y a des bouquins sur la pêche, des sites web directement accessibles,
maints exemples de codes fraîchement pondus qu'il suffit de décortiquer,
il y a ce forum qu'il faut lire avant de questionner, bref il y a un
minimum de recherche personnelle à faire. Le poissonnier en a ras la
casquette des quémandeurs systématiques de poisson. Il y a ce qu'il faut
dans le poisson pour aider la mémoire, il me semble.

En résumé : Aider soit, être pris pour un c.. non !

Voilà, c'était mon coup de gu...e de la journée (orthographe volontaire
pour ne pas être censuré par M$ -cf article 515844 toujours non paru-).

@+
FxM

hello FxM

Moi je te trouve tres cool ;-)

A+

Paul V


"FxM" <nullos@greuchmeu.ici> a écrit dans le message de news:
Og8l6rS6GHA.4348@TK2MSFTNGP03.phx.gbl...

(...)

Tu as du remarquer que j'ai écrit "Tu peux t'inspirer de". Ca laisse
supposer que je vais pas t'écrire le code mais te fournir des pistes
pour que tu l'écrives toi-même. (...)

Bonsoir Homme au Nime,

T'est pas cool quand même.

:-)

Bonjour L :o)

En guise de note préliminaire, je prends ton message avec humour et que ce
qui suit ne s'applique pas spécifiquement pour Richard qui semble être un
vrai débutant qui débute mais répond plus à certain (au singulier) qui me
coupe l'ap...pétit.


Si tu parcoures les archives de MPFE, jette un oeil sur ce qui s'est passé
en fin d'année dernière en grande partie à cause des agissements d'un
énergumène changeant x fois de pseudos (cf Jean, Testou, ...) et d'une
insistance à toute épreuve (bref, passons ça va m'énerver).

Toujours est-il qu'il y a eu une cassure nette dans l'esprit même du forum
et que bon nombre d'intervenants réguliers n'apparaissent plus.

Profites-en pour voir également "question à tiroir". Souvent les
questionneurs n'indique qu'une petite étape de ce qu'ils veulent faire et
la réponse faite entraîne un autre souci (normal) alors qu'il aurait été
possible de faire le tout en un saut et fini.
C'est totalement différent de "et si ..." répétitifs, enchaînés à vitesse
Grand V et dont le but n'apparaît pas comme évident.

Si dire bonjour et merci me paraît être un minimum vital de moins en moins
partagé, ces mots ne présentent aucun intérêt s'il n'y a pas une vraie
considération de l'interlocuteur (dans les deux sens).

Devant ce qui se redessine comme digne(s) successeur(s) de l'infâme
personnage sus-cité, NON je ne pré-mâcherai plus le travail et ne chi...
pas du code par pur plaisir intellectuel.
C'est probablement une mauvaise habitude donnée par le passé, ici-même et
par les mêmes intervenants que maintenant. Libre à eux de continuer, je
n'ai personnellement plus l'envie, plus les moyens et j'espère, bientôt
plus le temps de ce genre de choses.

Clément (qui ne passe plus guère ici, coucou Clément où te caches-tu ?) a
souvent écrit qu'il vaut mieux apprendre à pêcher que de donner un
poisson.
Il y a des bouquins sur la pêche, des sites web directement accessibles,
maints exemples de codes fraîchement pondus qu'il suffit de décortiquer,
il y a ce forum qu'il faut lire avant de questionner, bref il y a un
minimum de recherche personnelle à faire. Le poissonnier en a ras la
casquette des quémandeurs systématiques de poisson. Il y a ce qu'il faut
dans le poisson pour aider la mémoire, il me semble.

En résumé : Aider soit, être pris pour un c.. non !

Voilà, c'était mon coup de gu...e de la journée (orthographe volontaire
pour ne pas être censuré par M$ -cf article 515844 toujours non paru-).

@+
FxM

Je suis bien d'accord avec tout ça. Avant on avait
le pape Clément qu'était pas franchement clément
avec les gens qui veulent pas bosser.

Je vois que le nouvel imprécateur agréé par MS
est Sa Sainteté FxM : Habemus papam !

Bon, maintenant je pose ma question :

esse ke pour xl on ai obligé d allumer l ordi ?
merssi dé réponse je sui praissé

Bonjour L :o)

Bonsoir xM :o)

En guise de note préliminaire, je prends ton message avec humour

J'espère

et que

ce qui suit ne s'applique pas spécifiquement pour Richard qui semble
être un vrai débutant qui débute mais répond plus à certain (au
singulier) qui me coupe l'ap...pétit.


Si tu parcoures les archives de MPFE, jette un oeil sur ce qui s'est
passé en fin d'année dernière en grande partie à cause des agissements
d'un énergumène changeant x fois de pseudos (cf Jean, Testou, ...) et
d'une insistance à toute épreuve (bref, passons ça va m'énerver).

Oui, oui, j'ai suivi...

Toujours est-il qu'il y a eu une cassure nette dans l'esprit même du
forum et que bon nombre d'intervenants réguliers n'apparaissent plus.

Oui, ça je sais aussi, en fait il y longtemps que je suis mpfe où j'ai
appris à peu près tout ce que je sais sur Excel.

Profites-en pour voir également "question à tiroir". Souvent les
questionneurs n'indique qu'une petite étape de ce qu'ils veulent faire
et la réponse faite entraîne un autre souci (normal) alors qu'il aurait
été possible de faire le tout en un saut et fini.
C'est totalement différent de "et si ..." répétitifs, enchaînés à
vitesse Grand V et dont le but n'apparaît pas comme évident.

On est d'accord...

Si dire bonjour et merci me paraît être un minimum vital de moins en
moins partagé, ces mots ne présentent aucun intérêt s'il n'y a pas une
vraie considération de l'interlocuteur (dans les deux sens).

Il y a effectivement des bonjour, merci peu crédibles qui d'ailleurs
disparaissent souvent dès le deuxième ou troisième post de la ficelle.

Devant ce qui se redessine comme digne(s) successeur(s) de l'infâme
personnage sus-cité, NON je ne pré-mâcherai plus le travail et ne chi...
pas du code par pur plaisir intellectuel.

Ce qui me frappe le plus, c'est la proportion de questions ouvertement
professionnelles, "gérées" par les questionneurs de 8 h 00 à 17 h 00,
demandant une solution immédiate à un problème précis et point barre. Je
me demande souvent combien il existe de classeurs plantés ou générant
des résultats erronés avec des codes empilés les uns au dessus des
autres dans les boites (pas toujours petites, tu te souviens du récent
gazier - au sens propre -).

C'est probablement une mauvaise habitude donnée par le passé, ici-même
et par les mêmes intervenants que maintenant. Libre à eux de continuer,
je n'ai personnellement plus l'envie, plus les moyens et j'espère,
bientôt plus le temps de ce genre de choses.

J'espère aussi

Clément (qui ne passe plus guère ici, coucou Clément où te caches-tu ?)
a souvent écrit qu'il vaut mieux apprendre à pêcher que de donner un
poisson.

Incontestable.

--
François L