Valeur Cellule avec Len
Résolu
LANXADE
-
lanxade -
lanxade -
Bonjour à Toutes et à Tous,
Je désire rechercher dans une Colonne Excel un Article inscrit au départ dans un textBox.
Dans une feuille , j'ai une colonne qui possède des Articles analogues.
Par Exemple : Dans le textBox, j'inscris "Voyant"
Dans les colonnes, il y aura : "Voyant bleu", "Voyant vert"
Afin de retrouver tous les voyants, j'emploie la fonction "Len" (de la longueur variable de l'article inscrit dans le TextBox1)
Pour Cela :
J'ai un UserForm avec un TextBox1 et une Feuille avec Colonnes
Lors du code Suivant:
Private Sub CommandButton1_Click()
Dim Lo As Byte
Dim Cherche As String : Dim Trouve As String
Sheets("Cde").Select
Ligne=2
Cherche = TextBox1.Value
Lo = Len(Cherche)
Trouve = Left(Cells(Ligne,5).Value,Lo)
If Trouve =Cherche Then MsgBox "OK" :GoTo ZZ:
MsgBox Trouve:MsgBox "Faux"
ZZ:
End Sub
> Le Text Box1 Contient "Voyant"
> La Cellule Cells(Ligne,5).Value Contient le mot "Voyant vert".
Lors du lancement du Code, Les méssages suivants apparaissent :
MsgBox " Voyant", Puis MsgBox "Faux"
Ce qui signifierait que le Code Len a bien extrait le mot "Voyant" de la cellule "Voyant vert"
Mais que la valeur "Trouve" et la valeur "Cherche" ne sont pas identiques.
Que se passe-t-il ? : Les valeurs TextBox et Cellules sont différentes ? Pourquoi et comment y remédier ?
D'avance Merci Beaucoup
<config>Windows 7 / Excel 2005
Je désire rechercher dans une Colonne Excel un Article inscrit au départ dans un textBox.
Dans une feuille , j'ai une colonne qui possède des Articles analogues.
Par Exemple : Dans le textBox, j'inscris "Voyant"
Dans les colonnes, il y aura : "Voyant bleu", "Voyant vert"
Afin de retrouver tous les voyants, j'emploie la fonction "Len" (de la longueur variable de l'article inscrit dans le TextBox1)
Pour Cela :
J'ai un UserForm avec un TextBox1 et une Feuille avec Colonnes
Lors du code Suivant:
Private Sub CommandButton1_Click()
Dim Lo As Byte
Dim Cherche As String : Dim Trouve As String
Sheets("Cde").Select
Ligne=2
Cherche = TextBox1.Value
Lo = Len(Cherche)
Trouve = Left(Cells(Ligne,5).Value,Lo)
If Trouve =Cherche Then MsgBox "OK" :GoTo ZZ:
MsgBox Trouve:MsgBox "Faux"
ZZ:
End Sub
> Le Text Box1 Contient "Voyant"
> La Cellule Cells(Ligne,5).Value Contient le mot "Voyant vert".
Lors du lancement du Code, Les méssages suivants apparaissent :
MsgBox " Voyant", Puis MsgBox "Faux"
Ce qui signifierait que le Code Len a bien extrait le mot "Voyant" de la cellule "Voyant vert"
Mais que la valeur "Trouve" et la valeur "Cherche" ne sont pas identiques.
Que se passe-t-il ? : Les valeurs TextBox et Cellules sont différentes ? Pourquoi et comment y remédier ?
D'avance Merci Beaucoup
<config>Windows 7 / Excel 2005
A voir également:
- Valeur Cellule avec Len
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel si cellule contient partie texte ✓ - Forum Excel
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
3 réponses
Bonjour,
Modifie légèrement la fin de ton code.
Remplace :
par :
Modifie légèrement la fin de ton code.
Remplace :
If Trouve =Cherche Then MsgBox "OK" :GoTo ZZ: MsgBox Trouve:MsgBox "Faux" ZZ: End Sub
par :
If Trouve = Cherche Then MsgBox "OK" Exit Sub Else MsgBox Trouve:MsgBox "Faux" End If End Sub
Bonjour Pijaku,
Toujours fidèle au poste ! Que serais-Sans Vous ?
Effectivement, ça marche
Merci Encore
Amicalement
Toujours fidèle au poste ! Que serais-Sans Vous ?
Effectivement, ça marche
Merci Encore
Amicalement