XL pour MAC Formulaire ajout en derniere ligne

christophe43333333

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • c2f.xlsm
    205.8 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Christophe, et bienvenu sur XLD
Un essai en PJ avec :
VB:
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
 

Pièces jointes

  • c2f V2.xlsm
    213.6 KB · Affichages: 1
Dernière édition:

christophe43333333

XLDnaute Nouveau
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é
 

Discussions similaires

Réponses
3
Affichages
470
Réponses
13
Affichages
240
Réponses
12
Affichages
154

Statistiques des forums

Discussions
313 320
Messages
2 097 137
Membres
106 848
dernier inscrit
toufk