VBA - Masquer des lignes sous condition
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"
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"
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
Bonjour,
Vous dites qu'elle ne fonctionne pas mais c'est-à-dire ? Il y a un bug ? Si oui, lequel et à quelle ligne ?
Avez-vous un next pour fermer la boucle for dans votre code ?
La colonne F est bien celle testée ? Les cellules en F sont elles bien remplies ?
Sinon, moi je ferai autrement :
For i = 19 to application.max([A103].End(xlUp).Row, 19)Le mieux serait de fixer correctement la ligne de fin...
Et je modifierai la condition :
If Cells(i, 6) <> "" ThenCdlt,