Discussion :

[lps02]

Bonjour les maîtres du vba

Ci dessous le code que j'ai élaboré grâce aux tutoriels pour creer une liste de nom;
Mon probleme, cela donne une liste de nom en colonne à partir de C4 et je voudrais une liste en ligne à partir de C4

Votre aide serait la bienvenue

Cordialement
Lps02

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Propriétaire()
Dim Dico As Object
Dim j As Range
Dim d
Dim b As Long
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("lotissement")
    For Each j In .Range("N12:N" & .Cells(.Rows.Count, 1).End(xlUp).Row)
        If Not Dico.exists(Trim(j.Value)) Then Dico.Add Trim(j.Value), Trim(j.Value)
    Next j
        b = 4
        For Each d In Dico.items
        .Range("C" & b) = d   'pour recopier la liste des éléments uniques à partir de la cellule B2
        b = b + 1
        Next d
 
 
End With
 
 
End Sub

[SfJ5Rpw8]

bonjour,

modifie la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("C" & b) = d   'pour recopier la liste des éléments uniques à partir de la cellule B2

en utilisant .Cells ( ligne,colonne)...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(4;b) = d

[casefayere]

Bonjour,

perso, je propose cette solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
...
    b = 4
    .Range("C" & b, .Cells(4, Dico.Count + b - 1)) = Dico.items
...

Qui évite la boucle

Bonne journée

[lps02]

Merci à vous deux

Cela fonctionne

A+
Cordialement
lps02

[lps02]

Bonsoir Casefayere

Un petit soucis avec ta méthode tout de même, il y a une cellule apres les cellules de données où il est marqué (dans la feuille excel) "N/A"

ton avis??
Je n'ai pas ce soucis avec la boucle ....
Cordialement
lps02