Comment peut-on comparer une variable avec le contenu=20
d'un tableau ?
Je m'explique : j'ai un tableau auquel je veux ajouter=20
des =E9l=E9ments, mais sans doublon.
Par exemple, j'ai MonTableau(3) o=F9
MonTableau(1)=3D"Vert"
MonTableau(2)=3D"Bleu
MonTableau(3)=3D"Rouge"
Si "Blanc" n'est pas =E9l=E9ment du tableau,
ReDim MonTableau(4)
MonTableau(4)=3D"Blanc"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Domi,
'Dans le haut de ton module , déclare Option base 1 pour avoir un tableau dont l'index de la première entrée est 1
Option Base 1 '--------------------------------- Sub ComparerTableau()
Dim Tblo(), A as integer
Tblo = Array("Vert", "Bleu", "Rouge")
letexte = "blanc"
If IsError(Application.Match(letexte, Tblo, 0)) Then A = UBound(Tblo) + 1 ReDim Preserve Tblo(A) Tblo(A) = letexte Else On Error GoTo 0 End If
End Sub '---------------------------------
Salutations!
"DoMi" a écrit dans le message de news:1809901c44a2a$7a786950$ Bonjour !
Comment peut-on comparer une variable avec le contenu d'un tableau ? Je m'explique : j'ai un tableau auquel je veux ajouter des éléments, mais sans doublon. Par exemple, j'ai MonTableau(3) où MonTableau(1)="Vert" MonTableau(2)="Bleu MonTableau(3)="Rouge" Si "Blanc" n'est pas élément du tableau, ReDim MonTableau(4) MonTableau(4)="Blanc"
Merci pour votre aide
Bonjour Domi,
'Dans le haut de ton module , déclare Option base 1 pour avoir un tableau dont l'index de la première entrée est 1
Option Base 1
'---------------------------------
Sub ComparerTableau()
Dim Tblo(), A as integer
Tblo = Array("Vert", "Bleu", "Rouge")
letexte = "blanc"
If IsError(Application.Match(letexte, Tblo, 0)) Then
A = UBound(Tblo) + 1
ReDim Preserve Tblo(A)
Tblo(A) = letexte
Else
On Error GoTo 0
End If
End Sub
'---------------------------------
Salutations!
"DoMi" <anonymous@discussions.microsoft.com> a écrit dans le message de news:1809901c44a2a$7a786950$a301280a@phx.gbl...
Bonjour !
Comment peut-on comparer une variable avec le contenu
d'un tableau ?
Je m'explique : j'ai un tableau auquel je veux ajouter
des éléments, mais sans doublon.
Par exemple, j'ai MonTableau(3) où
MonTableau(1)="Vert"
MonTableau(2)="Bleu
MonTableau(3)="Rouge"
Si "Blanc" n'est pas élément du tableau,
ReDim MonTableau(4)
MonTableau(4)="Blanc"
'Dans le haut de ton module , déclare Option base 1 pour avoir un tableau dont l'index de la première entrée est 1
Option Base 1 '--------------------------------- Sub ComparerTableau()
Dim Tblo(), A as integer
Tblo = Array("Vert", "Bleu", "Rouge")
letexte = "blanc"
If IsError(Application.Match(letexte, Tblo, 0)) Then A = UBound(Tblo) + 1 ReDim Preserve Tblo(A) Tblo(A) = letexte Else On Error GoTo 0 End If
End Sub '---------------------------------
Salutations!
"DoMi" a écrit dans le message de news:1809901c44a2a$7a786950$ Bonjour !
Comment peut-on comparer une variable avec le contenu d'un tableau ? Je m'explique : j'ai un tableau auquel je veux ajouter des éléments, mais sans doublon. Par exemple, j'ai MonTableau(3) où MonTableau(1)="Vert" MonTableau(2)="Bleu MonTableau(3)="Rouge" Si "Blanc" n'est pas élément du tableau, ReDim MonTableau(4) MonTableau(4)="Blanc"
