Sélection de colonnes aléatiore en les cochantsRésolu

Question

Bonjour,
Je recherche le moyen de s&#233;lectionner un groupe colonnes al&#233;atoire en les cochant ,pour lancer des proc&#233;dures dessus, elles ne sont pas constante en nombre,  et on  la  premi&#232;re cellule  de  colonne qui change, seule la colonne A ne peux pas faire parti de la s&#233;lection.

yod6666 · Accepted Answer

resalut, je te remercie de ton aide, mais j'ai trouver mon bonheur en foullant un peu , mais j'ai un autre probl&#232;me maintenant, comment fait on pour avoir une nombre de checkbox superieur &#224; 5 et ne les afficher qu'&#224; partir de la colonne B.
mon codes:
    With Assistant.NewBalloon
        .Heading = "Variables affichables"
        .Text = "S&#233;lectionner vos courbes"
        'Totalcol = Range("B1", [B1].End(xlToRight)).Columns.Count
        'For i = 2 To Totalcol + 1
        i = ActiveSheet.UsedRange.Columns.Count
        For i = i To 2 Step -1
            nomcell = Cells(1, i)
            .CheckBoxes(i).Text = nomcell
            If i = 2 Then Exit For
        Next
        .Button = msoButtonSetOkCancel

        If .Show = msoBalloonButtonOK Then
            Valid = 0
            For i = 2 To Totalcol + 1
            If .CheckBoxes(i).Checked = True Then
                Valid = Valid + 1 'rend valide diff&#233;rent de 0
       End If
            Next
            If Valid = 0 Then MsgBox "Aucune s&#233;lection n'a &#233;t&#233; effectu&#233;"
            End If
    End With

jannoman · Answer

dim n as integer, k as integer, a as integer, b as integer
dim t() as boolean

randomize timer

n = nb_de_colonnes
redim t(1 to n)
for k = 1 to n
t(k)=false
next k

a = int(n * rnd)
for k = 1 to a
do
b = 2 + int(n - 1) * rnd 'pour ne pas choisir la colonne A
loop until not t(b)

t(b) = true
next k

'et la tu as maintenant t() qui contient true si la colonne est choisie, false sinon.

A+.
Thomas.

yod6666 · Answer

j'ai pas trop bien compris ton code, je ne sais pas si je me suis bien exprimer en disant al&#233;atoire, 
Si tu veux les colonnes qui seront prise ne seront pas toujour les m&#234;mes, j'aimerai enfet les s&#233;lectionner par l'interm&#233;diaire d'une liste sur laquel on coche, genre un checkbox , mais je sais pas si cette derni&#232;re est possible dans une boucle 
du genre : 
Sub essss()
With Assistant
        Assistant.Sounds = True
        Assistant.Animation = msoAnimationGreeting
        Assistant.On = True
End With
Dim Bln1 As Balloon
    nbrcol = ActiveSheet.UsedRange.Columns.Count
    Set Bln1 = Assistant.NewBalloon
    With Bln1
    .Animation = msoAnimationPrinting
    .BalloonType = msoBalloonTypeBullets
    .Button = msoButtonSetOkCancel
    .Heading = "Statistiques"
    .Icon = msoIconAlertCritical
    For nbrcol = nbrcol To 2 Step -1
    nomcell = Cells(1, nbrcol)
    .CheckBoxes().Text = nomcell
    Next nbrcol
    .Mode = msoModeModal
    .Show
    End With
End Sub

jannoman · Answer

dis mieux ce que tu veux avec tes colonnes stp
est ce qu'on sélectionne certaines colonnes et apres l'ordinateur choisit, parmi ces colonnes, certaines colonnes ?

yod6666 · Answer

Nous avons un fichier comptenant des colonnes, nombre: 1 et beaucoup, mais seule la colonne A ne fait pas parti de la s&#233;lection.
La s&#233;lection doit &#234;tre manuel, les colonnes sont toutes r&#233;pertori&#233;es dans une box, on les coche puis on lance la proc&#233;dure sur les colonnes s&#233;lectionn&#233;es

jannoman · Answer

alors où intervient l'aléatoire ?
qu'est ce que tu cherches à faire exactement ?
explique toi plus clairement stp ("nombre: 1 et beaucoup") ...
Merci.
A+.
Thomas.

yod6666 · Answer

j'ai une base de donn&#233;es avec une colonne A qui sert de temps et les autres qui serve de donn&#233;e s&#233;rie pour un graphique.
j'aimerai pouvoir appliqu&#233; un sous programme, quand certaine d'entre elle sont s&#233;lectionner.
j'aurai pu faire un checkbox pour chaque donn&#233;es s&#233;rie mais le nombre de colonnes varie d'un fichier &#224; un autre ainsi que leur noms(1er cellule de chaque colonnes).
 j'ai l'impression que j'y arriverai jamais....

A L'AIDEEEEE!!!!!!

jannoman · Answer

ca y est je crois que j'ai compris.
voila comment faire :
1ere solution :
une listbox avec la propriété Multiselect à Extended.

dans le code :
for k = 1 to n
list1.additem "colonne : " & cstr(k)
next k

l'utilisateur sélectionne alors toutes les colonnes qu'il veut dans la liste

tu récupères dans ton programme si une colonne est sélectionnée, ou non, de cette manière :

for k = 1 to n
if list1.selected(k - 1) then msgbox "la colonne numéro " & cstr(k) & " est sélectionnée"
next k

autre facon :
tu mets le Style de ta listbox à Checkbox et tu ajoute tes colonnes et récupère leur sélection de la meme maniere

j'espere avoir répondu a ta question cette fois !

A+.
Thomas.

Sélection de colonnes aléatiore en les cochants

8 réponses

Discussions similaires