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 :

[E-07] TP Comparaison de points (tableau)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de perchman
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    199
    Détails du profil
    Informations personnelles :
    Âge : 38

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2006
    Messages : 199
    Par défaut [E-07] TP Comparaison de points (tableau)
    Bonjour à tous,

    voilà, j'ai un exercice où je dois comparer des points 1 à 1, calculer la distance entre eux, retourner la distance max puis donner la paire de points qui est concernée.

    ex: prenons 5 points (a, b, c, d et e)
    le programme doit comparer:
    a avec b
    a avec c
    a avec d
    a avec e
    puis
    b avec c
    b avec d
    b avec e
    ...

    voici mon code correspondant à cet exo (qui ne marche pas):

    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
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
     
    'code du test
    Sub td2_4()
        Dim t1(5) As point
        Call saisie_point(t1(0))
        Call saisie_point(t1(1))
        Call saisie_point(t1(2))
        Call saisie_point(t1(3))
        Call saisie_point(t1(4))
        Call copy_point(t1, 5)
    End Sub
     
    'saisie d'un point
    Sub saisie_point(ByRef p As point)
        p.x = InputBox("Point 1: Entrer x: ")
        p.y = InputBox("Point 1: Entrer y:")
    End Sub
     
    'fonction qui permet de connaitre la distance entre 2 points
    Function distance(p1 As point, p2 As point) As Double
        Dim result As Double
        result = Sqr((p2.x - p1.x) ^ 2 + (p2.y - p1.y) ^ 2)
        distance = result
    End Function
     
    'copie du tableau de point dans un nouveau tableau et recherche du max
    Sub copy_point(t1() As point, ByVal nbelement As Integer)
        Dim tc() As point
        Dim i As Integer
        Dim j As Integer
        Dim n As Integer
        Dim d As Integer
        Dim max As Integer
     
        max = 0
        n = 0
     
        For i = 0 To nbelement - 1
            tc(i) = t1(i)    'y a un problème ici:aie:
        Next i
     
        For i = 0 To nbelement - 1
            For j = n + 1 To nbelement - 2
                Call distance(tc(j), t1(i))
                d = distance(tc(j), t1(i))
                    If d > max Then
                        max = d
                        MsgBox (max)
                    End If
            Next j
            n = n + 1
        Next i
        MsgBox ("le max est de :" & max)
    End Sub

  2. #2
    Membre confirmé Avatar de perchman
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    199
    Détails du profil
    Informations personnelles :
    Âge : 38

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2006
    Messages : 199
    Par défaut
    Bon ben j'ai une solution !!

    Je pense qu'il y a plus simple, mais apparemment, elle marche !!

    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
     
    Sub copy_point(t1() As point, ByVal nbelement As Integer)
        Dim tc() As point
        Dim i As Integer
        Dim j As Integer
        Dim n As Integer
        Dim d As Integer
        Dim max As Integer
        Dim imax As Integer
        Dim jmax As Integer
     
        max = 0
        n = 0
     
        tc = t1
     
        For i = 0 To nbelement - 1
            For j = n + 1 To nbelement - 2
                Call distance(tc(j), t1(i))
                d = distance(tc(j), t1(i))
                    If d > max Then
                        max = d
                        imax = i
                        jmax = j
                    End If
            Next j
            n = n + 1
        Next i
        MsgBox ("Le max est de : " & max & " et est entre les points: " & imax & " et " & jmax)
    End Sub

    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] tri et comparaison dans un tableau
    Par camer12 dans le forum Excel
    Réponses: 1
    Dernier message: 08/03/2011, 14h42
  2. Comparaison de 2 tableau
    Par SSDCoyote dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 11/03/2010, 14h09
  3. Répartition et comparaison d'un tableau de char
    Par waldomania dans le forum Débuter
    Réponses: 1
    Dernier message: 31/12/2009, 12h04
  4. [XL-2000] Optimisation de comparaison de (long) tableau
    Par kaahlrv dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/07/2009, 17h03

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