validation

Le
man77 Hors ligne
Bonjour,
Encore besoin de vous

Voilà, je dois rentrer une référence à chercher en "e17" sous forme alpha-numérique puis le programme ci-dessous. Mais volà je dois valider par "enter" avant de pouvor utiliser mon bouton "recherche" (hélas)
Peut-on valider la frappe en "e17" sans avoir à valider par "enter"
En fait je souhaiterais que mon bouton "recherche" serve de validation en même temps
Je ne sais pas si je suis bien clair
Voici mon pas de programme :

Sub recherche()
cherche = Range("e17").Value
With Worksheets("Casier").Range("a14:a80")
Set cellulecherchee = .Find(What:=cherche, _
LookIn:=xlValues, LookAt:=xlWhole)
If cellulecherchee Is Nothing Then
MsgBox "Casier pas trouvé"
Else
Lignecherche = cellulecherchee.Row
Colcherche = cellulecherchee.Column + 1
totocherche = Worksheets("casier").Cells(Lignecherche, Colcherche).Value
Worksheets("menu").Range("d19") = totocherche
End If
End With

End Sub

merci à tous et @++
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #24035211
Bonjour
Un petit coup de flèche (G, D ou haut, bas) valide aussi la cel.
Sélectionner une autre cel validera (AMHA) aussi le contenu .

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"man77" a écrit dans le message de groupe de discussion :


Bonjour,
Encore besoin de vous...

Voilà, je dois rentrer une référence à chercher en "e17" sous forme
alpha-numérique puis le programme ci-dessous. Mais volà je dois valider par
"enter" avant de pouvor utiliser mon bouton "recherche" (hélas...)
Peut-on valider la frappe en "e17" sans avoir à valider par "enter"...
En fait je souhaiterais que mon bouton "recherche" serve de validation en
même
temps...
Je ne sais pas si je suis bien clair...
Voici mon pas de programme :

Sub recherche()
cherche = Range("e17").Value
With Worksheets("Casier").Range("a14:a80")
Set cellulecherchee = .Find(What:=cherche, _
LookIn:=xlValues, LookAt:=xlWhole)
If cellulecherchee Is Nothing Then
MsgBox "Casier pas trouvé"
Else
Lignecherche = cellulecherchee.Row
Colcherche = cellulecherchee.Column + 1
totocherche = Worksheets("casier").Cells(Lignecherche,
Colcherche).Value
Worksheets("menu").Range("d19") = totocherche
End If
End With

End Sub

merci à tous et @++
man77 Hors ligne
Le #24036971
man77 a écrit le 05/12/2011 à 17h06 :
Bonjour,
Encore besoin de vous...

Voilà, je dois rentrer une référence à chercher en
"e17" sous forme alpha-numérique puis le programme ci-dessous.
Mais volà je dois valider par "enter" avant de pouvor utiliser
mon bouton "recherche" (hélas...)
Peut-on valider la frappe en "e17" sans avoir à valider par
"enter"...
En fait je souhaiterais que mon bouton "recherche" serve de
validation en même temps...
Je ne sais pas si je suis bien clair...
Voici mon pas de programme :

Sub recherche()
cherche = Range("e17").Value
With Worksheets("Casier").Range("a14:a80")
Set cellulecherchee = .Find(What:=cherche, _
LookIn:=xlValues, LookAt:=xlWhole)
If cellulecherchee Is Nothing Then
MsgBox "Casier pas trouvé"
Else
Lignecherche = cellulecherchee.Row
Colcherche = cellulecherchee.Column + 1
totocherche = Worksheets("casier").Cells(Lignecherche,
Colcherche).Value
Worksheets("menu").Range("d19") = totocherche
End If
End With

End Sub

merci à tous et @++


bonjour,
Merci pour la réponse mais hélas ça ne fonctionne pas.
Flèche G ou D ou autres ne fonctionne pas.
Il y aurait-il une fonction ou autre pour validation auto.
@++
Jacquouille
Le #24038551
Bonjour
En fait, en changeant de cellule avec une flèche, Excel sélectionne
directement la nouvelle cellule (de destination).
Voici à quoi ressemble mon code pour passer de E1O en E8 puis en G8 AVEC
les flèches.
---------------
Sub flèches_test()
Range("E8").Select
With Selection.Interior
.ColorIndex = 7
End With
Range("G8").Select
With Selection.Interior
.ColorIndex = 7
End With
End Sub
----------------------------------------
Mais, tous les grands gourous d'ici (je n'en fait pas partie, mais je suis
d'accord avec eux) diront que c'est pas bon, inutile et lent d'utiliser des
SELECT.
-(
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
-------------------------------
"man77" a écrit dans le message de groupe de discussion :


man77 a écrit le 05/12/2011 à 17h06 :
Bonjour,
Encore besoin de vous...

Voilà, je dois rentrer une référence à chercher en
"e17" sous forme alpha-numérique puis le programme ci-dessous.
Mais volà je dois valider par "enter" avant de pouvor utiliser
mon bouton "recherche" (hélas...)
Peut-on valider la frappe en "e17" sans avoir à valider par
"enter"...
En fait je souhaiterais que mon bouton "recherche" serve de
validation en même temps...
Je ne sais pas si je suis bien clair...
Voici mon pas de programme :

Sub recherche()
cherche = Range("e17").Value
With Worksheets("Casier").Range("a14:a80")
Set cellulecherchee = .Find(What:=cherche, _
LookIn:=xlValues, LookAt:=xlWhole)
If cellulecherchee Is Nothing Then
MsgBox "Casier pas trouvé"
Else
Lignecherche = cellulecherchee.Row
Colcherche = cellulecherchee.Column + 1
totocherche = Worksheets("casier").Cells(Lignecherche,
Colcherche).Value
Worksheets("menu").Range("d19") = totocherche
End If
End With

End Sub

merci à tous et @++


bonjour,
Merci pour la réponse mais hélas ça ne fonctionne pas.
Flèche G ou D ou autres ne fonctionne pas.
Il y aurait-il une fonction ou autre pour validation auto.
@++
Publicité
Poster une réponse
Anonyme