Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Création d'un bouton

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jalaba

XLDnaute Nouveau
Bonjour,
J'aimerais crée un bouton permetant de crée une nouvelle fiche et que cette fiche ce nome automatiquement comme la précédente +1. je n'arrive pas a faire la macro pour ces actions.
Merci
 

Pièces jointes

Trier par date Trier par votes
Bonjour,
J'ai effectuer la manipulation mais ça ne fonctionne pas ou j'ai du mal faire (excel se ferme avec memssage d'erreur) j'utilise un mac est ce que ça peut avoir une incidence ?
 
Vote positif 0 Vote négatif
Re
jalaba à dit:
j'utilise un mac est ce que ça peut avoir une incidence ?
Cliquez pour agrandir...
Hé oui, pas de chance avec le mac pas de ListView ni de Dictionnaire, se sont des ressources Windows : j'ai tout faux !!!

Pour le dictionnaire on peut s'en sortir avec une collection, pour la listview on devrait y arriver avec une ComboBox à 15 colonnes, je regarde cela, mais si tu trouves un PC pour essayer cette version, peux-tu me faire un retour en attendant.

À bientôt
 
Vote positif 0 Vote négatif
je vais ressortir mon vieux ordinateur windows et voir ce que ça donne merci
 
Vote positif 0 Vote négatif
jalaba à dit:
je vais ressortir mon vieux ordinateur windows et voir ce que ça donne merci
Cliquez pour agrandir...

Bonjour,
Merci pour le fichier mac mais toujour un message d'erreur (Private Sub LVw_BdD_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
En revanche j'ai tester sur mon pc windows ça fonctionne.
encore merci
 
Vote positif 0 Vote négatif
Bonjour il y a toujours un bug je ne comprend pas ce qui ne vas pas je vous remerci pour votre aide
Sub Voir_Fiche()
UsF_FNC.Show (ici le bug)
ThisWorkbook.Close
End Sub
Function EstDansCollection(MaCollection As Object, Item As String) As Boolean
Dim obj
obj = Empty
On Error Resume Next
obj = IsError(MaCollection(Item))
On Error GoTo 0
EstDansCollection = Not IsEmpty(obj)
End Function
 
Vote positif 0 Vote négatif
Re,
Ouvre le fichier,
stoppe le débogage après le bug
et dans VBA Outils, Références, décoche les deux références manquantes que j'ai oublié de décocher, dis moi si c'est mieux après cela.
Pour moi difficile de déboguer je n'ai pas de MAC !
À bientôt
 
Vote positif 0 Vote négatif
J'ai essayer mais sans sucés je vais tanté avec windows merci beaucoup pour votre contribution
 
Vote positif 0 Vote négatif
jalaba à dit:
J'ai essayer mais sans sucés je vais tanté avec windows merci beaucoup pour votre contribution
Cliquez pour agrandir...
Re,
Stoppe le debogage, va sur la procédure d'initialisation mets un stop à la première instruction
Et lance l'exécution avec la petite flèche dans le menu, et fais progresser pas à pas pour trouver l'instruction qui plante.
Tiens moi au courant...
À bientôt
PS je suis sur mon téléphone, difficile d'être plus précis
 
Vote positif 0 Vote négatif
Bonsoir à toutes & à tous, bonsoir @jalaba
Par acquis de conscience j'ai revérifié mon code et il y avait encore des résidus de code propres à WINDOWS qui avaient toutes les raisons de faire planter ton MAC. (en particulier l'appel à des fonctions de la DLL USER32)

J'espère que cette fois-ci est la bonne, voir la pièce jointe.
Au jeu de tentative-échec-correction on va quand même bien finir par y arriver 😅

À bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Merci beaucoup cette version fonctionne parfaitement juste un message d'erreur lors de l'enregistrement (probleme raw source tsDB et une petite question plutôt bete comment faire démarré la fiche à 1 j'ai vu que des fiche test ont été crée (normale 🙂
Et comment incrémenté les liste de données.
encore merci
.
Else
ColFNC.Add .Value2, FNC, Idx
End If
End With

Me.LBx_BdD.RowSource = "TS_BdD"(le bug ce trouve ici)
RàZFiche
LireItem Idx - 1
GénérerPDF
Sauvegarder = True
Application.ScreenUpdating = True
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à toutes & à tous, bonjour @jalaba.
2h55 ! Tu joues les noctambules !
Peux-tu m'envoyer une capture d'écran du bug avec le message.
Pour le reste, j'ai volontairement associé le bouton quitter à l'enregistrement du fichier et à sa fermeture (en exploitation un seul clic pour tout faire, c'est peut-être plus pratique)
Je t'envoie une version sans la fermeture du fichier, tu pourras faire des modifications.
2 feuilles sont masquées la BDD et celle des Tables tu pourras les afficher. Pour voir leur contenu.
Pour redémarrer à un il faut effacer la 1ère ligne du Tableau Structuré "TS_BdD" et supprimer les suivantes (clic droit Supprimer, Supprimer lignes du tableau).

Je fais ça tout à l'heure, envoie moi le bug, là je suis sur mon téléphone

À plus
 
Vote positif 0 Vote négatif
Re,
Voici une version modifiée, sans fermeture du classeur lorsque l'on clique sur le bouton "Quitter" du formulaire.
Sur la feuille "BdD" (qu'il faut afficher ) il y a un bouton "Vider la BdD" qui réinitialise le Tableau Structuré "TS_BdD".

Pour le bug, en attendant ta capture d'écran, je soupçonne une message du type "impossible de modifier la propriété RowSource" que j'ai déjà rencontré dans une très ancienne version d'Excel.

Dans le fichier joint j'ai tenté une légère modification : la RowSource n'ai plus définie via le tableau des propriétés mais dans la sub Initialize du formulaire, pour voir si ce détail change quelque chose.
Si cela ne fonctionne pas, il restera le chargement via la propriété List, mais dans ce cas on perdra les entêtes de colonnes ...

À bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
119
ChTi160
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
102
Titof06
S
  • Question Question
XL 2016 Colorier dans un planning selon des dates
Réponses
2
Affichages
171
sousou
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
133
matlatarte
M
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
142
AlineJ
A
H
  • Question Question
Microsoft 365 Création application excel
Réponses
5
Affichages
267
Lolote83
L
  • Question Question
XL 2019 texte vide et bordure bouton masquer vba
2 3 4
Réponses
46
Affichages
909
AtTheOne
M
  • Question Question
Microsoft 365 Remplacer une chaine de caractère d'un code VBA par un autre code VBA
Réponses
9
Affichages
193
patricktoulon
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
144
sylvanu
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
  • Question Question
XL 2019 texte et bordure bouton vba
2 3 4
Réponses
56
Affichages
2 K
AtTheOne
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
975
Rheeem
R
M
  • Résolu(e)
XL 2016 creation d'un logicile de facturation
Réponses
3
Affichages
218
MALKO
M
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
598
DELHOMME
D
  • Résolu(e)
XL 2016 Recherche Youtube
Réponses
2
Affichages
114
halecs93
M
  • Résolu(e)
Microsoft 365 Bouton d'actualisation
2
Réponses
15
Affichages
394
Melio_051651
M
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
230
GALOUGALOU
M
  • Question Question
Microsoft 365 [RESOLU] Enregistrer avec un nouveau nom sans macro et sans le bouton
Réponses
2
Affichages
162
Marboi
M
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
423
Musbek
M
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
189
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…