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

patrik85 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
patrik85 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

Réponse 1 / 2
Thorak83 Messages postés 1051 Date d'inscription   Statut Membre Dernière intervention   156
 
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 If
End Sub

Cordialement
0
Réponse 2 / 2
patrik85 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
ça marche parfaitement,

je vais éplucher la formule pour essayer de comprendre!!

merci beaucoup.

cordialement
0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses