Adie pour selection

Bonjour Hicham


Essaie peut être ceci (pas très élégant, mais bon!)

Sub Selection_sous_condition()
Dim str As String, Cell As Range
str = ""
For Each Cell In Range("A1:F15")
If Cell = val Then ''' La condition
If Len(str) > 0 Then str = str & ","
str = str & Cell.Address
End If
Next
Range(str).Select

End Sub

@+

Yvan


"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de news:
%23Hp%23hAhZGHA.3448@TK2MSFTNGP04.phx.gbl...

Bonjour
quel code devrais je ecrire pour executer ce qui suit
selection dans une base de donnée de toute les cellules dont le contenu
corrsepont à une valeur (val) predefinie.
Merci H

Re,Bonjour,
Si j'ai bien compris, voici par rapport à une sélection:

''''***********
Sub test()
Dim c As Range, mySel As Range, _
myRes As Range, mysr As String, tst As Boolean
tst = False
Set mySel = Nothing
mysr = lcase(InputBox("expression à sélectionner"))
On Error GoTo mess
Set mySel = Selection.Cells.SpecialCells(xlCellTypeConstants)
Set mySel = Union(mySel, _
Selection.Cells.SpecialCells(xlCellTypeFormulas))

For Each c In mySel
If LCase(c) Like mysr Then
If myRes Is Nothing Then Set myRes = c
tst = True
Set myRes = Union(myRes, c)
End If
Next

If tst Then myRes.Select: Set myRes = Nothing: Exit Sub

mess:
MsgBox mysr & " non trouvé ou erreur "
End Sub

''''***********

'lSteph


"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de news:
%23Hp%23hAhZGHA.3448@TK2MSFTNGP04.phx.gbl...

Bonjour
quel code devrais je ecrire pour executer ce qui suit
selection dans une base de donnée de toute les cellules dont le contenu
corrsepont à une valeur (val) predefinie.
Merci H