XL 2016 menu qui remplis mon tableau exel

[hemera00]

Bonjour,

Voilà, j’aimerais avoir un menu sur mon Exel qui me permettrait de remplir mon exel plus facilement et
plus esthétique.

Quelque chose de simple sur la 1ère page : des case à remplir et un « OK » de validation qui envoi sa sur le tableau onglet suivant.

Si on peut m’aider à faire ça ou me donner des conseils.

Merci beaucoup.

 

[hemera00]

Mise à jour

Voilà où j’en suis. sa sera pe etre plus claire j ai juste des erreur dans mais boutons

 

[Gégé-45550]

Bonjour,

Voilà, j’aimerais avoir un menu sur mon Exel qui me permettrait de remplir mon exel plus facilement et
plus esthétique.

Quelque chose de simple sur la 1ère page : des case à remplir et un « OK » de validation qui envoi sa sur le tableau onglet suivant.

Si on peut m’aider à faire ça ou me donner des conseils.

Merci beaucoup.

Bonsoir,
Voir proposition en PJ.
N'oubliez pas de valider les macros.
Cordialement,

 

[hemera00]

Bonjour, Voilà où j’en suis.

La fonction supprimer c'est bon.
Je suis juste en difficulté avec les fonctions report dans le tableau avec le bouton sauvegarder.
et le + qui permet d’ajouter 1 mobilier à la liste.

si quel qu un pourrais me dire comment les faire fonctionne correctement merci

 

[Phil69970]

Bonjour à tous

@hemera00

Sert toi tu fichier de Gégé il est complet et fonctionnel comme tu t'y prends tu vas galérer un moment avant d'y arriver.

Pour info :
- En présence d'un TS on écrit le code VBA pour un TS
- En principe on ne met jamais les TS les uns en dessous des autres mais les uns à coté des autres
- Il n'y a JAMAIS de ligne vide dans un TS

Bonne lecture

 

[job75]

Bonjour le forum,

Voyez le fichier .xlsm joint et cette macro affectée au bouton :

Sub Sauvegarder()
Dim r As Range, n&
Set r = Sheets("Ajouter").[C18:K18]
If Application.CountA(r) = 0 Then Exit Sub
With Sheets("Mobilier livraison 2025").ListObjects(1).Range
    n = IIf(Application.CountA(.Rows(2)), .Rows.Count + 1, 2)
    .Rows(n).Resize(, r.Count) = r.Value 'copie les valeurs
    Application.Goto .Cells(n, 1) 'facultatif
End With
r = "" 'RAZ
End Sub

Bien voir que dans le tableau de destination :

- j'ai supprimé les lignes vides

- en colonne H j'ai supprimé les listes de validation.

A+

 

[hemera00]

Merci pour ses conseils, je modifie ça de suite.

Comme je l’avais déjà écrit, merci à Gégé pour le temps passé (sa s’était effacer en voulant mettre à jour mon fichier).

Mais c’est trop complet. Je veux vraiment juste faire fonctionner mon bouton et je vais essayer de me servir de son code pour cela.

Merci à vous 2.

 

[hemera00]

super job 75 ! merci beaucoup