Macro par touche

Bonsoir à tous

N'ayant pas trouvé ma requette

Je profite de votre savoir pour me simplifier la recherche

je désir faire par une touche bouton aller a un numéro de ligne

ce numero de ligne serais dans la macro

Ex aller a la ligne 150, un appui sur une touche et hop la ligne 150 est affichée et la suite

comme d'habitude un grand merci

Bonsoir,

une solution :

Sub VaLigne()
Dim Nb As String
Nb = InputBox("N° de ligne ?")
Range("a" & Nb).Select
End Sub

ou pour la ligne complète :

Rows(Nb).Select

amicalement

Claude.

Bonjour

Merci Dubois pour cette macro qui fonctionne,

mais je me suis sans doute mal explique

en fait j'attend le meme résultat mais sans la demande par imput Box

je voudrais une touche quand je la selectionne aller directement a numéro de ligne fixe qui soit dans la macro enregistrée

merci pour la suite

Bonjour

Tu dessines un bouton à l'aide de la barre d'outils "Formulaires" et tu lui affectes cette macro (que tu mets dans un module)

Sub VaLigne()
Range("A150).Select
End Sub

Amicalement

Nad

Merci Nad-Dan

c'est ce que je voulais parfait

Une autre formule *SVP toujours avec un bouton rechercher un texte style ER10 dans la feuille

l'exemple de Dubois est bon mais il ne marche pas en hexdecimal ER10

Bonjour à tous,

Peux-tu envoyer ta feuille ?

avec un exemple

Bonne journée

Claude.

suite de ma demande

L'exemple que vous m'avez fourni fonctionne en recherche de ligne c'est ok

Mais ma nouvelle demande:

est de recherche un mot ou un chiffre exemple "ER103" dans la feuille ouverte

la même formule modifiée en recherche texte .

et afficher la ligne ou ce trouve la recherche"ER103"

merci d'avance .Dubois

re,

Exigeant le gabinos !

il faudrait limiter la recherche sur une colonne, déjà + facile.

Claude.

reponse

ok Claude exemple dans la colonne B cela me suffira

merci de votre rapidité de réponse

re,

exemple sur colonne A6:A500

çà peut s'adapter

https://www.excel-pratique.com/~files/doc/lG2CGPlanning_Conges2009.xls

Valable sur n'importe quelle feuille, en retirant la dernière ligne du code "Aller" (titre)

 ActiveSheet.Shapes.Range("WordArt 5").TextEffect.Text = "Congés de" & Chr(10) & Nd

amicalement

Claude.

Suite

Je n'est rien compris sur l'exemple ?

j'avoue que je ne suis pas très doué dans ce domaine

une explication serais la bienvenue

merci d'avance

re,

et avec çà :

https://www.excel-pratique.com/~files/doc/Va_Liste.xls

Claude.

ok Parfait Merci Claude

Vous êtes trop génial., et surtout trop fort

bonne soirée et Merci

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :

Mytå