Modification macro recherche

[Temjeh]

Bonsoir à tous

Encore moi avec mes macros

J'ai ce code qui recherche valeur:

Sub Macro1()
'Code qui recherche valeur de InputBox
Dim countTot As Long
Dim counter As Long
Dim strSearchString As String
Dim ws As Object
Dim foundCell As Variant
Dim loopAddr As Variant
Dim returnValue As String
Debut:

strSearchString = InputBox(prompt:='Entrer le no de téléphone.', Title:='Recherche')
If strSearchString = '' Then Exit Sub
For Each ws In Worksheets
countTot = countTot + Application.CountIf(ws.UsedRange, '=' & strSearchString)
Next ws
If countTot = 0 Then
returnValue = MsgBox(' Le client au' & strSearchString & ' n'est pas enregistré ', vbOKOnly, ' Message ')
Else
counter = 0
For Each ws In Worksheets
With ws
.Activate
Set foundCell = .Cells.Find(What:=strSearchString, LookIn:=xlValues, LookAt:=xlPart)
If Not foundCell Is Nothing Then
loopAddr = foundCell.Address
Do
counter = counter + 1
foundCell.Activate
If countTot = 1 Then
On Error GoTo Error
returnValue = MsgBox(' Le client ' & strSearchString & ' est enregistré 1 seule fois ', vbOKOnly, ' Message ')
Exit Sub
End If
If counter = countTot Then
On Error GoTo Error
returnValue = MsgBox(' Le client ' & strSearchString & ' sélectionné est le dernier !', vbOKOnly, 'Message')
Exit Sub
Else
On Error GoTo Error
returnValue = MsgBox(' Le client ' & strSearchString & ' sélectionné est le ' & counter & ' sur ' & countTot & ' existants. ' & vbLf & _
' Voulez vous continuer la recherche ? ', vbYesNo, 'Message')
If returnValue = vbNo Then Exit For
Set foundCell = .Cells.FindNext(After:=foundCell)
End If
Loop While Not foundCell Is Nothing And foundCell.Address <> loopAddr
End If
End With
Next ws
End If
Error:
End Sub

J'ai besoin qu'il recherche sur tous les feuils comme il le fait mais que dans les colonnes A à E car en col F j'y met aussi un no de téléphone au travail que je ne veut pas dans la recherche.
Est-ce possible ou je rêve

Merci beaucoup

Temjeh

 

[porcinet82]

salut Temjeh,

a froid comme ca je dirais qu'en mettant un 'for sur tes colonnes' a l'interieur de ton for qui parcour tes feuilles devrait faire l'affaire.

bon courage
@+

 

[ChTi160]

Salut'Temjeh et porcinet82
j'ai a l'ouverture de chaque feuille déterminé la zone nommée PlageCible ici Colonne A a F
pour effectuer la recherche
a adapter
tiens nous au courant
Amicalement
je viens de relire et j'ai inclu la Colonne F donc modifier
maPlageCible('A1:E'&Derlgn) excuses !!!!!
Jean Marie [file name=RechercheV1.zip size=11029]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RechercheV1.zip[/file]

Message édité par: ChTi160, à: 06/04/2005 10:09

 

[Temjeh]

Merci beaucoup ChiTi160
Merciporcinet82

Pour la rép de ChTi160 ca fonctionne très bien sauf que le compteur qui me met le nombre de valeur dans msgbox 1 de.. 2 de... 3 de... me met quand même le total de tous ceux qui sont dans les feuils(non de A:E). Si c'est trop de prob à modifier je vais supprimé ce compte et mettre dans msgbox...client suivant

Merci beaucoup

Temjeh

 

[ChTi160]

re c'est normal car tu fais la recherche dans cells ensemble de cellules de la feuille et non dans la Plage A:E
je regarde
A bientôt
Jean Marie

 

[ChTi160]

re
une modification a adapter
Dim PlageCible As Range
Dim PlageRecherche As Range
Dim derlgn As Integer
Debut:
strSearchString = InputBox(prompt:='Entrer le no de téléphone.', Title:='Recherche')
If strSearchString = '' Then Exit Sub
For Each ws In Worksheets
Set PlageRecherche = ws.Range('A1:E500')'on pourrait aussi determiner une plage variable
countTot = countTot + Application.CountIf(PlageRecherche, '=' & strSearchString)
Next ws
Amicalement
Jean Marie

Message édité par: ChTi160, à: 06/04/2005 13:45

 

[Temjeh]

Merci beaucoup oui la perfection existe!!

A+

Temjeh