Bonjour
J'ai un fichier excel avec une quarantaine de feuille.
J'aimerais faire tourner une macro sur des feuilles qui contiennent un mot dans une cellule précise (à chaque fois la même).
Si la feuille contient le mot alors trier par ordre alphabétique..
Et si la cellule d'une feuille X ne contient pas le mot recherché alors j'aimerais passer à la feuille suivante. Et ainsi de suite
j'ai un début de code mais qui ne fonctionne par encore parfaitement...Il ne fonctionne que sur la feuille sur laquelle je suis, et non pas dans les autres feuilles également..
Encore merci !
J'ai un fichier excel avec une quarantaine de feuille.
J'aimerais faire tourner une macro sur des feuilles qui contiennent un mot dans une cellule précise (à chaque fois la même).
Si la feuille contient le mot alors trier par ordre alphabétique..
Et si la cellule d'une feuille X ne contient pas le mot recherché alors j'aimerais passer à la feuille suivante. Et ainsi de suite
j'ai un début de code mais qui ne fonctionne par encore parfaitement...Il ne fonctionne que sur la feuille sur laquelle je suis, et non pas dans les autres feuilles également..
Code:
Sub Tri()
For Each ws In ActiveWorkbook.Worksheets()
If ws.Range("B4") = "Valeur_" Then
Range("B4:CI80").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
Next ws
End Sub
Encore merci !