Plusieurs demandes

Bonjour le forum,

Actuellement je suis entrain de terminer mon modèle de facture, c'est pour cela que je n'arrête pas de vous embêter avec.

1 ===> Tout d'abord ça concerne le bouton l'insertion de ligne,

Lorsque j'insère une ligne, il ne met pas les trait vertical, puis me reporte pas les formule de la colonne "G" (Total HT) et "I" (Avancement cumulés)

Le textbox ne fonctionne plus (permet de choisir le nombre de ligne à ajouter)

2 ====> J'ai intégré ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Mettre en couleur des cellules
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 27
End With
End Sub

Qui permet de colorer des cellules. (surligneur)

J'aimerais m'en servir que sur cette partie

Concerne que pour le grand tableau du milieu, lorsque je clique sur une des cellules qui se trouve au dessus ou en dessous, j'aimerais qu'il disparaisse, cela évitera qu'il apparaisse tout le temps même durant l'impression

Si possible d'arrêter le surligneur à la colonne "I" du tableau

3 ===> Lorsque je saisie du texte, j'aimerais mettre en majuscule la première lettre automatiquement (faire ceci que pour la colonne désignation)

Je vous en prie aidez moi à finir ce modèle car depuis des semaine je suis dessus, et je commence à être fatigué

Bonsoir

A vérifier

Bonsoir banzai64,

Merci, je regarde de suite

Je viens de regarder,

Mon problème de surligneur est résolu.

Problème d'insertion de ligne résolu.

Manque plus qu'à avoir la première lettre en majuscule (pour la colonne désignation)

Merci encore pour ton aide banzai64

a+

re,

J'ai trouvé ça mais je n'arrive pas à l'intégrer

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Z = Target.Value
Target.Value = UCase(Left(Z, 1)) & Right(Z, Len(Z) - 1)
End If
End Sub

Si tu peux jeter un œil stp, merci

a+

Bonsoir

Désolé j'avais zappé le point 3

A vérifier

Pas de souci banzai64

Je test et je reviens

J'ai rencontré un petit souci, lorsque j'insére des lignes, dans la cellule "Total HT" (vers le bas de la facture) il ne tiens pas compte des ligne ajoutées

Il reste sur :

=SOMME(I21:I39)

Tu as une solution à ce problème ?

Bonjour

A vérifier

Re

Je test et je reviens

re,

ça à l'air de bien fonctionner, pas encore testé en approfondi, MERCIII

j´aurais encore un service à te demander (désolé)

J'aimerais pouvoir ajuster la hauteur des lignes (colonnes désignation)

j'ai trouvé un code sympa, si tu peux l'intégrer stp

For Each cel In ActiveSheet.UsedRange
  If cel <> "" Then
    Set m = cel.MergeArea
    m.UnMerge
    m.WrapText = True 'renvoie à la ligne
    m.HorizontalAlignment = xlCenterAcrossSelection
    m.Rows.AutoFit
    m.Merge
    m.HorizontalAlignment = xlGeneral 'facultatif bien sûr
  End If
Next
End Sub

Je mets la version final, comme ça on évite de tout mélanger

Bonjour

Ronibo a écrit :

J'aimerais pouvoir ajuster la hauteur des lignes (colonnes désignation)

Dans ton esprit ce veut dire quoi ?

Et dans quel cas ?

On peut seulement faire juste après l'insertion de lignes

Range("NomPropre").Resize(Range("Nompropre").Rows.Count - 1).EntireRow.RowHeight = 15"

en faite dans la colonne désignation, lorsque je saisie une texte trop long, j'aimerais qu'il me règle la hauteur de la ligne automatiquement

Bonjour

A tester

Je test de suite

Une question : j'ai mis un calendrier dans G11

Pourquoi il m'affiche toujours le mois de juillet et non le mois en cours?

Bonjour

Et c'est la dernière question

Ensuite tu les regroupes et tu postes un message pour l'ensemble

Dans le module de l'userform rajoutes

Private Sub UserForm_Initialize()
  Me.MonthView1 = Date
End Sub

Merci pour le code,

avant d'en finir pour aujourd'hui, j'ai rencontré un petit problème concernant l'ajustement des lignes (réglages des hauteurs)

Disons que sur la derrière ligne de la colonne (désignation) je saisie un texte à deux lignes, (long)

Lorsque j'insère une prochaine ligne, il m'insère une ligne de la même taille ajusté précédemment (une ligne large)

Je regroupe tout dans quelque minute

Bonjour le forum

Bonjour Banzai64

Voici la liste des petites correction à faire :

1 ===> Possibilité de faire des saisies en majuscule dans la colonne Désignation (C'est pour les sous titre que je vais mettre en majuscule) en plus des saisies avec la première lettre en majuscule.

Possibilité de faire les deux en même temps

2 ===>Dans la colonne "désignation" je suis bloqué à 255 caractères, après j'ai une erreur comme : #VALEUR!

Si possible corriger ce problème

3 ===> J'aimerais qu'il me réduit automatiquement la hauteur des lignes lorsque je supprime du texte dans les cellules de la colonne "Désignation".

(Exemple : je supprime le texte a 3 lignes, une fois supprimé, réajustement de la hauteur, en la mettant a normal (15)

4 ===> Le problème évoqué hier,

Disons que sur la derrière ligne de la colonne (désignation) je saisie un texte à deux lignes, (long)

Lorsque j'insère une prochaine ligne, il m'insère une ligne de la même taille ajusté précédemment (une ligne large), je veux qu'il me met des lignes simple (hauteur à 15)

5 ===> Concernant l'usf (Modifier le taux de TVA)

Permet de modifier le taux de tva, des cellules G41 et C43, le problème est que pour la cellule C43 j'aimerais qu'il me mette que le taux (19.6, sans le signe pourcentage ) au lieu de "T.V.A. 19.6 %"

Exemple sur un taux à 35.5 %

Pour la cellule G41 : T.V.A. 35.5 %

Pour la cellule C43 : 35.5

Pour la cellule I41, j'aurais besoin d'une petite formule, comme ceci :

=I40*(DROITE(G41;(NBCAR(G41)-10)))

Permettant de calculer la tva dont le taux se trouve dans une cellule avec le texte.

Je mets la nouvelle version de mon fichier, avec toutes les modifs effectuées jusqu'à présent

Si tu peux travailler sur ce fichier stp

Merci pour tout banzai64

a+

Bonjour

A vérifier

Re,

Merci pour le fichier Banzai64

Tout est comme je le veux (pour le moment car pas encore testé à 100%)

Deux petits points à corriger (après je te laisse tranquille)

Dans usf Modifier un taux de TVA,

Lorsque je l'ouvre, ne pas garder en mémoire le taux saisie en textbox.

J'ai crée un bouton qui permet d'imprimer le fichier en pdf.

Sub ImpressionPDF()
'Imprimer un document en PDF
Application.ActivePrinter = "Bullzip PDF Printer sur Ne04:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""Bullzip PDF Printer sur Ne04:"",,TRUE,,FALSE)"
End Sub

J'utilise : BullZip PDF Printer

J'aimerais intégrer ceci dans le macro qui se trouve au dessus

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveAsUI = False
Cancel = True
With Worksheets("Akisti Bat")
Select Case Left(.Range("H10"), 1)
Case "B": Chemin = "E:\Mes Documents\Société\Picard Bat\Devis - Facture\Bon de Commande/"
Case "D": Chemin = "E:\Mes Documents\Société\Picard Bat\Devis - Facture\Devis\"
Case "F": Chemin = "E:\Mes Documents\Société\Picard Bat\Devis - Facture\Facture\"
End Select
MyFile = Chemin & .Range("H10") & .Range("I10") & Chr(160) & "-" & Chr(160) & .Range("A12") & Chr(160) & "(" & .Range("G14") & ")" & ".xlsm"
End With
Application.EnableEvents = False
Me.SaveAs MyFile
Application.EnableEvents = True
MsgBox "La facture ou le devis a bien été enregistrée !"
End Sub

Ca me permettra avant impression en PDF de nommer le document automatiquement

ex : Facture N°001 - EXCEL (PARIS XXÈME).pdf

J'aurais pas besoin de nommer le fichier PDF que je crée.

Si tu peux travailler sur ce fichier a m'arrangera

Bonjour

Je ne regarde pas ton fichier

Avec 2007 il y a possibilité de sauver directement en PDF mais je sais pas le faire, si quelqu'un veut bien te renseigner

Pour ne pas garder en mémoire l'ancien taux modifies la partie surlignée dans le module de l'userform

Private Sub TModifier_Click()
  ActiveSheet.Unprotect
  Range("TauxT.V.A.") = "T.V.A. " & Taux & " %"
  Range("TauxTVA") = Val(Replace(Me.Taux, ",", "."))

  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                      AllowFormattingCells:=True, AllowFormattingRows:=True
  'Me.Hide
  Unload Me
End Sub

re,

Merci Banzai64 pour tout s'que tu as fait pour moi

a+