Macro excel
Résolu/Fermé
masawi86
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
baladur13 Messages postés 47801 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47801 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
j'ai probleme dans une macro cette macro cherche des noms dans les lignes et affiché le nom cherché et la numero de la ligne
exemple"ligne 1 SAP"
"ligne 2 unix"
.
.
.
et merci
j'ai probleme dans une macro cette macro cherche des noms dans les lignes et affiché le nom cherché et la numero de la ligne
exemple"ligne 1 SAP"
"ligne 2 unix"
.
.
.
et merci
A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
Alors ce code est à placer dans un module (ALT+F11 puis Insrtion/Modules) :
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
Sub cherche()
Dim Trouve As Range
Dim Valeur_cherchee, Valeur_trouvee As String
Valeur_cherchee = InputBox("Indiquez ici le texte que vous cherchez", "Texte recherché")
Set Trouve = Cells.Find(what:=Valeur_cherchee)
If Trouve Is Nothing Then
MsgBox "Le texte " & Valeur_cherchee & " n'a pas été trouvé dans cette feuille"
Else
MsgBox "ligne " & Trouve.Row & " " & Valeur_cherchee
End If
Set Trouve = Nothing
End Sub
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
Sub recherche_multiple()
Dim TBadress() As Variant
Dim Cherche, Ix As Long, PrRow
Dim Valeur_cherchee, texte_a_afficher As String
Valeur_cherchee = InputBox("Indiquez ici le texte que vous cherchez", "Texte recherché")
Set Cherche = Cells.Find(Valeur_cherchee)
If Not Cherche Is Nothing Then
PrRow = Cherche.Row
Do
ReDim Preserve TBadress(Ix)
TBadress(Ix) = Cherche.Row
Set Cherche = Cells.FindNext(Cherche)
Ix = Ix + 1
Loop While Not Cherche Is Nothing And Cherche.Row <> PrRow
End If
For Ix = 0 To UBound(TBadress)
texte_a_afficher = texte_a_afficher & vbCrLf & " Ligne : " & TBadress(Ix) & " " & Valeur_cherchee
Next
MsgBox texte_a_afficher
End Sub
Fait à partir de l'astuce CCM de Lermitte222
Bonsoir
https://forums.commentcamarche.net/forum/affich-19257474-macro-excel
________ ___. .__
\______ \ ____ __ _\_ |__ | | ____ ____
| | \ / _ \| | \ __ \| | / _ \ / \
| ' ( <_> ) | / \_\ \ |_( <_> ) | \
/_______ /\____/|____/|___ /____/\____/|___| /
\/ \/ \/
https://forums.commentcamarche.net/forum/affich-19257474-macro-excel
je suis debutant dans VBA
j'ai une feuille d'excel de plusieur ligne et colone
et j'ai cherche une macro qui cherché ds les lignes un text et affiche ds chaque ligne cet text et le numero de la ligne
exemple:
"ligne 1 SAP"
"ligne 2 unix"
et merci