Masquage ligne erronée
mathias
-
mathias -
mathias -
Bonjour,
Je suis sur le point de terminer ma programmation VBA mais un détail cloche , en effet jusqu'à présent je ne voulais afficher seulement les paramètres "ECU 1 A "et "ECU 1B" et cela marché très bien mais je voudrais désormais afficher en plus de ces deux les case vides de la même colonne .. ECU 1 A , ECU 1B et les cases vides sot affichées mais voila que FQMS1 s'affiche aussi alors que je ne le souhaite pas , une idée ?? voici le code :
For i = Range("U" & Rows.Count).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, DerCol)), "ECU 1A") + _
WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, DerCol)), "ECU 1B") + _
WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, DerCol)), "") <= 0 ' Nouvel ajout qui fait afficher également FQMS1
Then
Rows(i).EntireRow.Hidden = True
End If
Next
Merci de votre aide ..
Je suis sur le point de terminer ma programmation VBA mais un détail cloche , en effet jusqu'à présent je ne voulais afficher seulement les paramètres "ECU 1 A "et "ECU 1B" et cela marché très bien mais je voudrais désormais afficher en plus de ces deux les case vides de la même colonne .. ECU 1 A , ECU 1B et les cases vides sot affichées mais voila que FQMS1 s'affiche aussi alors que je ne le souhaite pas , une idée ?? voici le code :
For i = Range("U" & Rows.Count).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, DerCol)), "ECU 1A") + _
WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, DerCol)), "ECU 1B") + _
WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, DerCol)), "") <= 0 ' Nouvel ajout qui fait afficher également FQMS1
Then
Rows(i).EntireRow.Hidden = True
End If
Next
Merci de votre aide ..
A voir également:
- Masquage ligne erronée
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Formulaire en ligne de meta - Guide