!!!!! DOUBLE QUESTIONS !!!!!

[hasardeux]

Bonjour tout le monde,

J'ai 2 questions si je peux trouver une réponse:

1- Comment par MACRO dans un classeur supprimer toutes les feuilles dont la plage A20:C20 ne contient aucune valeur

2- Comment par MACRO trouver/sélectionner dans une feuille la cellule contenant la valeur "BONJOUR"


Merci beaucoup pour vos aides ....°😉

 

[STéphane]

bonjour

1°/

application.displayalerts=false
For Each Sh In Sheets
If Application.Count(Sh.[A1:A20]) > 0 Then MsgBox Sh.delete
Next Sh

2°/

cherche des infos sur la méthode find dans l'aide vba
tu devras arriver à un truc du genre

set cl=activesheet.cells.find "toto"
if not cl is nothing then cl.select

bye
Stéphane

 

[Ti]

Sub DetruitFeuilles()
Dim Ws As Worksheet, Trouve As Range
Dim OK As Boolean
Application.DisplayAlerts = False
For Each Ws In ActiveWorkbook.Worksheets
Set Trouve = Ws.Range("A20:C20").Find("*")
If Trouve Is Nothing And _
ActiveWorkbook.Worksheets.Count > 1 Then Ws.Delete
Next Ws
Application.DisplayAlerts = True
End Sub

Sub TrouveBONJOUR()
'trouve la cellule qui contient BONJOUR (en majuscules)
Dim CelBonjour As Range
Set CelBonjour = ActiveSheet.UsedRange. _
Find("BONJOUR", , xlValues, MatchCase:=True)
If Not CelBonjour Is Nothing Then CelBonjour.Select
End Sub

La deuxième procédure ne trouvera que "BONJOUR" (pas "Bonjour"). POur modifier cela, mets MatchCase:=false

 

[Ti]

oups, je n'avais pas vu la réponse de Stéphane.