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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
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 @++
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 :
jZKdneCi_I6AcUHT4p2dnAA@giganews.com...
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
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
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. @++
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.
@++
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
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. @++
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 :
pb2dnR1YdPDhX0DTRVn_vwA@giganews.com...
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.
@++
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. @++