Macro excel recherche de texte et application de propriétés
patrik85
Messages postés
2
Statut
Membre
-
patrik85 Messages postés 2 Statut Membre -
patrik85 Messages postés 2 Statut Membre -
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:
avez vous des idées, des remarques... ou carrement un autre code
d'avance merci.
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:
- Macro excel recherche de texte et application de propriétés
- Application word et excel gratuit - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
Bonjour,
Essayez ceci:
Cordialement
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
