XL 2016 menu qui remplis mon tableau exel

H

hemera00

XLDnaute Nouveau

• 26 Novembre 2024

• #2

Mise à jour

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

 

Pièces jointes

• Saisie du mobilier entrant.xlsx

  72 KB · Affichages: 8

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 26 Novembre 2024

• #3

hemera00 à dit:

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.

Cliquez pour agrandir...

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

 

Pièces jointes

• Saisie du mobilier entrant.xlsm

  102.8 KB · Affichages: 3

Vote positif 0 Vote négatif

H

hemera00

XLDnaute Nouveau

• 27 Novembre 2024

• #4

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

 

Pièces jointes

• Saisie du mobilier entrant.xlsm

  83.6 KB · Affichages: 2

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Novembre 2024

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2024

• #6

Bonjour le forum,

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

VB:

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+

 

Pièces jointes

• Saisie du mobilier entrant.xlsm

  79.7 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

H

hemera00

XLDnaute Nouveau

• 27 Novembre 2024

• #7

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.

 

Vote positif 0 Vote négatif

H

hemera00

XLDnaute Nouveau

• 27 Novembre 2024

• #8

super job 75 ! merci beaucoup

 

Vote positif 0 Vote négatif