Discussion :

[Banane54]

Bonjour,

Je sais que se sujet a déjà était traité mais je suis nouveau dans l'utilisation de VBA et j'ai besoin d'aide:

Je dois masquer des lignes sous certaines conditions. Plus précisément, j'ai un bouton sur la "Feuil1", lorsque que je clique dessus, j'aimerais que la "Feuil2" s'ouvre (j'ai réussis à le faire) et qu'il masque les lignes pour lesquelles il n’apparaît aucune valeur dans la colonne "C".

Je pensais à quelques chose comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
Sheets("Feuil2").Activate
 
If Range("c3:c15") = "0" Then
    Rows("3:15").Select
    Selection.EntireRow.Hidden = True
    End If
 
End Sub

Je ne pense pas que se soit cela, pouvez-vous m'éclairer?

Ci-joint, un exemple cours de ce ma feuille : Classeur2.xlsm


Merci d'avance

[unparia]

Bonjour
Je n'ouvre hjamais de classeur tiers et n'ai donc pas ouvert le tien.
Ouvre s'il te plait ton aide VBA à la rubrique Range.SpecialCells, méthode
et utilise-la avec l'argument xlCellTypeBlanks

[BENNASR]

bonjour
essayer ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Bouton1_Cliquer()
Application.ScreenUpdating = False
Sheets("feuil2").Select
For i = 1 To 15
If Range("C" & i) = "" Then
Range("C" & i).Select
    Selection.EntireRow.Hidden = True
    End If
    Next i
    Application.ScreenUpdating = True
End Sub

[unparia]

Bonjour BENNASR
As-tu essayé le résultat obtenu par des suppressions de ligne dans cet ordre-là ?
Tu devrais

[Banane54]

> unparia : Je ne connais pas du tout VBA donc je ne sais même pas où je dois cliquer pour accéder à ce que tu as écris

> BENNASR : Merci, je viens de l'essayer mais il y a un petit probléme, il me marque :

Erreur d'exécution '1004':
La méthodes Select de la classe Range à échoué.

Lorsque je débogue, Excel me surligne la ligne Range("C" & i).Select

Merci

[unparia]

Je ne connais pas du tout VBA donc je ne sais même pas où je dois cliquer pour accéder à ce que tu as écris

C'est plus que gênant. C'est carrément "infirmisant".
Examine donc le bandeau de ton IDE Visual Basic. Il y a peut-être un onglet (? ou aide ou Help) qui devrait non seulement te "parler", mais également (indispensable à chacun d'entre nous) être utilisé.
Si tu n'as jamais ouvert cette aide, ma foi ... tu es dans la situation de celui qui voudrait utiliser un outil sans même en lire le mode d'emploi.
Bonne lecture.

[BENNASR]

bonjour unparia, bonjour tous le monde
je crois qu'il cherche à masquer et non pas à supprimer
de même j'avoue et je déclare que je suis entrain de faire mes premiers pas en VBA (niveau primaire acquis grâce à ce super site )
j'apprends de vous chaque jour
je sais pas si ce que je vais afficher consiste à une amélioration du mon code bricolé ou bien c'est le contraire
bonne journée unparia, la forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton1_Cliquer()
Sheets("feuil2").Select
Application.ScreenUpdating = False
Dim plage As Range
Dim r As Range
Set plage = Sheets("feuil2").Range("C1:C15")
For Each r In plage
If r.Value = "" Then
r.EntireRow.Hidden = True
End If
Next
    Application.ScreenUpdating = True
End Sub