Supprimer traits horizontal

Bonjour,

Je reviens vers vous concernant un code que Banzai64 m'a crée, que je le remercie et le salut au passage

Private Sub TAjouter_Click()
'Déclarations des variables
Dim ligne As Long, n As Long
ActiveSheet.Unprotect
ligne = Selection.Row
Application.ScreenUpdating = False
For n = 1 To CInt(NombreLigne.Value)
Selection.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
Range("A" & ligne & ":I" & ligne).Copy
Rows(ligne + 1).RowHeight = 15
Range("A" & ligne + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G" & ligne).Copy Destination:=Range("G" & ligne + 1)
Range("I" & ligne).Copy Destination:=Range("I" & ligne + 1)
ligne = ligne + 1
Next
Range("TotalH.T.").FormulaR1C1 = "=SUM(R21C:R[-1]C)"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True
Unload Me
End Sub

Me permet d'insérer des lignes dans ma facture,

Mon problème et qu''à partir du moment ou j'insère une ligne vide dans la dernière ligne du tableau (ligne 21 ou 39) j'ai des trait horizontal qui apparaît.

J'aimerais supprimer ces traits lorsque j'insère de nouvelle lignes, peu importe d'où je l'insère

Merci beaucoup

Voici mon fichier :

Bonjour

Essaies en rajoutant la ligne surlignée

Range("G" & ligne).Copy Destination:=Range("G" & ligne + 1)
Range("I" & ligne).Copy Destination:=Range("I" & ligne + 1)
ligne = ligne + 1
Range("A" & ligne & ":I" & ligne).Borders(xlEdgeTop).LineStyle = xlNone
Next
Range("TotalH.T.").FormulaR1C1 = "=SUM(R21C:R[-1]C)"

Re,

Merci Banzai64

Je peux encore te déranger un petit petit?

J'ai crée un usf (ModifierClient) dans le bouton de commande "Ajouter un client"

Tu as un code à ta disposition, me permettant de modifier ou supprimer un client?

a+

bonjour Ronibo

tu trouvera une fois de plus un fichier client sur le classeur que tu a du télécharger

Pascal

Re,

Merci pour le fichier,

Moi je veux un truck beaucoup plus simple.

Voici un exemple (voir Usf "modification")

A+

Bonjour

A vérifier

Re,

Merci Banzai64

C'est exactement ce que je voulais, encore merci.

Cependant j'aimerais améliorer quelques petits trucks

A partir du moment ou je clic sur "Ajouter / Supprimer un client" dans le bouton de commande, fermer automatiquement l'USF "NouveauClient"

Pareil lorsque je clic sur "Mise à jour" et "Supprimer le client sélectionné" fermer automatiquement l'USF "ModifierClient"

A+

Bonsoir

Modifies ta macro

Private Sub TAjouterSupprimer_Click()
  Unload Me
  ModifierClient.Show
End Sub

Re,

Parfait !

Deux petites questions ?

Comment on fait pour mettre un point d'interrogation à cette phrase

  If MsgBox("Voulez-effacer l'enregistrement : " & Me.ComboBox1, vbExclamation + vbYesNo + vbDefaultButton2, _
            "Opération irréversible") <> vbYes Then Exit Sub

Exemple : Voulez-effacer l'enregistrement : Sarl Potier ?

deuxièmement, j'aimerais faire une petite modifs dans les textbox.

A+

Bonsoir

Là cela commence avec l'esthétique

  If MsgBox("Voulez-effacer l'enregistrement : " & Me.ComboBox1 & " ?", vbCritical + vbYesNo + vbDefaultButton2, _
            "Opération irréversible") <> vbYes Then Exit Sub

Crées autant de macro que nécessaire (change le nom du contrôle)

Juste un exemple pour le contrôle TNom

Private Sub TNom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  With Me.TNom
    If .Value <> "" Then
      .SelStart = 1
    End If
  End With
End Sub

Re,

Nickel

Merci beaucoup Banzai64

Tu aurais une idée à me proposer pour l'envoie d'un fichier PDF avec un message du genre.

Bonjour,

Vous trouverez ci-joint la facture n°(Nom du fichier) concernant le chantier (Cellule G14)

Cordialement.

J'utilise Hotmail

Qu'est tu peux me conseiller? quel logiciel utiliser?

a+

Bonsoir

Un conseil

Clos ce post

Ouvres un autre post avec ce problème

Pour enregistrer en PDF Excel 2007 le fait très bien

Ce qui est sur c'est que je n'y connais rien pour l'envoi de message (et en plus cela ne m’intéresse pas)

Re,

Ca marche

Merci beaucoup Banzai64

A+