Je souhaite trouver la colonne dans laquelle se trouve une=20
donn=E9e pr=E9cise.
J'ai donc enregistr=E9 une macro dans laquelle je fais une=20
recherche sur un nombre quelconque (ici 2001) et je=20
voudrais remplacer ce nombre par une variable.
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
jerrykhann
Salut Enema, il te faut rentrer ta donnée variable avant de faire la recherche, un truc style : Mavariable = InputBox("Quelle année ?", , nom) et ensuite de faire la recherche Selection.Find(Mavariable, After:¬tiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:úlse).Activate
cela convient ?
-- jerrykhann ( virez jerry c'est un bon à rien :-) -- "Enema" a écrit dans le message de news:2c95601c393e1$16a91410$ Bonjour,
Je souhaite trouver la colonne dans laquelle se trouve une donnée précise.
J'ai donc enregistré une macro dans laquelle je fais une recherche sur un nombre quelconque (ici 2001) et je voudrais remplacer ce nombre par une variable.
Salut Enema,
il te faut rentrer ta donnée variable avant de faire la recherche, un truc
style :
Mavariable = InputBox("Quelle année ?", , nom)
et ensuite de faire la recherche
Selection.Find(Mavariable, After:¬tiveCell,
LookIn:=xlFormulas, _LookAt:=xlPart,
SearchOrder:=xlByRows, SearchDirection:=xlNext,
_MatchCase:úlse).Activate
cela convient ?
--
jerrykhann ( virez jerry c'est un bon à rien :-)
--
"Enema" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2c95601c393e1$16a91410$a601280a@phx.gbl...
Bonjour,
Je souhaite trouver la colonne dans laquelle se trouve une
donnée précise.
J'ai donc enregistré une macro dans laquelle je fais une
recherche sur un nombre quelconque (ici 2001) et je
voudrais remplacer ce nombre par une variable.
Salut Enema, il te faut rentrer ta donnée variable avant de faire la recherche, un truc style : Mavariable = InputBox("Quelle année ?", , nom) et ensuite de faire la recherche Selection.Find(Mavariable, After:¬tiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:úlse).Activate
cela convient ?
-- jerrykhann ( virez jerry c'est un bon à rien :-) -- "Enema" a écrit dans le message de news:2c95601c393e1$16a91410$ Bonjour,
Je souhaite trouver la colonne dans laquelle se trouve une donnée précise.
J'ai donc enregistré une macro dans laquelle je fais une recherche sur un nombre quelconque (ici 2001) et je voudrais remplacer ce nombre par une variable.
La procédure suivante fait une recherche sur l'ensemble de la feuille stipulée dans la procédure. Si elle trouve la "Chaîne" recherchée, elle t'affichera la colonne où elle l'a trouvé.
Attention, elle s'arrête à la première chaîne trouvée. Ce paramètre est "LookAt:=xlPart" , Tu désires XlPart ou XlWhole ? Voir l'explication dans l'aide au besoin.
'------------------------------------ Sub Recherher()
Dim Rg As Range, SearchString As String
SearchString = InputBox("Entrer l'objet de votre recherche?") If SearchString = "" Then Exit Sub
With Worksheets("Feuil2") With .UsedRange Set Rg = .Find(What:=SearchString, LookIn:=xlFormulas, _ LookAt:=xlPart) End With End With If Not Rg Is Nothing Then MsgBox "La colonne est : " & Rg.Column Else MsgBox "Rien trouvé." End If Set Rg = Nothing
End Sub '------------------------------------
Salutations!
"Enema" a écrit dans le message de news:2c95601c393e1$16a91410$ Bonjour,
Je souhaite trouver la colonne dans laquelle se trouve une donnée précise.
J'ai donc enregistré une macro dans laquelle je fais une recherche sur un nombre quelconque (ici 2001) et je voudrais remplacer ce nombre par une variable.
La procédure suivante fait une recherche sur l'ensemble de la feuille stipulée dans la procédure. Si elle trouve la
"Chaîne" recherchée, elle t'affichera la colonne où elle l'a trouvé.
Attention, elle s'arrête à la première chaîne trouvée.
Ce paramètre est "LookAt:=xlPart" , Tu désires XlPart ou XlWhole ?
Voir l'explication dans l'aide au besoin.
'------------------------------------
Sub Recherher()
Dim Rg As Range, SearchString As String
SearchString = InputBox("Entrer l'objet de votre recherche?")
If SearchString = "" Then Exit Sub
With Worksheets("Feuil2")
With .UsedRange
Set Rg = .Find(What:=SearchString, LookIn:=xlFormulas, _
LookAt:=xlPart)
End With
End With
If Not Rg Is Nothing Then
MsgBox "La colonne est : " & Rg.Column
Else
MsgBox "Rien trouvé."
End If
Set Rg = Nothing
End Sub
'------------------------------------
Salutations!
"Enema" <anonymous@discussions.microsoft.com> a écrit dans le message de news:2c95601c393e1$16a91410$a601280a@phx.gbl...
Bonjour,
Je souhaite trouver la colonne dans laquelle se trouve une
donnée précise.
J'ai donc enregistré une macro dans laquelle je fais une
recherche sur un nombre quelconque (ici 2001) et je
voudrais remplacer ce nombre par une variable.
La procédure suivante fait une recherche sur l'ensemble de la feuille stipulée dans la procédure. Si elle trouve la "Chaîne" recherchée, elle t'affichera la colonne où elle l'a trouvé.
Attention, elle s'arrête à la première chaîne trouvée. Ce paramètre est "LookAt:=xlPart" , Tu désires XlPart ou XlWhole ? Voir l'explication dans l'aide au besoin.
'------------------------------------ Sub Recherher()
Dim Rg As Range, SearchString As String
SearchString = InputBox("Entrer l'objet de votre recherche?") If SearchString = "" Then Exit Sub
With Worksheets("Feuil2") With .UsedRange Set Rg = .Find(What:=SearchString, LookIn:=xlFormulas, _ LookAt:=xlPart) End With End With If Not Rg Is Nothing Then MsgBox "La colonne est : " & Rg.Column Else MsgBox "Rien trouvé." End If Set Rg = Nothing
End Sub '------------------------------------
Salutations!
"Enema" a écrit dans le message de news:2c95601c393e1$16a91410$ Bonjour,
Je souhaite trouver la colonne dans laquelle se trouve une donnée précise.
J'ai donc enregistré une macro dans laquelle je fais une recherche sur un nombre quelconque (ici 2001) et je voudrais remplacer ce nombre par une variable.