controle d'inputbox

[guevain]

bonjour a tous ,

je souhaiterai contrôler une valeur saisie dans un inputbox a partir d'une liste présente dans le classeur.

après de vaines recherches sur les différent forum , je m'en remet encore a vous.

merci d'avance a ceux qui se pencheront sur mon cas

 

[job75]

Re : controle d'inputbox

Bonjour guevain,

Que contient cette liste ? Du texte, des nombres, des dates ?

A+

 

[guevain]

Re : controle d'inputbox

bonjour job75 ,

la liste contient des chiffres,des lettres et des tirets.

je suis sur le meme fichier que la fameuse BDD pour la listebox.

en fait je voudrait que lorsque l'on saisie un valeur dans l'inputbox , il y ai un controle qui se fait dans une liste afin d'etre sur que la reference saisie existe (pour ne pas planter les autre macro)

input box lié au bouton 'consulter une mallettes' et controle dans la Feuil4 ,colonne A

merci d'avance

 

[job75]

Re : controle d'inputbox

Re,

Il s'agit donc d'une liste de textes, alors utiliser par exemple :

Dim t$, i As Variant
1 t = InputBox("Entrez... quelque chose...")
If t = "" Then Exit Sub
With Feuil4 'CodeName
  i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then GoTo 1
'---suite---

A+

 

[guevain]

Re : controle d'inputbox

re

je viens d'essayer de coller le code et cela ne fonctionne pas , meme si je saisie une valeur qui n'est pas dans la liste ,la macro continu , je voudrais qu'en cas d'erreur ca declenche un msgbox et qu'a la fermeture de celui ci se soit l'inputbox qui reste a l'ecran

 

[Pierrot93]

Re : controle d'inputbox

Bonjour,
Bonjour Job

bah .... fonctionne très bien chez moi ce code.... attention au "codename", c'est le nom qui apparait dans l'éditeur vba, dans le "vbaproject" du classeur....

bon après midi
@+

 

[job75]

Re : controle d'inputbox

Re guevain, salut Pierrot

Bah faut tout vous faire... Bien sûr que ça fonctionne, et si l'on veut un message :

Dim t$, i As Variant
1 t = InputBox("Entrez... quelque chose...")
If t = "" Then Exit Sub
With Feuil4 'CodeName
  i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then MsgBox "Recommencez...": GoTo 1
 '---suite---

Edit : oui Pierrot, avec ta variable m on évite la MsgBox

A+

 

[Pierrot93]

Re : controle d'inputbox

Re,

une variante pour le message :

Dim t$, i As Variant, m As String
m = "Entrez... quelque chose..."
1 t = InputBox(m)
If t = "" Then Exit Sub
With Feuil1 'CodeName
  i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then m = "Saisie précédente invalide...": GoTo 1

 

[guevain]

Re : controle d'inputbox

re Job et bonjour pierrot

merci ,en effet ça marche et j'ai bien le msg.

il faut que je fasse des tests sur différent type d'erreur de saisie, mais en attendant merci encore.

Job, je ne sait pas pourquoi ça n'a pas marcher la première fois , j'ai pourtant fait un copier/coller ?????