Pas réussi à afficher le MsgBox

[RONIBO]

Bonjour,

Comme je pense que j'ai tout dit dans le titre,

Sur ce macro :

Public annul 'Evite les rebouclages multiples dans les Worksheet_Change
Dim X As Integer
Dim Y As Byte
Private Sub Réserve_Click()
Set f = New Réserve
f.Show
Set f = Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Clic en dehors du tableau pour effacer les lignes coloriées
Range("A20:H" & Range("H65535").End(xlUp).Row).Interior.Pattern = xlNone
'Pour la partie désignation
If Not Intersect(Target, Range("A20:B38")) Is Nothing And Target.Count = 1 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(255, 192, 0)
End If
If Not Intersect(Target, Range("C20:E38")) Is Nothing And Target.Count = 4 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(255, 192, 0)
If Len(Cells(Target.Row, 3)) > 75 Then
If Cells(Target.Row, 3).RowHeight = 15 Then testhauteur = 1
Cells(Target.Row, 3).RowHeight = 30
Else
If Cells(Target.Row, 3).RowHeight = 30 Then testhauteur = -1
Cells(Target.Row, 3).RowHeight = 15
End If
If testhauteur = 1 Then
For ligne = 38 To 20 Step -1
If Cells(ligne, 1).RowHeight > 0 And Cells(ligne, 1).Value = "" And compte = 0 Then
Cells(ligne, 1).RowHeight = 0
compte = 1
End If
Next ligne
If ligne = 0 Then MsgBox "La facture dépasse 1 page"
End If
If testhauteur = -1 Then
For ligne = 38 To 20 Step -1
If Cells(ligne, 1).RowHeight = 0 And compte = 0 Then
Cells(ligne, 1).RowHeight = 15
compte = 1
End If
Next ligne
End If
End If
If Not Intersect(Target, Range("F20:H38")) Is Nothing And Target.Count = 1 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(255, 192, 0)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or annul = 1 Then annul = 0: Exit Sub
'Mettre en majuscule des cellules
If Target.Address = "$A$5" Then annul = 1: Cells(5, 1) = StrConv(Cells(5, 1), 1): Exit Sub
If Target.Address = "$A$13" Then annul = 1: Cells(13, 1) = StrConv(Cells(13, 1), 1): Exit Sub
If Target.Address = "$A$15" Then annul = 1: Cells(15, 1) = StrConv(Cells(15, 1), 1): Exit Sub
If Target.Address = "$G$14" Then annul = 1: Cells(14, 7) = StrConv(Cells(14, 7), 1): Exit Sub
'Mettre en majuscule la première lettre
If Not Intersect(Target, Range("C20:E38")) Is Nothing Then annul = 1: Target = UCase(Left(Target, 1)) & Mid(Target, 2): Exit Sub
annul = 0
End Sub

J'ai pas réussi à afficher le MsgBox (en rouge) lorsque ma facture dépasse une page.

Vous avez une idée?

 

[Eric C]

Re : Pas réussi à afficher le MsgBox

Bonjour le forum
Bonjour RONIBO

De souvenir (mais les versions ont bien évoluées donc ...) cela n'est pas faisable. Tu peux par contre passer par un UserForm et un Label.
Bon ouikand à toutes & à tous

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Bonjour Eric,

Merci pour ta réponse, Tu parle de Userform et de Label, Je vois pas (manque d'imagination) comment cela va fonctionner avec un userform

a+

 

[eriiic]

Re : Pas réussi à afficher le MsgBox

Bonjour,

            For ligne = 38 To 20 Step -1
                 ....
            Next ligne
            If ligne = 0 Then MsgBox "La facture dépasse 1 page"

comment veux-tu que ligne=0 avec un for qui s'arrête à 20 ?

Il faudrait que tu comptes le nombre de lignes avec Qté>0, et que tu aies une feuille avec plus de 19 lignes d'articles sinon tu restes sur 1 page.
Quelque chose m'échappe dans la logique de ta feuille.

eric

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Re,

Éric juste pour infos :

Lorsque une cellule dépasse les 75 caractères, la ligne s'élargie est passe à 30, ensuite pour ne pas que la facture dépasse la feuille, elle masque la ligne suivante (ou la dernière, je sais pas trop)

C'est un code préparer par un membre du forum, moi je connais la base du vba 🙁

 

[eriiic]

Re : Pas réussi à afficher le MsgBox

Tel que c'est écrit, ligne ne sera jamais égal à 0.
J'imagine plus qcq chose comme ça :

    For lig = 20 To 38
        nbLig = nbLig + Rows(r).RowHeight / 15
    Next lig
    If nbLig >= 19 Then MsgBox "La facture dépasse 1 page"

à mettre en fin de proc, après que tu aies réglé toutes les hauteur de ligne.

Mais si ton pb est l'impression, tu peux te servir de la mise en page pour qu'excel répartisse les lignes sur 1 ou 2 pages les numérotant et en répétant ton en-tête :

Regarde l'aperçu sur différents cas pour voir si ça te va.

Tu pourrais te servir aussi de la fonction de Laurent Longres pour avoir le n° de page de ta dernière cellule et forcer le saut de page à la ligne 40 :
Formule numero page : Forum Excel

eric

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Re,

Merci pour ton code Eric 🙂

Parfois ça m'arrive d'avoir des facture très longues (sur 2,3,4 voir 5 pages)

Je savais pas qu'on pouvait répéter les ligne à l'impression, tu m'apprends un truck 😉

Le problème est que je sais pas comment m'y prendre.

Moi je procéder comme ceci,

Je saisie ma facture, puis si je vois qu'elle dépasse la page, je recréer une nouvelle facture vierge et sur la dernière page j'additionne avec ma petite calculette les montant (Total Ht+TVA etc) puis le reporte sur la dernière page de ma facture

Je sais c'est vraiment nul à chier et je perds énormément de temps 🙁

Grâce à la répétition des ligne je pense avoir une bonne idée 🙂

Sinon toi tu aurais procédé comment, qu'est que tu aurais fait à ma place?

a+

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Re,

Voici la facture de mes rêves ^^

 

[eriiic]

Re : Pas réussi à afficher le MsgBox

Tu pourrais mettre autant de lignes que nécessaire.
Ajouter un filtre automatique sur A19:A155 (par exemple).
Avant d'imprimer tu filtres sur Qté 'supérieur à' 0 pour n'avoir que les lignes intéressantes.
Fait un aperçu avant impression du fichier joint pour voir les pages.

Cette partie pourrait être faite par macro dans Thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean).
Y ajouter un calcul de n° de page des cellules A156 et A162, et si elles sont différentes forcer un saut de page en 156 avec :
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=[A156]

Supprimer le filtre Qté>0 pour que toutes les lignes soient utilisables à nouveau.
Désolé mais je n'ai pas trop le temps de le faire, je suis plus dans les valises... ;-)

eric
PS: je viens seulement de voir ton dernier post. C'est très proche, il faut ajouter le n° de page dans une cellule avec la fonction de L Longres, et enlever celui que j'ai mis en bas de page.

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Re,

Merci Eric pour les infos et le fichier 🙂

Sur ton dernier post, tu parle de fonction de L Longres, c'est quoi exactement?

 

[eriiic]

Re : Pas réussi à afficher le MsgBox

Sur ton dernier post, tu parle de fonction de L Longres, c'est quoi exactement?

Du lien que je t'ai mis au post 6
eric

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Il se passe rien lorsque je mets le code...bizarre

 

[eriiic]

Re : Pas réussi à afficher le MsgBox

Il s'agit d'une fonction personnalisée en vba (faire recherche dessus) à mettre dans un module standard.
S'utilise ensuite sur une feuille comme une fonction d'excel (ou bien en vba).
Je suis désolé mais je ne vais pas pouvoir te guider plus pour cause de sable qui m'attend. Il va falloir que qcq'un d'autre prenne le relais si tu n'arrives pas à t'en sortir.

eric

 

[RONIBO]

Re : Pas réussi à afficher le MsgBox

Merci Eric pour ton aide 😉

Bon repos à toi 🙂

a bientôt

J'attends quelqu'un qui peut me donner un coup de main
a+