macro excel recherche de texte et application de propriétés Fermé

Question

Bonjour à tous,
j'ai commencé le VBA il ya 3 jours.....
après 2 jours de lecture de forums et d'essais je pète un plomb, donc je viens vous embêter et vous demander votre aide.

dans ma fiche excel, je cherche à trouver les cellules qui possèdent le texte "autocontrôle" et à cacher les lignes correspondantes (les réduire à 0, mais surtout pas les supprimer), j'ai essayé pleins de trucs que j'ai trouvé sur les forums en vain, voici ma ligne de codes:

Sub test()

Do
    If Cells.Find(What:="autocontrôle") Is Nothing Then
       Exit Do
    Else
       Cells.Find(What:="autocontrôle").Activate
       Selection.RowHeight = 23
    End If
Exit Do
Loop

End Sub

avez vous des idées, des remarques... ou carrement un autre code
d'avance merci.

Thorak83 · Answer

Bonjour,

Essayez ceci:
Public Sub test()  Dim MaCellule As Range  Dim AdresseDebut As String  Set MaCellule = Cells.Find(What:="autocontrôle")  If Not MaCellule Is Nothing Then    AdresseDebut = MaCellule.Address    Do      MaCellule.RowHeight = 23      Set MaCellule = Cells.FindNext(MaCellule)    Loop While Not MaCellule Is Nothing And MaCellule.Address <> AdresseDebut  End IfEnd Sub

Cordialement

patrik85 · Answer

ça marche parfaitement,

je vais éplucher la formule pour essayer de comprendre!!

merci beaucoup.

cordialement

Macro excel recherche de texte et application de propriétés

2 réponses

Discussions similaires