Avec 1 bouton choisir 3 mots l'un après l'autre
#1
Régulier XLPages

Inscription: 26/05/2007

Messages: 44

Posté le : 09-11-2010 16h28

Bonjour,

Je souhaiterais avec 1 Bouton pouvoir choisir 3 mots, en trois clic.

Merci de votre aide



Pièce jointe:
xls Essai 3 mots.xls   [ Taille: 20.50 Ko - Téléchargements: 441 ]
Hors Ligne
Rapport   Haut 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 09-11-2010 23h09
Bonsoir Poppy,

Un petit essai en PJ, avec une simple toupie à la place d'un bouton.
Du coup ça ne correspond pas rigoureusement à ta demande, mais vois si cela peut te convenir malgré tout.

Bonne soirée,

Mth
Pièce jointe:
zip Essai 3 mots(1) .zip   [ Taille: 4.66 Ko - Téléchargements: 416 ]
Hors Ligne
Rapport   Haut 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre
#3
Régulier XLPages

Inscription: 26/05/2007

Messages: 44

Posté le : 10-11-2010 08h29
Bonjour,
Effectivement, je souhaitais avec un bouton.
 
J'ai besoin que ça n'aille que dans un sens vers le haut.
Et là je ne vois rien, je ne maitrise pas, je vois pas comment ça fonctionne.
Mais le principe est intéressant, je le garde de coté.
 Cordialement
Hors Ligne
Rapport   Haut 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 10-11-2010 19h31
Bonsoir Poppy, Mth,

Moi, j'aime bien la solution de Mth qui permet d'obtenir le traitement sans une seule ligne de code VBA (bravo !).

En pièce jointe, une proposition VBA comme tu sembles le souhaiter Poppy...

J'ai utilisé le simple code suivant lié au bouton que tu as dessiné sur la feuille :

DANS UN MODULE DE CODE STANDARD (ex: Module1)
Option Explicit

Sub Traitement()
Static N As Byte
    N = N + 1
    Sheets("Essai").Range("B4").Value = Sheets("Liste").Cells(1, 13 + N).Value
    If N > 2 Then N = 0
End Sub

Ce code tire partie d'une déclaration de variable en « Static » (voir l'article VBA et les variables pour comprendre l'intérêt des variables static).

En espérant que ça puisse t'aider...

Cordialement,
Pièce jointe:
zip PourPoppy.zip   [ Taille: 7.75 Ko - Téléchargements: 412 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre
#5
Régulier XLPages

Inscription: 26/05/2007

Messages: 44

Posté le : 11-11-2010 07h59
Bonjour,
Merci, c'est tout à fait ça.
La solution de Mth est bien, mais si j'ai l'intention de modifier l'emplacement, les noms... des données, je ne sais pas coment faire.
Merci de votre aide
Cordialement
Guy
Hors Ligne
Rapport   Haut 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre
#6
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 11-11-2010 14h35
Bonjour Poppy, myDearFriend

Juste au cas où tu souhaiterais utiliser la toupie dans un autre de tes fichiers, voici un peu plus d'explications:

Pour insérer une toupie, tu vas dans l'onglet Développeur et tu cliques sur le bouton "Insérer" comme ceci:
 

Ta toupie apparaît sur ta feuille.

Tu la sélectionnes, puis clic droit de la souris, dans le menu contextuel qui apparaît choisis "Format de contrôle".
La fenêtre des formats de contrôle s'affiche, sélectionnes l'onglet "Contrôle" comme ceci:
 


C'est ici que l'on règle les valeurs mini et maxi, en l'occurrence pour ton fichier de 1 à 4 puisque tu as 4 valeurs possibles à afficher.
Le pas est de 1 pour afficher toutes les valeurs les unes après les autres.
La cellule liée est ici C12, c'est à dire que C12 prendra successivement les valeurs 1, puis 2, puis 3 et enfin 4, à chaque clic vers le haut, ou inversement 4, 3, 2, 1 à chaque clic vers le  bas.
Si la cellule C12 contient 3, cela indiquera que l'on souhaite afficher la 3ème valeur de ton tableau. Si elle affiche 1, la 1ère valeur, etc.

Il suffit donc dans la cellule B4 de ton onglet "Essai" de mettre une formule qui aille chercher la 1ère, ou 2ème etc .. valeur de ton tableau, cette formule en B4 utilisant donc la valeur renvoyée par la cellule C12.

Dans ton fichier, j'ai utilisé la fonction DECALER():
=DECALER(Liste!L1;;Essai!C12;;)

J'aurais pu tout aussi bien utiliser INDEX():
=INDEX(Liste!M1:P1;;Essai!C12)

Voilà Poppy, j'espère que ces explications pourront t'aider en cas de besoin.

Bien à toi,

mth
Hors Ligne
Rapport   Haut 

Re: Avec 1 bouton choisir 3 mots l'un après l'autre
#7
Régulier XLPages

Inscription: 26/05/2007

Messages: 44

Posté le : 11-11-2010 15h21
Bonjour Mth,

Voilà Poppy, j'espère que ces explications pourront t'aider en cas de besoin.

Bien sûr que oui, tes explications me vont très bien et me sont très utile, j'en ferais bon usage.
Merci encore de ton aide.
Cordialement
Guy
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes