macro recherche

bobiz · 24 Mars 2008

bonjour,

actuellement j'utilise une macro qui recherche des éléments dans la colonne A et dans le cas où cet élément est existant, il est possible de s'y rendre. J'aimerais créer une macro qui recherche un élément dans la colonne B et si ce dernier est existant, avoir la possibilité de se rendre non pas à la colonne B mais A. En PJ la macro que j'utillise actuellement. Si qqn pourrait m'aider ce serait cool...

Dull · 24 Mars 2008

Re : macro recherche

Salut Bobi, le Forum

Remplace to code par celui-la si j'ai bien Compris (Changement en Rouge)

Code:

Sub recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte

Str_Plage = "[COLOR=Red][B]B1:B700[/B][/COLOR]"
Str_critère = InputBox("Element recherché:")
Lg_critère = Len(Str_critère)
For Each Feuil In Sheets
'MsgBox (Feuil.Name)
For Each Cel In Feuil.Range(Str_Plage)
'If UCase(Left(Cel, Lg_critère)) = UCase(Str_critère) Then'
If (InStr(UCase(Cel.Value), UCase(Str_critère)) > 0) Then
X = MsgBox("element """ & Cel & """ trouvé! :" & Chr(13) & _
"Oui : s'y rendre" & Chr(13) & _
"Non : continuer la recherche " & Chr(13) & _
"Annuler : arrêter la recherche" & Chr(13), vbDefaultButton1 + _
vbQuestion + vbYesNoCancel, "ELEMENT TROUVÉ!")
Select Case X
Case 6
Feuil.Activate
[B][COLOR=Red]Cel.Offset(0, -1).Activate[/COLOR][/B]
Exit Sub
Case 2 'annuler on sort
Exit Sub
Case Else 'Non=7
'on fait rien, mais on pourrait
End Select
End If
Next Cel
Next Feuil
MsgBox ("FIN DE LA RECHERCHE")
End Sub

Bonne Journée

macro recherche

bobiz

XLDnaute Nouveau

Pièces jointes

Dull

XLDnaute Barbatruc

Discussions similaires