IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

un code ou des formules?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Inscrit en
    Février 2014
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2014
    Messages : 42
    Par défaut un code ou des formules?
    Bonjour,

    j'aimerais votre aide Excel pour un rangement de nombres colonne A en x fois 10 colonnes, je n'y arrive pas c'est un casse-tête sans nom...

    merci de votre aide.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert Avatar de antonysansh
    Homme Profil pro
    Chargé d'études RH
    Inscrit en
    Mai 2014
    Messages
    1 115
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chargé d'études RH
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2014
    Messages : 1 115
    Par défaut
    Bonjour Robert78,

    Avec si peu d'information et juste un fichier joint tu risques d'avoir peu de réponse. A lire

    Détail ta problématique et explique nous ce que tu cherches à faire.

  3. #3
    Membre actif
    Homme Profil pro
    Inscrit en
    Février 2014
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2014
    Messages : 42
    Par défaut
    Bonjour Anthony,

    Tout est expliqué dans le fichier, je cherche à ranger les nombres de la colonne A par paires exclusives (= une fois seulement) mais pour qu'elles y soient au moins une fois. Je n'arrive même pas à trouver le nombre x de fois 10?

    merci

  4. #4
    Membre Expert Avatar de antonysansh
    Homme Profil pro
    Chargé d'études RH
    Inscrit en
    Mai 2014
    Messages
    1 115
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chargé d'études RH
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2014
    Messages : 1 115
    Par défaut
    Si tu as suivi le lien de mon précédent post tu comprendras que moi comme d'autres n'ouvrirons pas ton fichier.

    Post un exemple simple de ta colonne A au départ et des 10 colonnes que tu veux obtenir

  5. #5
    Invité
    Invité(e)
    Par défaut
    Bonjour,

    Une piste pour trouver les paires :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Sub ChargementDesPaires()
     
    Dim MatricePaires() As Variant
    Dim I As Long
    Dim J As Long
     
    Dim Compteur As Long
     
        For I = 1 To 21
            For J = 1 To 21
                If J > I Then Compteur = Compteur + 1
            Next J
        Next I
     
        ReDim MatricePaires(Compteur - 1)
     
        Compteur = 0
        For I = 1 To 21
     
            For J = 1 To 21
                If J > I Then
                    MatricePaires(Compteur) = "'" & (I & "-" & J)
                    Compteur = Compteur + 1
                End If
            Next J
     
        Next I
     
        With Sheets("Feuil2")
             For I = LBound(MatricePaires, 1) To UBound(MatricePaires, 1)
                 .Cells(I + 1, 1) = MatricePaires(I)
             Next I
            .Activate
            MsgBox Compteur
        End With
     
     
    End Sub
    J'imagine qu'ensuite, il faut les distribuer aléatoirement sur les tableaux.



    Cordialement.

  6. #6
    Invité
    Invité(e)
    Par défaut
    Une solution possible :

    Pièce jointe 206685


    Cordialement.

  7. #7
    Membre actif
    Homme Profil pro
    Inscrit en
    Février 2014
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2014
    Messages : 42
    Par défaut
    Bonjour à tous,

    Sans ouvrir le fichier, vous ne pouvez avoir compris.

    Il faut un nombre par cellule (et non une paire)

    J'ai 21 nombres en A (1 à 21) et je dois les distribuer en x fois 10 cellules (B1:K1, B2:K2 ..etc...) mais de telle façon qu'une paire ne soit jamais en double dans la plage mais que toutes soient présentes 1 fois (arrangement casse-tête !)

    je n'arrive même pas à calculer le nombre x de 10 minimum et nécessaire pour caser 1 fois seulement toutes les paires possibles à partir des 21 nombres.

    Merci de vos réflexions, j'y suis depuis 2 jours avec le crayon......


    Bon AM

Discussions similaires

  1. Supprimer des formules renvoyant des codes erreur
    Par athos7776 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/12/2008, 14h29
  2. [VBA]écrire des formules en Access comme en Excel ?
    Par beegees dans le forum Access
    Réponses: 2
    Dernier message: 14/12/2005, 01h23
  3. Utiliser un parser pour extraire des formules
    Par EpOnYmE187 dans le forum C++
    Réponses: 2
    Dernier message: 15/03/2005, 23h55
  4. [CR 9] Utilisation des formules
    Par Joleroy dans le forum Formules
    Réponses: 9
    Dernier message: 13/09/2004, 08h11
  5. Codes étendus des flèches directionnelles
    Par coca dans le forum x86 16-bits
    Réponses: 2
    Dernier message: 11/12/2002, 17h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo