Discussion :

[Flav799]

Bonjour,

Les lignes ci-dessous, font parties d'un ancien tableau Excel de 2018 (INITIALE) et ce que je souhaiterai (FINALE).

Le problème est le suivant : je n'arrive pas en copiant et modifiant les chiffres seulement, à ce qu'elle fonctionne dans le nouveau tableau Excel que j'ai effectué.

Je pense que cela est dû à une fonction particulière dans le nommage des feuilles et/ou fonction de macro car lorsque j'effectue ces changements dans l'ancien tableau cette dernière marche.

Pourriez-vous m'aider ou m'informer sur certaines de ces fonctions ? Y-a-t-il un autre moyen de le coder sur VBA ?

Merci d'avance



INITIALE : "Feuil20.MasquerLignesVides"



Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MasquerLignesVides()
 
For i = [A103].End(xlUp).Row To 20 Step -1
 
If Application.WorksheetFunction.CountBlank(Cells(i, 5)) = 1 Then
 
Rows(i).EntireRow.Hidden = True
 
End If
 
End Sub

FINALE : "Masquerleslignesvides"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Masquerleslignesvides()
 
For i = [A646].End(xlUp).Row To 19 Step -1
 
If Application.WorksheetFunction.CountBlank(Cells(i, 6)) = "" Then
 
Rows(i).EntireRow.Hidden = True
 
End If
 
End Sub

[BENNASR]

bonjour
essayer avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Masquerleslignesvides()
Dim derligne As Long
Dim F As Worksheet
Set F = Sheets("Feuil1")
derligne = F.Range("F" & Rows.Count).End(xlUp).Row
Dim Cel As Range
For Each Cel In F.Range("F19:F" & derligne).Cells
    If Cel = vbNullString Then Cel.EntireRow.Hidden = True
Next Cel
End Sub

[Flav799]

Merci de votre réponse rapide BENNASR, tout fonctionne

Cependant j'ai une petite question es ce qu'il vous serais possible de m'expliquer rapidement ce qui constitue votre codage, et plus particulièrement cette partie :

Code :

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

1
2
3
4
derligne = F.Range("F" & Rows.Count).End(xlUp).Row
Dim Cel As Range
For Each Cel In F.Range("F19:F" & derligne).Cells
    If Cel = vbNullString

et aussi l utilisation de Dim ?

[BENNASR]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Masquerleslignesvides()
Dim derligne As Long
Dim F As Worksheet
Set F = Sheets("Feuil1")
derligne = F.Range("F" & Rows.Count).End(xlUp).Row ' pour chercher la dernière cellule non vide de la colonne F
Dim Cel As Range 
For Each Cel In F.Range("F19:F" & derligne).Cells 'pour chaque cellule de la plage allant de F19 à le derniere ligne non vide de la colonne F
    If Cel = vbNullString Then Cel.EntireRow.Hidden = True 'si la cellule est nulle alors masquer toute la logne
Next Cel ' tester cellule suvante
End Sub