Résultats de la recherche

Salut avec un Module de clasee plus intéressant avec une multitude de boutons

Salut Une autre proposition avec l'utilisation du clavier virtuel de Windows …

Re Pour l'avoir expérimenté à mes dépends : «il est vrai que lorsqu'on saute à la corde, les risques d'égratignure ne sont pas à écartés (surtout dans certains ring) ! ».;) Je suis désolé de t'avoir chagriné, ce n'était mon intention. M'étant intéressé à ton sujet, j'ai essayé de voir non...

re Voic, pour les 0, un exemple dans la fenêtre de codes d'un onglet (à adapter pour les autres). L'onglet Boule étant affiché (Alt F11), sachant que la plage E5:I9 est nommée T_Boule, la macro permettant de cacher une ligne, à la saisie de 2 zéros en colonne 3 et 4 de celle-ci, peut être...

Re Une fois de plus, je donne un exemple de simplification de programmation. Ce n'est pas une astuce mais l'utilisation d'un évènement on ne peut plus basique, que tout programmeurd'un niveau moyen se devrait de connaître. Je ne me sens pas l'envie de tripoter des codes qui me semblent...

re pour cacher des onglets à l'ouverture, dans ThisWorBook Private Sub Workbook_Open() Dim sh As Worksheet For Each sh In Sheets sh.Visible = sh.Name = "Accueil" Next End Sub On peut aussi les cacher sans qu'il ne soit possible de les afficher hors VBA (.Visible=2) Attention, on peut...

Salut Jaques, tu as raison d'insister sur une non sélection d'item de la liste. :) Cela peut aussi se faire simplement *avec la propriété .Clear avant sa ré-initialistion. Private Sub ComboBox1_click() Dim Tbl(): n = 0 ListBox1.Clear 'pas d'item sélectionné ensuite For i = 1 To...

Salut Il te faut, aussi, construire les macros dans un module standard en faisant attention à leur dénomination.

Re Merci pour ton retour. :) Je précise quand même, que mes propositions s'adressent à tous les demandeurs qui seraient intéressés. Bon courage pour la suite de ton projet...

Salut Je préfère réduire au maximum le nombre de contrôles. Avec 2 listes nommées L1 et L2 : Private Sub UserForm_Activate() L1.List = Array("1 utilisateur", "tous les utilisateurs") L2.List = Array("une qualité Full", "une qualité Light") End Sub Private Sub Label1_Click() If...

Bonsoir Toujours ce problème de portabilité ; ma version d'Excel 2010, ne reconnait pas le contôle Calendar !

Bonsoir Tiré de mon chapeau...;) Avec un Tableau, on a simplement : Dim R As Range, D Private Sub UserForm_Initialize() Set D = CreateObject("scripting.dictionary") For Each R In [BD[N°]]: D(R.Value) = "": Next ComboBox1.List = D.keys End Sub Private Sub ComboBox1_click() If...

Salut Simple question : quel est l'intérêt d'utiliser un tel type de contrôle* quand on a déjà sous les yeux le tableau ? Je pense que le formulaire peut intervenir, non pas quand on a une quantité énorme de lignes, mais plutôt quand on a beaucoup de colonnes non visibles à son écran. *le...

re Tu n'as pas à l'être. Je propose et … tu disposes ! Merci pour le retour. Je laisse le soin à vgendron de reprendre sa proposition ;).

Salut autre exemple avec un Tableau (qu'on peut déplacer, compléter à souhait)

Re Je l'ai déjà conseillé, malheureusement sans trop de suivi : la fenêtre des propriétés permet d'éviter des lignes de programmation pour les données qui ne sont pas susceptibles de varier. en voici une application pour aider à mettre les doigts (surtout les gros) où il le faut.

Re Voici une version avec un seul formulaire mais avec un contrôle Multipage*. Bien entendu, comme pour tout projet, une bonne préparation est indispensable ! Ne serait-ce que pour simplifier la programmation des macros. *Ici, voir le nom des boutons (gérés par un module de classe). J'ai...

Salut Pour ne pas te laisser seul à prendre ce plaisir : à décompresser (2 exemples avec les fichiers dans le même dossier). J'ai mis des .mid pour alléger le fichier joint tout en donnant des listes non réduites.

Salut On peut toujours proposer sa version sans tenir compte du projet global mais combien de formulaires, de boutons faudra-t-il créer avec 50, 1000 … lignes de données ? Peut-on s'éviter de se fatiguer à cause d'une surdose ? mapomme a déjà proposé un remède ;). Pour tout problème de...

Re Salut Job, pour une macro, avec un bouton bascule nommé T Sub T_Click() Selection.WrapText = T: Selection.RowHeight = 15 'ou autre End Sub Salut Viard, tu dois avoir un grand, grand écran pour lire tes textes, non ? ;)