Discussion :

[beast666]

Bonjour à tous,

Voilà, je cherche à faire dérouler toute une liste de valeur dans une seule cellule.
Ma liste de valeur se situe dans les cellules (A2:A123)

La cellule qui me sert de base étant la cellule (E7)

J'étais parti sur une boucle For...Next mais je ne sais pas comment lui dire de me prendre en référence mes valeurs se trouvant dans les cellules (A2:A123)

Merci par avance pour vos réponses

[Krovax]

Menue Données, Validation, autoriser : Les liste, tu choisi ta plage.
Tu lance l'enregistreur de macro et tu obtient

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
 
Sub Macro20()
'
    Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=C1:C19"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Tu arrange rapidement

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
 
Sub Macro20()
'
 
    With Range("E7").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=A2:A123"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

[laetitia]

bonjour beast666 Krovax le forum comme j ai compris!!!

Code :

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

1
2
3
4
5
6
7
Sub Macro2()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("a2:a123")
[e7] = c
 Next
End Sub

[beast666]

merci à vous deux,

La manip fonctionne très bien grace à vous.

désormais, je souhaiterais, à chaque itération du programme précédent, copier coller les valeurs se trouvant en D11, D12 et D13...

peut importe où les données sont copiées, l'intérêt est d'en avoir un listing...

Merci d'avance

[laetitia]

re je mets sur la meme feuille autrement adapte si tu veus mettre sur un autre feuill ex:feuille2
Range("d11").Copy Destination:=Sheets(2).Range("k65536").End(xlUp)(2)
ect....
autrement

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("a2:a123")
[e7] = c
Range("d11").Copy Destination:=Range("k65536").End(xlUp)(2)
Range("d12").Copy Destination:=Range("l65536").End(xlUp)(2)
Range("d13").Copy Destination:=Range("m65536").End(xlUp)(2)
 Next
End Sub