Dans une feuille, j'ai une liste d'informations que je parcours dans un
userform à l'aide d'un scrollbar. Pour charger la liste des lignes j'utilise
:
Set LesEnsembles = Range("A1", [A65536].End(xlUp))
ReDim AddressEns(0 To LesEnsembles.Count - 1)
For Each LaCellule In LesEnsembles
AddressEns(Compteur) = LaCellule.Address
Compteur = Compteur + 1
Next LaCellule
=> ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns) les
éventuels doublons ...
J'ai essayer avec une collection mais ne m'en sort pas ;...(
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
papou
Bonjour Avec une collection ça devrait le faire : Dim LstPlg As New Collection On Error Resume Next For Each cel In LesEnsembles LstPlg.Add cel.Address, CStr(cel.Value) Next cel For i = 0 To LstPlg.Count MsgBox LstPlg(i) Next i
Cordialement Pascal
"-=lolol=-" a écrit dans le message de news:
Bonjour à tous,
Dans une feuille, j'ai une liste d'informations que je parcours dans un userform à l'aide d'un scrollbar. Pour charger la liste des lignes j'utilise :
Set LesEnsembles = Range("A1", [A65536].End(xlUp)) ReDim AddressEns(0 To LesEnsembles.Count - 1) For Each LaCellule In LesEnsembles AddressEns(Compteur) = LaCellule.Address Compteur = Compteur + 1 Next LaCellule => ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns) les éventuels doublons ... J'ai essayer avec une collection mais ne m'en sort pas ;...(
Pouvez vous m'aider ? Par avance merci @+lolo
Bonjour
Avec une collection ça devrait le faire :
Dim LstPlg As New Collection
On Error Resume Next
For Each cel In LesEnsembles
LstPlg.Add cel.Address, CStr(cel.Value)
Next cel
For i = 0 To LstPlg.Count
MsgBox LstPlg(i)
Next i
Cordialement
Pascal
"-=lolol=-" <polytek@SANSPUBfree.fr> a écrit dans le message de news:
esoEd6BwFHA.2792@tk2msftngp13.phx.gbl...
Bonjour à tous,
Dans une feuille, j'ai une liste d'informations que je parcours dans un
userform à l'aide d'un scrollbar. Pour charger la liste des lignes
j'utilise :
Set LesEnsembles = Range("A1", [A65536].End(xlUp))
ReDim AddressEns(0 To LesEnsembles.Count - 1)
For Each LaCellule In LesEnsembles
AddressEns(Compteur) = LaCellule.Address
Compteur = Compteur + 1
Next LaCellule
=> ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns) les
éventuels doublons ...
J'ai essayer avec une collection mais ne m'en sort pas ;...(
Bonjour Avec une collection ça devrait le faire : Dim LstPlg As New Collection On Error Resume Next For Each cel In LesEnsembles LstPlg.Add cel.Address, CStr(cel.Value) Next cel For i = 0 To LstPlg.Count MsgBox LstPlg(i) Next i
Cordialement Pascal
"-=lolol=-" a écrit dans le message de news:
Bonjour à tous,
Dans une feuille, j'ai une liste d'informations que je parcours dans un userform à l'aide d'un scrollbar. Pour charger la liste des lignes j'utilise :
Set LesEnsembles = Range("A1", [A65536].End(xlUp)) ReDim AddressEns(0 To LesEnsembles.Count - 1) For Each LaCellule In LesEnsembles AddressEns(Compteur) = LaCellule.Address Compteur = Compteur + 1 Next LaCellule => ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns) les éventuels doublons ... J'ai essayer avec une collection mais ne m'en sort pas ;...(
Pouvez vous m'aider ? Par avance merci @+lolo
-=lolol=-
Bonjour papou, presque !!! je souhaite filtrer les doublons sur le texte de la cellule et renvoyer l'adresse de cette cellule dans mon tableau merci pour ton aide @+lolo
Bonjour Avec une collection ça devrait le faire : Dim LstPlg As New Collection On Error Resume Next For Each cel In LesEnsembles LstPlg.Add cel.Address, CStr(cel.Value) Next cel For i = 0 To LstPlg.Count MsgBox LstPlg(i) Next i
Cordialement Pascal
"-=lolol=-" a écrit dans le message de news:
Bonjour à tous,
Dans une feuille, j'ai une liste d'informations que je parcours dans un userform à l'aide d'un scrollbar. Pour charger la liste des lignes j'utilise :
Set LesEnsembles = Range("A1", [A65536].End(xlUp)) ReDim AddressEns(0 To LesEnsembles.Count - 1) For Each LaCellule In LesEnsembles AddressEns(Compteur) = LaCellule.Address Compteur = Compteur + 1 Next LaCellule => ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns) les éventuels doublons ... J'ai essayer avec une collection mais ne m'en sort pas ;...(
Pouvez vous m'aider ? Par avance merci @+lolo
Bonjour papou,
presque !!! je souhaite filtrer les doublons sur le texte de la cellule et
renvoyer l'adresse de cette cellule dans mon tableau
merci pour ton aide
@+lolo
Bonjour
Avec une collection ça devrait le faire :
Dim LstPlg As New Collection
On Error Resume Next
For Each cel In LesEnsembles
LstPlg.Add cel.Address, CStr(cel.Value)
Next cel
For i = 0 To LstPlg.Count
MsgBox LstPlg(i)
Next i
Cordialement
Pascal
"-=lolol=-" <polytek@SANSPUBfree.fr> a écrit dans le message de news:
esoEd6BwFHA.2792@tk2msftngp13.phx.gbl...
Bonjour à tous,
Dans une feuille, j'ai une liste d'informations que je parcours dans
un userform à l'aide d'un scrollbar. Pour charger la liste des lignes
j'utilise :
Set LesEnsembles = Range("A1", [A65536].End(xlUp))
ReDim AddressEns(0 To LesEnsembles.Count - 1)
For Each LaCellule In LesEnsembles
AddressEns(Compteur) = LaCellule.Address
Compteur = Compteur + 1
Next LaCellule
=> ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns)
les éventuels doublons ...
J'ai essayer avec une collection mais ne m'en sort pas ;...(
Bonjour papou, presque !!! je souhaite filtrer les doublons sur le texte de la cellule et renvoyer l'adresse de cette cellule dans mon tableau merci pour ton aide @+lolo
Bonjour Avec une collection ça devrait le faire : Dim LstPlg As New Collection On Error Resume Next For Each cel In LesEnsembles LstPlg.Add cel.Address, CStr(cel.Value) Next cel For i = 0 To LstPlg.Count MsgBox LstPlg(i) Next i
Cordialement Pascal
"-=lolol=-" a écrit dans le message de news:
Bonjour à tous,
Dans une feuille, j'ai une liste d'informations que je parcours dans un userform à l'aide d'un scrollbar. Pour charger la liste des lignes j'utilise :
Set LesEnsembles = Range("A1", [A65536].End(xlUp)) ReDim AddressEns(0 To LesEnsembles.Count - 1) For Each LaCellule In LesEnsembles AddressEns(Compteur) = LaCellule.Address Compteur = Compteur + 1 Next LaCellule => ok
Je souhaiterais éliminer (ne pas charger) de ce tableau (AddressEns) les éventuels doublons ... J'ai essayer avec une collection mais ne m'en sort pas ;...(
