|
|
|
|
Salut,
je veux effectuer une rechche dans une feuille excel avec deux critères (ex : trouve la celule qui contient * et A)
Dans vba, je connais la méthode Find , mais apparemment, elle ne m'autorise qu'un critère de recheche.
Avez vous une sol dans vba sans passer par les filtres d 'exce l ?
Merci !
Salut slai,
Sub Cherche()
Dim Plage As Range
Dim Cellule As Range
Dim Posit As Long
On Error Resume Next
Set Plage = Sheets("Feuil1").Range(Cells(1, 1), Cells(12, 8))
For Each Cellule In Plage
If Cellule.Value <> "" Then
Posit = Application.WorksheetFunction.Find("*", Cellule.Value)
If Posit > 0 Then
Posit = Application.WorksheetFunction.Find("A", Cellule.Value)
End If
If Posit > 0 Then
Cellule.Activate
Exit Sub
End If
End If
Next
End Sub
|
Cannot find symbol method addactionlistener Could not find any compatible direct3d devices Envoi du message de test de la messagerie: aucune des méthodes d'authentification prises en charge par ce client ne l'est par vo Excel 2007 vba Excel-vba-francais Find linux Methode merise Msgbox vba Méthode uml Méthodologie de projet No find msforsc.nds file No find scfw.sc file Supprimer une ligne en vba critère cells.find Vba excel Vba la methode close a echoué Vba max date Vba multi find example Worksheetfunction.find vba
