Label1.text dans une plage de cellules

6 réponses

Vincent

23/10/2004 à 12:11

Bonjour
J'aimerai pouvoir écrire en VBA :
Si le mot qui est dans le label1 se trouve dans la plage de cellule A3:A500
de la feuille "toto" alors msgbox "Ce nom se trouve déjà dans la feuille de
calcul "
Merci beaucoup
Vincent

6 réponses

23/10/2004 à 15:10

Avec le mot à chercher dans une TextBox (sur la feuille active) nommée "ZnTexte"

Sub zzz()
x = ActiveSheet.Shapes("ZnTexte").TextFrame.Characters.Text
If IsNumeric(Application.Match(x, [Feuil1!A3:A500], 0)) Then _
MsgBox "Ce nom...blabla"
End Sub

AV

Vincent

23/10/2004 à 16:36

Bonjour AV
en fait ce serait quelquechose du genre
Mais cela ne fonctionne pas

x = frm_spl.Label1.Caption
If IsNumeric(Application.Match(x, [Master!A3:A500], 0)) Then _
MsgBox "Ce nom...blabla"

"AV" a écrit dans le message de news:

Avec le mot à chercher dans une TextBox (sur la feuille active) nommée
"ZnTexte"

Sub zzz()
x = ActiveSheet.Shapes("ZnTexte").TextFrame.Characters.Text
If IsNumeric(Application.Match(x, [Feuil1!A3:A500], 0)) Then _
MsgBox "Ce nom...blabla"
End Sub

AV

23/10/2004 à 17:03

Mais cela ne fonctionne pas

x = frm_spl.Label1.Caption
If IsNumeric(Application.Match(x, [Master!A3:A500], 0)) Then _
MsgBox "Ce nom...blabla"

Ce code là fonctionne parfaitement si ..... tu as :
* un Userform nommé "frm_spl"
* Avec dessus un Label nommé "Label1"
* une feuillle nommée "Master"

AV

Vincent

23/10/2004 à 17:25

C'est exactement ce que j'ai ;-(
Une question pourquoi le isnumeric ?
Vincent

"AV" a écrit dans le message de news:
Ob$

Mais cela ne fonctionne pas

x = frm_spl.Label1.Caption
If IsNumeric(Application.Match(x, [Master!A3:A500], 0)) Then _
MsgBox "Ce nom...blabla"

Ce code là fonctionne parfaitement si ..... tu as :
* un Userform nommé "frm_spl"
* Avec dessus un Label nommé "Label1"
* une feuillle nommée "Master"

AV

23/10/2004 à 17:41

C'est exactement ce que j'ai ;-(
Hum...hum.... Il doit manquer qque chose !

Voir le fichier exemple ici :
http://cjoint.com/?kxrQDHTfje

Une question pourquoi le isnumeric ?
Si la fonction Match ne trouve pas la valeur cherchée dans la plage [A3:A500],

elle renvoie une erreur donc une valeur non numérique d'où un test avec If
IsNumeric(.....)

AV

Vincent

23/10/2004 à 18:00

Bravo Alain, cela fonctionne parfaitement,
Je vais donc voir ce qui cloche chez moi ;-)
Encore un très grand merci.
Vincent

"AV" a écrit dans le message de news:

C'est exactement ce que j'ai ;-(
Hum...hum.... Il doit manquer qque chose !

Voir le fichier exemple ici :
http://cjoint.com/?kxrQDHTfje

Une question pourquoi le isnumeric ?
Si la fonction Match ne trouve pas la valeur cherchée dans la plage

[A3:A500],
elle renvoie une erreur donc une valeur non numérique d'où un test avec If
IsNumeric(.....)

AV

Label1.text dans une plage de cellules

6 réponses

Veuillez sélectionner un problème