Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données

walki à dit:

Bonjour à tous,

Je bloque sur le code a rentrer afin qu'une ligne s'insère automatiquement dans mon tableau avec la même mise en forme client après avoir valider mes donner via ma boite de dialogue.

Je vous joint le fichier.

Si quelqu'un peut m'aider SVP.

Merci beaucoup

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
    With Sheets("Client")
        .Select
        derligne = .Range("A999999").End(xlUp).Row + 1
        .Cells(derligne, 1) = saisie.civilité
        .Cells(derligne, 2) = saisie.Prenom
        .Cells(derligne, 3) = saisie.nom
        .Cells(derligne, 4) = saisie.Numéro_rue
        .Cells(derligne, 5) = saisie.Rue
        .Cells(derligne, 6) = saisie.Complement
        .Cells(derligne, 7) = saisie.CP
        .Cells(derligne, 8) = ville
        .Cells(derligne, 9) = saisie.mail
        .Cells(derligne, 10) = source
        .[a5:j5].Copy
        .Cells(derligne, 1).PasteSpecial Paste:=xlPasteFormats
        .Cells(derligne + 1, 1).Activate
    End With
    Application.CutCopyMode = False
 
    saisie.civilité = ""
    saisie.Prenom = ""
    saisie.nom = ""
    saisie.Numéro_rue = ""
    saisie.Rue = ""
    saisie.Complement = ""
    saisie.CP = ""
    saisie.ville = ""
    saisie.mail = ""
    saisie.source = ""
End Sub

job75 à dit:

Bonjour walki, Jacky67, fanfan38,

Bah au post #1 les cellules A5 et A6 ne sont pas vides mais contiennent le texte vide "" donc utilisez :

VB:

Private Sub CommandButton1_Click()
    Dim a, derligne&, i
    a = Array("civilité", "Prenom", "nom", "Numéro_rue", "Rue", "Complement", "CP", "ville", "mail", "source")
    With Sheets("Client")
        derligne = .Range("A4:A999999").Find("", , xlValues).Row
        For i = 0 To UBound(a)
            .Cells(derligne, i + 1) = Controls(a(i))
            Controls(a(i)) = ""
        Next
        .Cells(derligne, 1).Resize(, i).Borders.Weight = xlThin
    End With
End Sub

A+

Cliquez pour agrandir...

cathodique à dit:

Bonjour @walki , @Jacky67 , @fanfan38 ,

Avec la même idée que fanfan38. Un tableau structuré mais en utilisant l'ajout d'une ligne.

edit: @job75 bonjour

Cliquez pour agrandir...

walki à dit:

Salut Cathodique,

Je ne comprend pas la ligne "With Range("TbClients").ListObject"...

Elle fait référence a quoi?

Merci

Cliquez pour agrandir...

cathodique à dit:

il fait référence au tableau structuré (ou table) qui se nomme TbClients.
Regarde la pièce jointe 1217557

Cliquez pour agrandir...

cathodique à dit:

il fait référence au tableau structuré (ou table) qui se nomme TbClients.
Regarde la pièce jointe 1217557

Cliquez pour agrandir...

walki à dit:

l'adresse mail ne se rentre pas dans le tableau.
La couleur verte de l'en tete du tableau ne peut pas etre changée?

Cliquez pour agrandir...

cathodique à dit:

Il y avait en effet un problème lorsque le tableau est vide. code corrigé.
Pour modifier la couleur suivre la démo.
Regarde la pièce jointe 1217559

Bonne soirée.

Cliquez pour agrandir...