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
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
On 14 oct, 14:27, "garnote" <garno...@videotron.ca> wrote:
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
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
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
Ave Stéphane,
C'est très exactement cela. Merci
Serge
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news:
b7dc9332-34c0-4922-ae3e-fec4ab9f4945@o41g2000yqb.googlegroups.com...
Bonjour,
On 14 oct, 14:27, "garnote" <garno...@videotron.ca> wrote:
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
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