Macro excel masquer des lignes

Merci, en incrémentant, évidemment ça marche.
J'essaie la 2e solution, ça ne masque pas, ça efface les lignes. Je suppose qu'il me faut remplacer Delete par un autre mot, mais lequel...?
Autre chose, je ne comprends pas les lignes 3 et 5. J'ai cherché Find dans fonctions, sans succès. Merci de m'éclairer si c'est possible.

Bonjour et merci,
J'ai encore 2 questions...
D'abord, je ne comprends pas "l'exemple fourni par MS"

Ensuite, pourquoi la macro5 foctionne, et pas la 7?

Sub Macro5()
Rows(4 & ":" & 14).Hidden = True
End Sub

Sub Macro7()
Columns(4 & ":" & 14).Hidden = True
End Sub

Bonsoir Michel,

J'aimerais comprendre pourquoi la macro suivante, que tu m'as indiquée, ne fonctionne pas.

Sub Macro1()
With Worksheets(1).Range("a1:a50")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End sub

Le débogueur me répond erreur d'exécution 91... Variable objet ou variable de bloc with non définie.
Merci de ton aide.

@CORNEMUSEBonjour,

Curieux, c'est pourtant un copier-coller de l'aide microsoft et je l'avais déjà étudié pour apprendre mais peut-^tre pas jusqu'au bout !!!...

ce qui se passe: lorsque tous les 2 ont été remplacés par des 5, c.address ="rien"(nothing) et donc n'existe pas d'où erreur
Enfin, tel que je crois comprendre

voici ce que j'ai fait pour éviter le plantage

Sub cherche()
With Worksheets(1).Range("a1:a50")
    Set c = .Find(2, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
            If c Is Nothing Then: Exit Do
        Loop While c.Address <> firstAddress
    End If
End With

End Sub

Mais si quelqu'un sur le forum connait le pourquoi du comment, je suis preneur!

Bonne soirée

@michel_mSalut michel et cornemuse,

Je suis presque d'accord avec toi michel, plus précisément je dirais que si c=nothing alors c.address ne veut plus rien dire.
D'ailleurs à quoi sert ce test c.Address <> firstAddress ?
A rien j'ai l'impression, puisque s'il ne trouve plus rien on aura .FindNext(c)=nothing et c'est justement la première condition de sortie de boucle.
J'ai testé :

Sub Macro1()
    With Worksheets(1).Range("a1:a50")
        Set c = .Find(2, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.Value = 5
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End Sub

comme simplification et ça a l'air de bien tourner...

eric

@eriiicBonjour Eric,

j'arrivais à la formulation que toi en prenant ma douche (si,si, ca m'arrive)

bizarre quand même pour un exemple donné par MS et qu'on retrouve souvent dans des codes...

Bonsoir Eric,
J'ai essayé la macro:

If ActiveCell.Offset(1, 0) = "" Then
Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown).Offset(-1, 0)).EntireRow.Hidden = True
End If

Elle ne correspond pas tout à fait à ce queje souhaite: elle affiche toutes les lignes de la feuille au-dessous de la cellule active, si ces lignes ont leur cellule de la même colonne que la cellule active, vide.
Or la feuille contient plusieurs plages correspondant à ces critères, et je souhaite que la 1ère plage seulement soit concernée.
Merci de ton aide.

Salut à vous,
Je n'ai pas eu le temps de travailler les dernières réponses(mes activtés de retraité, et la préparation des fêtes familiales, ça occupe), mais j'ai une autre question.
Je bricole depuis une quinzaine d'années sur les macros d'Excel. Autodidacte, j'ai quand même rencontré des gens qui m'ont mis ou remis sur des rails (sinon je planterais des choux), mais je ne suis pas ouvert au(x) langage(s) qu'utilisent les habitués de l'informatique. Ce n'est pas pour raconter ma vie, mais pour situer...
Les macros que je crée et utilise, sont écrites sur des modules Virtual Basic. Et j'ai découvert qu'il existe des macos écrites sur des feuilles excel, dans un langage qui m'est inconnu. Exemple:
TRIER LES DONNEES
=SELECTIONNER("L11C1:L199C20")
=TRIER(1;"L11C1";1)
=SELECTIONNER("L5C1")
=RETOUR()
Si quelqu'un peut m'aider, me traduire par exemple ce qui précède, me dire où m'adreser...
Merci

Salut Eric,
C'est vrai qu'avec Excel 4, les macros étaient écrites sur des feuilles, en français, ce qui me facilitait la tâche, mais le langage était le même qu'aujourd'hui. C'est pourquoiu je ne comprends pas avec les L1C1...

Bonjour, je précise, et te présente mes excuses pour l'erreur suivante,

J'ai effectivement remplacé True par False, pensant que ça serait sans conséquences...
En fait, avec True, ça marche, mais pas avec False.

Mon exemple, avec False:

cellule B1 occupée
B2 à B10, vides
B11 et B12 occupées
B13 à B17, vides
B18, B19, B20, occupées
B21 à B28, vides
B29 et B30, occupées

cellule active: B1. Je lance la macro, toutes les lignes sont affichées, alors que je ne souhaitais voir que les lignes 2 à 10.
De même, je voudrais lancer à partir de B12 ou B20 et découvrir les lignes 13 à 17 ou de 21 à 28.

Encore mes excuses et merci.