XL pour MAC Formulaire ajout en derniere ligne

[christophe43333333]

Bonjour a tous,

j'ai besoin de votre aide si possible, voila quelques jours que je galere sur ce fichier.

J 'ai une liste ingredient ou je souhaite en rajouter par un formulaire mais à la derniere ligne vide de la colonne A

est ce que c'est possible ?

 

[sylvanu]

Bonjour Christophe, et bienvenu sur XLD
Un essai en PJ avec :

Sub enregistrer()
    Dim T, L, Buffer
    If [C7] = "" Then Exit Sub                                          ' Pas de Ref
    T = [C6:C15]                                                        ' Tranfert données dans array
    Buffer = T(1, 1): T(1, 1) = T(2, 1): T(2, 1) = Buffer               ' Inversion Ref/Produit
    With Sheets("Hoja1")
        L = 1 + .[A65500].End(xlUp).Row                                 ' Ligne où écrire
        .Cells(L, "A").Resize(1, 10).Value = Application.Transpose(T)   ' Transfert array dans cette ligne
    End With
End Sub

 

[christophe43333333]

c'est super sympa !!!!!! mille merci
j'aimerai dire que j'ai compris la formule mais non!!!!!!
j'essaie de modifier les formules que je trouve a droite ou a gauche et des fois c 'est plus compliqué

Serait il possible de completer la formule pour que le tableau s'efface apres avoir ete validé

 

[sylvanu]

Il suffit de rajouter à la fin :

[C6:C15].ClearContents

 

[christophe43333333]

merci mille fois !!!!!!!!!!!!!!!!!

 

[christophe43333333]

j'insite encore !!!!!!!! merci beaucoup pour ton aide