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

[walki]

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

 

[Jacky67]

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

Bonjour,
Comme ceci peut-être

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

 

[fanfan38]

Bonjour
Salut Jacky
Ci joint ma solution
Le fait d'utiliser des tableaux structurés les formules, mise en forme, etc... sont identique…

A+ François

 

[job75]

Bonjour walki, Jacky67, fanfan38,

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

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+

 

[cathodique]

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

 

[walki]

Bonjour walki, Jacky67, fanfan38,

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

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+

Merci à toi, c'est au top. C'est exactement ce que je voulais.

 

[walki]

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

Salut Cathodique,

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

Elle fait référence a quoi?

Merci

 

[cathodique]

Salut Cathodique,

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

Elle fait référence a quoi?

Merci

il fait référence au tableau structuré (ou table) qui se nomme TbClients.

 

[walki]

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

D'accord,
Merci a toi

 

[walki]

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

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?

 

[cathodique]

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?

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

Bonne soirée.

 

[walki]

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.

Au top, Merci beaucoup