Re: selection aléatoire
#11
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 18-01-2009 11h18
bonjour a tous
bonjour JCGL et jean marie

je vous evoi le fichier que je suis en trein de créer avec votre aide pour ma femme,car depuis hier elle l'a vut et ma demander une variation t'utilisation,je m'excuse aupré de vous deux mais cela ma toujours apris encore une fois des chose que j'ignorer,merci.

alors voila le fonctionnement qu'elle désirerait, sur la feuille1 dans les case de droite a l'aide de la liste déroulante elle selectionne ces plats corespondant a des colonne de condiments dans la feuille 2, un par ligne,ensuite en cliquant sur un bouton sa me selectionne dans la colonne du plats choisie un condiment aléatoirement ainsi que sa valeur de points corespondante.pour ensuite me l'inscrire dans leurs case respective de la feuille1.
merci d'avance et encore toute mes excuses a JCGL et jean marie

 
Pièce jointe:
xls menus def.xls   [ Taille: 48.50 Ko - Téléchargements: 576 ]
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#12
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 18-01-2009 15h41
Bonjour à tous,

On peut dire que vous êtes changeant dans la famille...
C'est un juste trait dh'umour, à prendre comme tel...

Il n'y a plus rien d'aléatoire...

Jette un oeil pour voir si cela te (vous) convient

A+
Pièce jointe:
zip JC Menus DEF.zip   [ Taille: 9.24 Ko - Téléchargements: 593 ]


Cordialement
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#13
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 18-01-2009 18h40
rebonjour a tous

merci JCGL et oui c pas simple tout les jour (humour aussi)

je on voudrais si 'c'était possible choisir les debut de colonne dans la liste déroulante de la premiere case, on remplit par exemple les 4 ou5 premiere ensuite en cliquant sur un botons(créer un menu),sa va choisir aléatoirement un ingrédient dans la colonne nomer dans la premiére case pour l'inscrire ainsi que son nombre de point corespondant dans la seconde case pour l'aliment et dans la troisiéme pour le nombre de point.

je t'envoi la derniére version du projet peut etre plus clair.

en te remerciant
Pièce jointe:
xls menus def2.xls   [ Taille: 52.00 Ko - Téléchargements: 662 ]
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#14
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 18-01-2009 21h32
Bonsoir

Code à copier dans un module
Option Explicit

Sub AlimentRnd()
Dim I As Byte
Dim Ind1 As Byte
Dim Ind2 As Byte
Dim LimS As Byte

'Efface les données précédentes
Range("E5:M29").ClearContents

With Sheets("Feuil1")
   'Boucle sur les lignes par pas de 2
   For I = 5 To 29 Step 2
      If .Cells(I, 2) <> "" Then
         'Un choix a été fait dans la cellule Bi
         'Recherche la position de la catégorie dans la feuil2
         Ind1 = Application.Match(.Cells(I, 2), Sheets("Feuil2").Range("1:1"), 0)
         'Détermine la derniére ligne contenant un Aliement suivant la catégorie
         LimS = Sheets("Feuil2").Cells(65536, Ind1).End(xlUp).Row - 1
         'Ligne aléatoire
         Ind2 = Int((LimS * Rnd) + 2)
         'Bascule les données de la ligne vers le taleau
         .Range("E" & I) = Sheets("Feuil2").Cells(Ind2, Ind1)
         .Range("M" & I) = Sheets("Feuil2").Cells(Ind2, Ind1 + 1)
      End If
   Next I
End With
End Sub

  
@+Jean-Marie 

Edité par JeanMarie le 19/01/2009 07:12:14
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#15
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-01-2009 10h15
bonjour a tous
bonjour jean marie

je vais essayer ton code tout de suite enespérant ne pas faire d'erreur.

merci beaucoup
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#16
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-01-2009 10h56
rebonjour
re jean marie
 bien sur j'ai des petit souci

.comment je doit faire pour actionner la macro

.est ce que je doit tenir conte du premier code que tu m'avait fait qui se trouve plus haut

je voudrais activer la macro a l'aide d'un bouton.

merci d'avance
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#17
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-01-2009 11h31
re a tous

quand je clique sur le bouton le message d'erreur et:

(Impossible d'exécuter la macro"menus def2.xls'! bouton4-clic- il et possible qu'elle ne soit pas dans ce classeur ou que toutes les macros soient désactivées.)

j'ai verifiers les macros elles sont bien activées.

je met le fichier.







Pièce jointe:
xls menus def2.xls   [ Taille: 68.50 Ko - Téléchargements: 527 ]
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#18
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 19-01-2009 13h14
Bonjour Claude

Dans mon premier post, je t'indiquai à la fin un lien sur le tutorial de Didier. Clique dessus tu comprendras comment faire la manip.

@+Jean-Marie 
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#19
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-01-2009 17h48
rebonjour a tous

et merci jean marie pour ce code que tu a eu a gentillesse de trés bien expliquer.

je suis revenu au tutoriel et j'ai fait la manip,tout marche tres bien.

juste une derniére question,a quoi coresponde les premiere ligne de ton code.

Dim I As Byte
Dim Ind1 As Byte
Dim Ind2 As Byte
Dim LimS As Byte

merci pour tout,sans oublier JCGL qui répond aussi toujour présent a mes demande.

a bientot
Hors Ligne
Rapport   Haut 

Re: selection aléatoire
#20
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 19-01-2009 18h02
Bonjour à tous,
Bonjour Jean-Marie,
Bonjour Claude,

JM : il semble y avoir une erreur de plage dans le code. Certaines fois les Titres de colonnes apparaissent( soit les Titres des Familles ou le mot Points pour les points)
 
Claude : Il s
'agit de déclaration de variables
Voir cet article ICI

A+ à tous



Cordialement
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