Mon code pour masquer certaines cellules ne fonctionne pas

Version imprimable

Bonsoir le forum

Je sollicite de l'aide pour parfaire l'impression de mon ticket de caisse.
Je souhaite que lorsqu'il y'a des cellules vides dans la plage B10:B20, que toutes les lignes correspondantes soient masquées.
Le code ci-dessous a été conçu a cet effet mais je constate qu'il ne fonctionne pas totalement.
En effet, il y'a impression mais pas de masque de ligne quand bien même les cellules de la condition sont vides.
Code:

1 2 3 4 5 6 7 With Feuil8 .Visible = True .Range("B10:B20").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .PrintOut .Range("B10:B20").EntireRow.Hidden = False .Visible = xlSheetVeryHidden End With

08/11/2019, 19h50
Thautheme

Bonjour Capi, bonjour le forum,

Parfois des cellules qui semblent vides ne le sont pas... Elles contiennent un espace ou autre.
Teste :

Code:

Feuil8.Range("B10:B20").Cells.SpecialCells(xlCellTypeBlanks).Select

Ça donne quoi ?
08/11/2019, 20h00
capi81

Bonsoir Thautheme et le forum

Je viens de tester et c'est l ligne 20 seulement qui est sélectionnée.

Citation:

Parfois des cellules qui semblent vides ne le sont pas... Elles contiennent un espace ou autre

Je suis d'avis avec vous.
Comment faire maintenant pour satisfaire mon besoin?
merci

Bonjour, j'ai testé ce code, si les cellules sont réellement vides cela marche correctement.8O

Code:

1
2
3
4
5
6
7
8
Sub Test()
With Worksheets("Feuil1")  'a remplacer "Feuil1" par votre nom de feuille
    .Visible = True
    .Range("B10:B20").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    .PrintOut
    .Range("B10:B20").EntireRow.Hidden = False
End With
End Sub

Cordialement 8-)

09/11/2019, 08h23
capi81

Bonjour Transitoire , Thautheme et le forum

Merci pour vos contributions.
Il faut noter que la plage B10:E20 est alimenté par les données d'un usf dans l'ordre suivant
Combobox (pour le choix du produit), Textbox_Qte, Textbox_Prix et Textbox_Montant
IL y'a 10 combobox, 10 Textbox_Qte, 10 Textbox_prix et 10 Textbox_Montant
Lors de la facturation, certains controls de mon usf peuvent ne pas comporter des données, donc à la validation, la plage B10:E20 est alimenté par les données des controls.
Est-ce que le fait que certeins controls soient vides peut impacter la plage (absence de vide réellement)?
Au lieu de considerer toutes la plage B10:E20, je me suis dis que si B10:B20 comporte du vide ca permettra d'atteindre l'objectif visé c'est à dire masquer les lignes vides de la plage considérée.
Comment faire pour pouvoir masquer les lignes de la plage B10:B20 qui ne contiennent uniquement que des produits facturés?
Autrement dit comment arriver à faire masquer les lignes fictives (contenant des données invisible à l'oeil nu sauf par test)?

Cordialement

2 pièce(s) jointe(s)

Bonjour...

En feuil8(Feuil8), le ‘ticket’ est un Tableau (LitObjects), n’imprimer que ses lignes totalement remplies :
Pièce jointe 516176

Code:

1
2
3
4
5
6
7
8
9
10
Sub ip()
  With Feuil8
    .Visible = 1
    [Ticket].Item(1, 5).FormulaR1C1 = "=COUNTIF(Ticket[@[Titre1]:[Titre4]],"""")"
    [Ticket].AutoFilter 5, 0
    [Ticket].Item(-1, 1).Resize([Ticket].Rows.Count + 1, 4).PrintPreview '.PrintOut
    [Ticket].Columns(5).Delete
    .Visible = 2
  End With
End Sub

09/11/2019, 11h20
Transitoire

Bonjour, au lieu de travailler sur B10:B20, essayez donc sur C10:C20. il est possible que le problème vienne des Combobox . sinon, il nous faudrait les codes des Combo et TextBox ? :weird:
Cordialement 8-)

Bonjour Transitoire et le forum

En supposant que la plage B10:B20 pourrait ou contient des informations (espaces et autres) et le nombre de caractère possible ne depasserait pas 3, est ce qu'il ne serait pas possible de tester le nombre de caractères. Si le nombre de caractère de chaque cellule de la plage B10:B20 est inférieur à 3, que les lignes soient masquées.

Je vous partage un code contenu dans le 1er combobox intitulé combobox_Bois:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim derlig As Long Dim i As Integer On Error Resume Next Ligne = Application.Match(Me.ComboBox_Bois1, Sheets("BASE_ARTICLES").Range("A:A"), 0) Me.TextBox_PV1 = Sheets("BASE_ARTICLES").Range("E" & Ligne) If ComboBox_Bois1.Value = "" Then Exit Sub ComboBox_Bois2.Clear 'TextBox_Qte1.SetFocus For i = 0 To ComboBox_Bois1.ListCount - 1 'To 0 Step -1 If ComboBox_Bois1.List(i) <> ComboBox_Bois1.Value Then ComboBox_Bois2.AddItem ComboBox_Bois1.List(i) 'ComboBox_Bois1.RemoveItem (i) Next i ComboBox_Bois3.Clear ComboBox_Bois4.Clear ComboBox_Bois5.Clear ComboBox_Bois6.Clear ComboBox_Bois7.Clear ComboBox_Bois8.Clear ComboBox_Bois9.Clear ComboBox_Bois10.Clear

bonjour, avez vous testé le remplacement que je vous avais demandé de tester?
Code:

1 2 3 4 5 6 7 With Feuil8 .Visible = True .Range("B10:B20").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .PrintOut .Range("B10:B20").EntireRow.Hidden = False .Visible = xlSheetVeryHidden End With
a remplacer par :
Code:

1 2 3 4 5 6 7 With Feuil8 .Visible = True .Range("C10:C20").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .PrintOut .Range("C10:C20").EntireRow.Hidden = False .Visible = xlSheetVeryHidden End With
Si vous ne l'avez pas fait, faites le SVP
par ailleurs sur quelle colonne, se trouvent les valeurs reçues des ComboBox?

Cordialement 8-)

10/11/2019, 17h30
capi81

Bonsoir Transitoire

Merci pour votre feedback.

Citation:

Si vous ne l'avez pas fait, faites le SVP

Je viens de tester et ca marche pour le moment.
Je vais approfondir les tests et vous revenir avec le resultat final.

Citation:

par ailleurs sur quelle colonne, se trouvent les valeurs reçues des ComboBox?

La colonne B et plus precisement B10:B20.
Cordialement