Userform et Excel 2019 Mac

Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   -  
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je développe un formulaire pour gérer mes comptes. J'aurai voulu à travers un message box, ouvrir une liste déroulante (données renseignées dans un onglet data). Dans tous les forums que j'ai pu regardé, on dit qu'il faut utiliser des userforms. Problème est que les userforms ne sont pas disponibles sur ma version d'Excel (2019 pour MAC).
Comment faire autrement ?
En sachant que sur l'onglet actif, je vais cliquer sur un bouton "dépenses" et que je vais placer le curseur sur la premiere ligne disponible d'une colonne (j'ai déjà codé cela :-)) et que je voudrai avoir des valeurs génériques de dépenses (que j'ai renseigné dans l'onglet data) ou une saisie libre pour renseigner une valeur non présente dans le menu déroulant.

Merci pour votre aide et bonnes fetes de fin d'année.

Toz

Configuration: Macintosh / Chrome 87.0.4280.67
A voir également:

5 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
0
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention  
 
Merci @cs_Le_Pivert pour votre réponse.
Ok pour utiliser un tableau pour utiliser liste déroulante. Mais comment appeler ce tableau en vba pour aller ecrire dans une cellule selectionnée ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Faire Alt F11 pour accéder à l'éditeur. Sélectionner la feuille(en haut à gauche) où se trouve le menu déroulant et mettre ce code:

qui se déclenchera au double clic dans la cellule du menu déroulant (C2)
la cellule de reception est D1


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
Range("D1").Value = Target.Value
End If
End Sub


Voilà à adapter

@+ Le Pivert
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
0
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention  
 
Désolé je m'exprime mal et je met un imprim ecran de mon besoin :


Ma sub sous l'action du clic sur la touche dépenses fait au début :

Range("B5").Select
Range("B65536").End(xlUp).Offset(1).Select
et ceci pour aller chercher la premiere cellule vide en colonne B sous B5.
Et lorsqu'il a trouver cette cellule que le système me propose une liste déroulante pour renseigner le champ.

Alors oui je pourrai déjà mettre un champs validation des données dans toute la colonne par défaut mais pour le fun je voudrai ceci interactif comme dans des logiciels de pro :-)
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
0
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
Merci je vais continuer mes recherches
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pijaku pour ta réponse.
Ce principe à l'air bien sauf que dès le début quand je fais clic droit sur un onglet comme dans le lien décrit, je ne peux qu'insérer une nouvelle feuille et non pas de boite de dialogue :-(
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Donc cette possibilité n'est pas disponible sur Mac.....
0
Tozinho64 Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   > pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention  
 
Merci je vais continuer mes recherches
Toz
0