Scripting.Dictionary

Le
garnote
Bonjour,

Cette macro me donne une liste de nombres sur une colonne
juste à droite de la cellule active.
Comment modifier la dernière ligne pour obtenir la même liste
sur une ligne juste à droite de la cellule active ?

Sub Cherche_Section()
Set mondico = CreateObject("Scripting.Dictionary")
Set ici = ActiveCell
v = ActiveCell.Value
For i = 2 To 15219
If Sheets("Liste").Cells(i, 5) = v Then
ch = Sheets("Liste").Cells(i, 7)
If Not mondico.Exists(ch) Then mondico.Add ch, ch
End If
Next i
ici.Offset(0, 1).Resize(mondico.Count) =
Application.Transpose(mondico.items)
End Sub

Un gros merci,
Serge
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #20349591
Bonjour,

ici.Offset(0, 1).Resize(, mondico.Count) = mondico.items


--
lSteph

On 14 oct, 14:27, "garnote"
Bonjour,

Cette macro me donne une liste de nombres sur une colonne
juste à droite de la cellule active.
Comment modifier la dernière ligne pour obtenir la même liste
sur une ligne juste à droite de la cellule active ?

Sub Cherche_Section()
    Set mondico = CreateObject("Scripting.Dictionary")
    Set ici = ActiveCell
    v = ActiveCell.Value
    For i = 2 To 15219
        If Sheets("Liste").Cells(i, 5) = v Then
            ch = Sheets("Liste").Cells(i, 7)
            If Not mondico.Exists(ch) Then mondico.Add ch, ch
        End If
    Next i
    ici.Offset(0, 1).Resize(mondico.Count) =
Application.Transpose(mondico.items)
End Sub

Un gros merci,
Serge


garnote
Le #20349891
Ave Stéphane,

C'est très exactement cela. Merci

Serge


"LSteph"
Bonjour,

ici.Offset(0, 1).Resize(, mondico.Count) = mondico.items


--
lSteph

On 14 oct, 14:27, "garnote"
Bonjour,

Cette macro me donne une liste de nombres sur une colonne
juste à droite de la cellule active.
Comment modifier la dernière ligne pour obtenir la même liste
sur une ligne juste à droite de la cellule active ?

Sub Cherche_Section()
Set mondico = CreateObject("Scripting.Dictionary")
Set ici = ActiveCell
v = ActiveCell.Value
For i = 2 To 15219
If Sheets("Liste").Cells(i, 5) = v Then
ch = Sheets("Liste").Cells(i, 7)
If Not mondico.Exists(ch) Then mondico.Add ch, ch
End If
Next i
ici.Offset(0, 1).Resize(mondico.Count) > Application.Transpose(mondico.items)
End Sub

Un gros merci,
Serge


Publicité
Poster une réponse
Anonyme