Bonjour à tous et à toutes
Ce sont probablement des techniques de base, mais j'ai beau essayer dans
tous les sens, je n'y parviens pas :-(
Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
- construire correctement un tableau
- pouvoir le re-construire
Mon tableau de base (à deux dimensions ?) comporte les éléments String
suivants
Colonne 1 - Colonne 2
Rq_Doublons - Synthèse_Doublons
Rq_Anciens - Synthèse_Anciens
Rq_Niveau - Synthèse_Niveau
Rq_Classes - Synthèse_Classes
Rq_Types - Synthèse_Types
Ensuite, chacun des éléments par ligne sera ou non présent dans mon
Cette information est disponible dans une variable booléenne :
Duplicates
OldFiles
Level
AnalyseCls
AnalyseType
Donc ma difficulté réside dans la "re-construction" de mon tableau en
fonction des valeurs ci-dessus
Par exemple si Duplicates = True
Mon tableau aura au moins la ligne
Rq_Doublons - Synthèse_Doublons
Comment faire ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Bonjour à tous et à toutes
Ce sont probablement des techniques de base, mais j'ai beau essayer dans
tous les sens, je n'y parviens pas :-(
Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
- construire correctement un tableau
- pouvoir le re-construire
Mon tableau de base (à deux dimensions ?) comporte les éléments String
suivants
Colonne 1 - Colonne 2
Rq_Doublons - Synthèse_Doublons
Rq_Anciens - Synthèse_Anciens
Rq_Niveau - Synthèse_Niveau
Rq_Classes - Synthèse_Classes
Rq_Types - Synthèse_Types
Ensuite, chacun des éléments par ligne sera ou non présent dans mon
Cette information est disponible dans une variable booléenne :
Duplicates
OldFiles
Level
AnalyseCls
AnalyseType
Donc ma difficulté réside dans la "re-construction" de mon tableau en
fonction des valeurs ci-dessus
Par exemple si Duplicates = True
Mon tableau aura au moins la ligne
Rq_Doublons - Synthèse_Doublons
Comment faire ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Bonjour à tous et à toutes
Ce sont probablement des techniques de base, mais j'ai beau essayer dans
tous les sens, je n'y parviens pas :-(
Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
- construire correctement un tableau
- pouvoir le re-construire
Mon tableau de base (à deux dimensions ?) comporte les éléments String
suivants
Colonne 1 - Colonne 2
Rq_Doublons - Synthèse_Doublons
Rq_Anciens - Synthèse_Anciens
Rq_Niveau - Synthèse_Niveau
Rq_Classes - Synthèse_Classes
Rq_Types - Synthèse_Types
Ensuite, chacun des éléments par ligne sera ou non présent dans mon
Cette information est disponible dans une variable booléenne :
Duplicates
OldFiles
Level
AnalyseCls
AnalyseType
Donc ma difficulté réside dans la "re-construction" de mon tableau en
fonction des valeurs ci-dessus
Par exemple si Duplicates = True
Mon tableau aura au moins la ligne
Rq_Doublons - Synthèse_Doublons
Comment faire ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Bonjour à tous et à toutes
Ce sont probablement des techniques de base, mais j'ai beau essayer dans
tous les sens, je n'y parviens pas :-(
Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
- construire correctement un tableau
- pouvoir le re-construire
Mon tableau de base (à deux dimensions ?) comporte les éléments String
suivants
Colonne 1 - Colonne 2
Rq_Doublons - Synthèse_Doublons
Rq_Anciens - Synthèse_Anciens
Rq_Niveau - Synthèse_Niveau
Rq_Classes - Synthèse_Classes
Rq_Types - Synthèse_Types
Ensuite, chacun des éléments par ligne sera ou non présent dans mon
Cette information est disponible dans une variable booléenne :
Duplicates
OldFiles
Level
AnalyseCls
AnalyseType
Donc ma difficulté réside dans la "re-construction" de mon tableau en
fonction des valeurs ci-dessus
Par exemple si Duplicates = True
Mon tableau aura au moins la ligne
Rq_Doublons - Synthèse_Doublons
Comment faire ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Bonjour à tous et à toutes
Ce sont probablement des techniques de base, mais j'ai beau essayer dans
tous les sens, je n'y parviens pas :-(
Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
- construire correctement un tableau
- pouvoir le re-construire
Mon tableau de base (à deux dimensions ?) comporte les éléments String
suivants
Colonne 1 - Colonne 2
Rq_Doublons - Synthèse_Doublons
Rq_Anciens - Synthèse_Anciens
Rq_Niveau - Synthèse_Niveau
Rq_Classes - Synthèse_Classes
Rq_Types - Synthèse_Types
Ensuite, chacun des éléments par ligne sera ou non présent dans mon
Cette information est disponible dans une variable booléenne :
Duplicates
OldFiles
Level
AnalyseCls
AnalyseType
Donc ma difficulté réside dans la "re-construction" de mon tableau en
fonction des valeurs ci-dessus
Par exemple si Duplicates = True
Mon tableau aura au moins la ligne
Rq_Doublons - Synthèse_Doublons
Comment faire ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Bonjour à tous et à toutes
Ce sont probablement des techniques de base, mais j'ai beau essayer dans
tous les sens, je n'y parviens pas :-(
Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
- construire correctement un tableau
- pouvoir le re-construire
Mon tableau de base (à deux dimensions ?) comporte les éléments String
suivants
Colonne 1 - Colonne 2
Rq_Doublons - Synthèse_Doublons
Rq_Anciens - Synthèse_Anciens
Rq_Niveau - Synthèse_Niveau
Rq_Classes - Synthèse_Classes
Rq_Types - Synthèse_Types
Ensuite, chacun des éléments par ligne sera ou non présent dans mon
Cette information est disponible dans une variable booléenne :
Duplicates
OldFiles
Level
AnalyseCls
AnalyseType
Donc ma difficulté réside dans la "re-construction" de mon tableau en
fonction des valeurs ci-dessus
Par exemple si Duplicates = True
Mon tableau aura au moins la ligne
Rq_Doublons - Synthèse_Doublons
Comment faire ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Salut,
Essaye ce bout de code avec une Form vierge (c'est une manière simple de
faire, il y a peut-être mieux ... :-) ):
Dim Duplicates As Boolean
Dim OldFiles As Boolean
Dim Level As Boolean
Dim AnalyseCls As Boolean
Dim AnalyseType As Boolean
Public Sub Initialise()
' Par exemple :
Duplicates = False
OldFiles = True
Level = True
AnalyseCls = False
AnalyseType = True
End Sub
Public Sub AffTableau(A() As String)
For i = 1 To UBound(A, 2)
Debug.Print A(1, i) & " " & A(2, i)
Next i
End Sub
Private Sub Form_Load()
Dim MonTableau() As String
Dim NbCol As Integer
NbCol = 1
Call Initialise
If Duplicates Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Doublons"
MonTableau(2, NbCol) = "Synthèse_Doublons"
NbCol = NbCol + 1
End If
If OldFiles Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Anciens"
MonTableau(2, NbCol) = "Synthèse_Anciens"
NbCol = NbCol + 1
End If
If Level Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Niveau"
MonTableau(2, NbCol) = "Synthèse_Niveau"
NbCol = NbCol + 1
End If
If AnalyseCls Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Classes"
MonTableau(2, NbCol) = "Synthèse_Classes"
NbCol = NbCol + 1
End If
If AnalyseType Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Types"
MonTableau(2, NbCol) = "Synthèse_Types"
NbCol = NbCol + 1
End If
Call AffTableau(MonTableau)
End Sub
Bon courage,
Davy
"papou" <nspm> a écrit dans le message de news:
> Bonjour à tous et à toutes
> Ce sont probablement des techniques de base, mais j'ai beau essayer dans
> tous les sens, je n'y parviens pas :-(
> Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> - construire correctement un tableau
> - pouvoir le re-construire
>
> Mon tableau de base (à deux dimensions ?) comporte les éléments String
> suivants
> Colonne 1 - Colonne 2
> Rq_Doublons - Synthèse_Doublons
> Rq_Anciens - Synthèse_Anciens
> Rq_Niveau - Synthèse_Niveau
> Rq_Classes - Synthèse_Classes
> Rq_Types - Synthèse_Types
>
> Ensuite, chacun des éléments par ligne sera ou non présent dans mon
tableau
> Cette information est disponible dans une variable booléenne :
> Duplicates
> OldFiles
> Level
> AnalyseCls
> AnalyseType
>
> Donc ma difficulté réside dans la "re-construction" de mon tableau en
> fonction des valeurs ci-dessus
> Par exemple si Duplicates = True
> Mon tableau aura au moins la ligne
> Rq_Doublons - Synthèse_Doublons
>
> Comment faire ?
> Merci d'avance pour vos réponses
> Cordialement
> Pascal
>
>
>
Salut,
Essaye ce bout de code avec une Form vierge (c'est une manière simple de
faire, il y a peut-être mieux ... :-) ):
Dim Duplicates As Boolean
Dim OldFiles As Boolean
Dim Level As Boolean
Dim AnalyseCls As Boolean
Dim AnalyseType As Boolean
Public Sub Initialise()
' Par exemple :
Duplicates = False
OldFiles = True
Level = True
AnalyseCls = False
AnalyseType = True
End Sub
Public Sub AffTableau(A() As String)
For i = 1 To UBound(A, 2)
Debug.Print A(1, i) & " " & A(2, i)
Next i
End Sub
Private Sub Form_Load()
Dim MonTableau() As String
Dim NbCol As Integer
NbCol = 1
Call Initialise
If Duplicates Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Doublons"
MonTableau(2, NbCol) = "Synthèse_Doublons"
NbCol = NbCol + 1
End If
If OldFiles Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Anciens"
MonTableau(2, NbCol) = "Synthèse_Anciens"
NbCol = NbCol + 1
End If
If Level Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Niveau"
MonTableau(2, NbCol) = "Synthèse_Niveau"
NbCol = NbCol + 1
End If
If AnalyseCls Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Classes"
MonTableau(2, NbCol) = "Synthèse_Classes"
NbCol = NbCol + 1
End If
If AnalyseType Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Types"
MonTableau(2, NbCol) = "Synthèse_Types"
NbCol = NbCol + 1
End If
Call AffTableau(MonTableau)
End Sub
Bon courage,
Davy
"papou" <nspm> a écrit dans le message de news:
ei5KtV2rDHA.1088@tk2msftngp13.phx.gbl...
> Bonjour à tous et à toutes
> Ce sont probablement des techniques de base, mais j'ai beau essayer dans
> tous les sens, je n'y parviens pas :-(
> Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> - construire correctement un tableau
> - pouvoir le re-construire
>
> Mon tableau de base (à deux dimensions ?) comporte les éléments String
> suivants
> Colonne 1 - Colonne 2
> Rq_Doublons - Synthèse_Doublons
> Rq_Anciens - Synthèse_Anciens
> Rq_Niveau - Synthèse_Niveau
> Rq_Classes - Synthèse_Classes
> Rq_Types - Synthèse_Types
>
> Ensuite, chacun des éléments par ligne sera ou non présent dans mon
tableau
> Cette information est disponible dans une variable booléenne :
> Duplicates
> OldFiles
> Level
> AnalyseCls
> AnalyseType
>
> Donc ma difficulté réside dans la "re-construction" de mon tableau en
> fonction des valeurs ci-dessus
> Par exemple si Duplicates = True
> Mon tableau aura au moins la ligne
> Rq_Doublons - Synthèse_Doublons
>
> Comment faire ?
> Merci d'avance pour vos réponses
> Cordialement
> Pascal
>
>
>
Salut,
Essaye ce bout de code avec une Form vierge (c'est une manière simple de
faire, il y a peut-être mieux ... :-) ):
Dim Duplicates As Boolean
Dim OldFiles As Boolean
Dim Level As Boolean
Dim AnalyseCls As Boolean
Dim AnalyseType As Boolean
Public Sub Initialise()
' Par exemple :
Duplicates = False
OldFiles = True
Level = True
AnalyseCls = False
AnalyseType = True
End Sub
Public Sub AffTableau(A() As String)
For i = 1 To UBound(A, 2)
Debug.Print A(1, i) & " " & A(2, i)
Next i
End Sub
Private Sub Form_Load()
Dim MonTableau() As String
Dim NbCol As Integer
NbCol = 1
Call Initialise
If Duplicates Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Doublons"
MonTableau(2, NbCol) = "Synthèse_Doublons"
NbCol = NbCol + 1
End If
If OldFiles Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Anciens"
MonTableau(2, NbCol) = "Synthèse_Anciens"
NbCol = NbCol + 1
End If
If Level Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Niveau"
MonTableau(2, NbCol) = "Synthèse_Niveau"
NbCol = NbCol + 1
End If
If AnalyseCls Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Classes"
MonTableau(2, NbCol) = "Synthèse_Classes"
NbCol = NbCol + 1
End If
If AnalyseType Then
ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
MonTableau(1, NbCol) = "Rq_Types"
MonTableau(2, NbCol) = "Synthèse_Types"
NbCol = NbCol + 1
End If
Call AffTableau(MonTableau)
End Sub
Bon courage,
Davy
"papou" <nspm> a écrit dans le message de news:
> Bonjour à tous et à toutes
> Ce sont probablement des techniques de base, mais j'ai beau essayer dans
> tous les sens, je n'y parviens pas :-(
> Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> - construire correctement un tableau
> - pouvoir le re-construire
>
> Mon tableau de base (à deux dimensions ?) comporte les éléments String
> suivants
> Colonne 1 - Colonne 2
> Rq_Doublons - Synthèse_Doublons
> Rq_Anciens - Synthèse_Anciens
> Rq_Niveau - Synthèse_Niveau
> Rq_Classes - Synthèse_Classes
> Rq_Types - Synthèse_Types
>
> Ensuite, chacun des éléments par ligne sera ou non présent dans mon
tableau
> Cette information est disponible dans une variable booléenne :
> Duplicates
> OldFiles
> Level
> AnalyseCls
> AnalyseType
>
> Donc ma difficulté réside dans la "re-construction" de mon tableau en
> fonction des valeurs ci-dessus
> Par exemple si Duplicates = True
> Mon tableau aura au moins la ligne
> Rq_Doublons - Synthèse_Doublons
>
> Comment faire ?
> Merci d'avance pour vos réponses
> Cordialement
> Pascal
>
>
>
Normalement dans un tableau, toutes les valeurs sont de même type.
"papou" <nspm> a écrit dans le message de
news:
> Bonjour à tous et à toutes
> Ce sont probablement des techniques de base, mais j'ai beau essayer dans
> tous les sens, je n'y parviens pas :-(
> Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> - construire correctement un tableau
> - pouvoir le re-construire
>
> Mon tableau de base (à deux dimensions ?) comporte les éléments String
> suivants
> Colonne 1 - Colonne 2
> Rq_Doublons - Synthèse_Doublons
> Rq_Anciens - Synthèse_Anciens
> Rq_Niveau - Synthèse_Niveau
> Rq_Classes - Synthèse_Classes
> Rq_Types - Synthèse_Types
>
> Ensuite, chacun des éléments par ligne sera ou non présent dans mon
tableau
> Cette information est disponible dans une variable booléenne :
> Duplicates
> OldFiles
> Level
> AnalyseCls
> AnalyseType
>
> Donc ma difficulté réside dans la "re-construction" de mon tableau en
> fonction des valeurs ci-dessus
> Par exemple si Duplicates = True
> Mon tableau aura au moins la ligne
> Rq_Doublons - Synthèse_Doublons
>
> Comment faire ?
> Merci d'avance pour vos réponses
> Cordialement
> Pascal
>
>
>
Normalement dans un tableau, toutes les valeurs sont de même type.
"papou" <nspm> a écrit dans le message de
news:ei5KtV2rDHA.1088@tk2msftngp13.phx.gbl...
> Bonjour à tous et à toutes
> Ce sont probablement des techniques de base, mais j'ai beau essayer dans
> tous les sens, je n'y parviens pas :-(
> Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> - construire correctement un tableau
> - pouvoir le re-construire
>
> Mon tableau de base (à deux dimensions ?) comporte les éléments String
> suivants
> Colonne 1 - Colonne 2
> Rq_Doublons - Synthèse_Doublons
> Rq_Anciens - Synthèse_Anciens
> Rq_Niveau - Synthèse_Niveau
> Rq_Classes - Synthèse_Classes
> Rq_Types - Synthèse_Types
>
> Ensuite, chacun des éléments par ligne sera ou non présent dans mon
tableau
> Cette information est disponible dans une variable booléenne :
> Duplicates
> OldFiles
> Level
> AnalyseCls
> AnalyseType
>
> Donc ma difficulté réside dans la "re-construction" de mon tableau en
> fonction des valeurs ci-dessus
> Par exemple si Duplicates = True
> Mon tableau aura au moins la ligne
> Rq_Doublons - Synthèse_Doublons
>
> Comment faire ?
> Merci d'avance pour vos réponses
> Cordialement
> Pascal
>
>
>
Normalement dans un tableau, toutes les valeurs sont de même type.
"papou" <nspm> a écrit dans le message de
news:
> Bonjour à tous et à toutes
> Ce sont probablement des techniques de base, mais j'ai beau essayer dans
> tous les sens, je n'y parviens pas :-(
> Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> - construire correctement un tableau
> - pouvoir le re-construire
>
> Mon tableau de base (à deux dimensions ?) comporte les éléments String
> suivants
> Colonne 1 - Colonne 2
> Rq_Doublons - Synthèse_Doublons
> Rq_Anciens - Synthèse_Anciens
> Rq_Niveau - Synthèse_Niveau
> Rq_Classes - Synthèse_Classes
> Rq_Types - Synthèse_Types
>
> Ensuite, chacun des éléments par ligne sera ou non présent dans mon
tableau
> Cette information est disponible dans une variable booléenne :
> Duplicates
> OldFiles
> Level
> AnalyseCls
> AnalyseType
>
> Donc ma difficulté réside dans la "re-construction" de mon tableau en
> fonction des valeurs ci-dessus
> Par exemple si Duplicates = True
> Mon tableau aura au moins la ligne
> Rq_Doublons - Synthèse_Doublons
>
> Comment faire ?
> Merci d'avance pour vos réponses
> Cordialement
> Pascal
>
>
>
Salut Davy
Je te remercie beaucoup pour ta réponse :-)
Je vais tester cela.
Cordialement
Pascal
"Davy Duriatti" a écrit dans le
message de news:
> Salut,
>
> Essaye ce bout de code avec une Form vierge (c'est une manière simple de
> faire, il y a peut-être mieux ... :-) ):
>
> Dim Duplicates As Boolean
> Dim OldFiles As Boolean
> Dim Level As Boolean
> Dim AnalyseCls As Boolean
> Dim AnalyseType As Boolean
>
>
> Public Sub Initialise()
> ' Par exemple :
> Duplicates = False
> OldFiles = True
> Level = True
> AnalyseCls = False
> AnalyseType = True
> End Sub
>
> Public Sub AffTableau(A() As String)
> For i = 1 To UBound(A, 2)
> Debug.Print A(1, i) & " " & A(2, i)
> Next i
> End Sub
>
> Private Sub Form_Load()
> Dim MonTableau() As String
> Dim NbCol As Integer
> NbCol = 1
> Call Initialise
> If Duplicates Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Doublons"
> MonTableau(2, NbCol) = "Synthèse_Doublons"
> NbCol = NbCol + 1
> End If
> If OldFiles Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Anciens"
> MonTableau(2, NbCol) = "Synthèse_Anciens"
> NbCol = NbCol + 1
> End If
> If Level Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Niveau"
> MonTableau(2, NbCol) = "Synthèse_Niveau"
> NbCol = NbCol + 1
> End If
> If AnalyseCls Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Classes"
> MonTableau(2, NbCol) = "Synthèse_Classes"
> NbCol = NbCol + 1
> End If
> If AnalyseType Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Types"
> MonTableau(2, NbCol) = "Synthèse_Types"
> NbCol = NbCol + 1
> End If
> Call AffTableau(MonTableau)
> End Sub
>
> Bon courage,
>
> Davy
>
> "papou" <nspm> a écrit dans le message de news:
>
> > Bonjour à tous et à toutes
> > Ce sont probablement des techniques de base, mais j'ai beau essayer
> > tous les sens, je n'y parviens pas :-(
> > Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> > - construire correctement un tableau
> > - pouvoir le re-construire
> >
> > Mon tableau de base (à deux dimensions ?) comporte les éléments
> > suivants
> > Colonne 1 - Colonne 2
> > Rq_Doublons - Synthèse_Doublons
> > Rq_Anciens - Synthèse_Anciens
> > Rq_Niveau - Synthèse_Niveau
> > Rq_Classes - Synthèse_Classes
> > Rq_Types - Synthèse_Types
> >
> > Ensuite, chacun des éléments par ligne sera ou non présent dans mon
> tableau
> > Cette information est disponible dans une variable booléenne :
> > Duplicates
> > OldFiles
> > Level
> > AnalyseCls
> > AnalyseType
> >
> > Donc ma difficulté réside dans la "re-construction" de mon tableau en
> > fonction des valeurs ci-dessus
> > Par exemple si Duplicates = True
> > Mon tableau aura au moins la ligne
> > Rq_Doublons - Synthèse_Doublons
> >
> > Comment faire ?
> > Merci d'avance pour vos réponses
> > Cordialement
> > Pascal
> >
> >
> >
>
>
Salut Davy
Je te remercie beaucoup pour ta réponse :-)
Je vais tester cela.
Cordialement
Pascal
"Davy Duriatti" <_davy._duriatti_@EnleverLes_tiscali.fr> a écrit dans le
message de news:eZiXcG6rDHA.2448@TK2MSFTNGP12.phx.gbl...
> Salut,
>
> Essaye ce bout de code avec une Form vierge (c'est une manière simple de
> faire, il y a peut-être mieux ... :-) ):
>
> Dim Duplicates As Boolean
> Dim OldFiles As Boolean
> Dim Level As Boolean
> Dim AnalyseCls As Boolean
> Dim AnalyseType As Boolean
>
>
> Public Sub Initialise()
> ' Par exemple :
> Duplicates = False
> OldFiles = True
> Level = True
> AnalyseCls = False
> AnalyseType = True
> End Sub
>
> Public Sub AffTableau(A() As String)
> For i = 1 To UBound(A, 2)
> Debug.Print A(1, i) & " " & A(2, i)
> Next i
> End Sub
>
> Private Sub Form_Load()
> Dim MonTableau() As String
> Dim NbCol As Integer
> NbCol = 1
> Call Initialise
> If Duplicates Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Doublons"
> MonTableau(2, NbCol) = "Synthèse_Doublons"
> NbCol = NbCol + 1
> End If
> If OldFiles Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Anciens"
> MonTableau(2, NbCol) = "Synthèse_Anciens"
> NbCol = NbCol + 1
> End If
> If Level Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Niveau"
> MonTableau(2, NbCol) = "Synthèse_Niveau"
> NbCol = NbCol + 1
> End If
> If AnalyseCls Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Classes"
> MonTableau(2, NbCol) = "Synthèse_Classes"
> NbCol = NbCol + 1
> End If
> If AnalyseType Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Types"
> MonTableau(2, NbCol) = "Synthèse_Types"
> NbCol = NbCol + 1
> End If
> Call AffTableau(MonTableau)
> End Sub
>
> Bon courage,
>
> Davy
>
> "papou" <nspm> a écrit dans le message de news:
> ei5KtV2rDHA.1088@tk2msftngp13.phx.gbl...
> > Bonjour à tous et à toutes
> > Ce sont probablement des techniques de base, mais j'ai beau essayer
> > tous les sens, je n'y parviens pas :-(
> > Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> > - construire correctement un tableau
> > - pouvoir le re-construire
> >
> > Mon tableau de base (à deux dimensions ?) comporte les éléments
> > suivants
> > Colonne 1 - Colonne 2
> > Rq_Doublons - Synthèse_Doublons
> > Rq_Anciens - Synthèse_Anciens
> > Rq_Niveau - Synthèse_Niveau
> > Rq_Classes - Synthèse_Classes
> > Rq_Types - Synthèse_Types
> >
> > Ensuite, chacun des éléments par ligne sera ou non présent dans mon
> tableau
> > Cette information est disponible dans une variable booléenne :
> > Duplicates
> > OldFiles
> > Level
> > AnalyseCls
> > AnalyseType
> >
> > Donc ma difficulté réside dans la "re-construction" de mon tableau en
> > fonction des valeurs ci-dessus
> > Par exemple si Duplicates = True
> > Mon tableau aura au moins la ligne
> > Rq_Doublons - Synthèse_Doublons
> >
> > Comment faire ?
> > Merci d'avance pour vos réponses
> > Cordialement
> > Pascal
> >
> >
> >
>
>
Salut Davy
Je te remercie beaucoup pour ta réponse :-)
Je vais tester cela.
Cordialement
Pascal
"Davy Duriatti" a écrit dans le
message de news:
> Salut,
>
> Essaye ce bout de code avec une Form vierge (c'est une manière simple de
> faire, il y a peut-être mieux ... :-) ):
>
> Dim Duplicates As Boolean
> Dim OldFiles As Boolean
> Dim Level As Boolean
> Dim AnalyseCls As Boolean
> Dim AnalyseType As Boolean
>
>
> Public Sub Initialise()
> ' Par exemple :
> Duplicates = False
> OldFiles = True
> Level = True
> AnalyseCls = False
> AnalyseType = True
> End Sub
>
> Public Sub AffTableau(A() As String)
> For i = 1 To UBound(A, 2)
> Debug.Print A(1, i) & " " & A(2, i)
> Next i
> End Sub
>
> Private Sub Form_Load()
> Dim MonTableau() As String
> Dim NbCol As Integer
> NbCol = 1
> Call Initialise
> If Duplicates Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Doublons"
> MonTableau(2, NbCol) = "Synthèse_Doublons"
> NbCol = NbCol + 1
> End If
> If OldFiles Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Anciens"
> MonTableau(2, NbCol) = "Synthèse_Anciens"
> NbCol = NbCol + 1
> End If
> If Level Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Niveau"
> MonTableau(2, NbCol) = "Synthèse_Niveau"
> NbCol = NbCol + 1
> End If
> If AnalyseCls Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Classes"
> MonTableau(2, NbCol) = "Synthèse_Classes"
> NbCol = NbCol + 1
> End If
> If AnalyseType Then
> ReDim Preserve MonTableau(1 To 2, 1 To NbCol)
> MonTableau(1, NbCol) = "Rq_Types"
> MonTableau(2, NbCol) = "Synthèse_Types"
> NbCol = NbCol + 1
> End If
> Call AffTableau(MonTableau)
> End Sub
>
> Bon courage,
>
> Davy
>
> "papou" <nspm> a écrit dans le message de news:
>
> > Bonjour à tous et à toutes
> > Ce sont probablement des techniques de base, mais j'ai beau essayer
> > tous les sens, je n'y parviens pas :-(
> > Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> > - construire correctement un tableau
> > - pouvoir le re-construire
> >
> > Mon tableau de base (à deux dimensions ?) comporte les éléments
> > suivants
> > Colonne 1 - Colonne 2
> > Rq_Doublons - Synthèse_Doublons
> > Rq_Anciens - Synthèse_Anciens
> > Rq_Niveau - Synthèse_Niveau
> > Rq_Classes - Synthèse_Classes
> > Rq_Types - Synthèse_Types
> >
> > Ensuite, chacun des éléments par ligne sera ou non présent dans mon
> tableau
> > Cette information est disponible dans une variable booléenne :
> > Duplicates
> > OldFiles
> > Level
> > AnalyseCls
> > AnalyseType
> >
> > Donc ma difficulté réside dans la "re-construction" de mon tableau en
> > fonction des valeurs ci-dessus
> > Par exemple si Duplicates = True
> > Mon tableau aura au moins la ligne
> > Rq_Doublons - Synthèse_Doublons
> >
> > Comment faire ?
> > Merci d'avance pour vos réponses
> > Cordialement
> > Pascal
> >
> >
> >
>
>
Bonjour Patrice
Merci d'avoir répondu, mais ce que tu me dit ne m'aidera pas franchement
Es-tu bien sûr d'avoir lu complètement mon post ?
Cordialement
Pascal
"Patrice Henrio" a écrit dans le
message de news:
> Normalement dans un tableau, toutes les valeurs sont de même type.
>
> "papou" <nspm> a écrit dans le message de
> news:
> > Bonjour à tous et à toutes
> > Ce sont probablement des techniques de base, mais j'ai beau essayer
> > tous les sens, je n'y parviens pas :-(
> > Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> > - construire correctement un tableau
> > - pouvoir le re-construire
> >
> > Mon tableau de base (à deux dimensions ?) comporte les éléments
> > suivants
> > Colonne 1 - Colonne 2
> > Rq_Doublons - Synthèse_Doublons
> > Rq_Anciens - Synthèse_Anciens
> > Rq_Niveau - Synthèse_Niveau
> > Rq_Classes - Synthèse_Classes
> > Rq_Types - Synthèse_Types
> >
> > Ensuite, chacun des éléments par ligne sera ou non présent dans mon
> tableau
> > Cette information est disponible dans une variable booléenne :
> > Duplicates
> > OldFiles
> > Level
> > AnalyseCls
> > AnalyseType
> >
> > Donc ma difficulté réside dans la "re-construction" de mon tableau en
> > fonction des valeurs ci-dessus
> > Par exemple si Duplicates = True
> > Mon tableau aura au moins la ligne
> > Rq_Doublons - Synthèse_Doublons
> >
> > Comment faire ?
> > Merci d'avance pour vos réponses
> > Cordialement
> > Pascal
> >
> >
> >
>
>
Bonjour Patrice
Merci d'avoir répondu, mais ce que tu me dit ne m'aidera pas franchement
Es-tu bien sûr d'avoir lu complètement mon post ?
Cordialement
Pascal
"Patrice Henrio" <patrice.henrio.pasdepub@laposte.net> a écrit dans le
message de news:eAjCBV6rDHA.2148@TK2MSFTNGP12.phx.gbl...
> Normalement dans un tableau, toutes les valeurs sont de même type.
>
> "papou" <nspm> a écrit dans le message de
> news:ei5KtV2rDHA.1088@tk2msftngp13.phx.gbl...
> > Bonjour à tous et à toutes
> > Ce sont probablement des techniques de base, mais j'ai beau essayer
> > tous les sens, je n'y parviens pas :-(
> > Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> > - construire correctement un tableau
> > - pouvoir le re-construire
> >
> > Mon tableau de base (à deux dimensions ?) comporte les éléments
> > suivants
> > Colonne 1 - Colonne 2
> > Rq_Doublons - Synthèse_Doublons
> > Rq_Anciens - Synthèse_Anciens
> > Rq_Niveau - Synthèse_Niveau
> > Rq_Classes - Synthèse_Classes
> > Rq_Types - Synthèse_Types
> >
> > Ensuite, chacun des éléments par ligne sera ou non présent dans mon
> tableau
> > Cette information est disponible dans une variable booléenne :
> > Duplicates
> > OldFiles
> > Level
> > AnalyseCls
> > AnalyseType
> >
> > Donc ma difficulté réside dans la "re-construction" de mon tableau en
> > fonction des valeurs ci-dessus
> > Par exemple si Duplicates = True
> > Mon tableau aura au moins la ligne
> > Rq_Doublons - Synthèse_Doublons
> >
> > Comment faire ?
> > Merci d'avance pour vos réponses
> > Cordialement
> > Pascal
> >
> >
> >
>
>
Bonjour Patrice
Merci d'avoir répondu, mais ce que tu me dit ne m'aidera pas franchement
Es-tu bien sûr d'avoir lu complètement mon post ?
Cordialement
Pascal
"Patrice Henrio" a écrit dans le
message de news:
> Normalement dans un tableau, toutes les valeurs sont de même type.
>
> "papou" <nspm> a écrit dans le message de
> news:
> > Bonjour à tous et à toutes
> > Ce sont probablement des techniques de base, mais j'ai beau essayer
> > tous les sens, je n'y parviens pas :-(
> > Quelqu'un saurait-il m'aider à effectuer les opérations suivantes :
> > - construire correctement un tableau
> > - pouvoir le re-construire
> >
> > Mon tableau de base (à deux dimensions ?) comporte les éléments
> > suivants
> > Colonne 1 - Colonne 2
> > Rq_Doublons - Synthèse_Doublons
> > Rq_Anciens - Synthèse_Anciens
> > Rq_Niveau - Synthèse_Niveau
> > Rq_Classes - Synthèse_Classes
> > Rq_Types - Synthèse_Types
> >
> > Ensuite, chacun des éléments par ligne sera ou non présent dans mon
> tableau
> > Cette information est disponible dans une variable booléenne :
> > Duplicates
> > OldFiles
> > Level
> > AnalyseCls
> > AnalyseType
> >
> > Donc ma difficulté réside dans la "re-construction" de mon tableau en
> > fonction des valeurs ci-dessus
> > Par exemple si Duplicates = True
> > Mon tableau aura au moins la ligne
> > Rq_Doublons - Synthèse_Doublons
> >
> > Comment faire ?
> > Merci d'avance pour vos réponses
> > Cordialement
> > Pascal
> >
> >
> >
>
>
