XL 2013 Réorganiser les données contenues dans une colonne

[SebFF37]

Bonjour,


Je suis nouveau sur le site et je débute sur excel.
J'ai un fichier avec des données en colonnes (noms de chateaux avec les tarifs d'entrée).
Il faut que je le réorganise de façon à avoir les informations pour chaque chateau en ligne.
Je ne suis pas certain d'être très clair.
Je vous glisse un exemple de ce qu'il faut que j'obtienne. Deux onglets pour illustrer.
Le premier, illustre ce que j'ai actuellement.
Le second, ce que je souhaite obtenir.
Merci d'avance de votre aide.
Bonne soirée,
Sébastien

 

[JHA]

Bonjour à tous,

Pas certain que c'est ce que tu souhaites, avec la fonction transpose:

JHA

 

[frangy]

Bonjour,

Une proposition avec macro

Sub test()
Dim WsS As Worksheet, WsC As Worksheet
Dim LigneS As Long, LigneC As Long
Dim ColonneC As Integer
    Set WsS = Worksheets("Source")
    Set WsC = Worksheets("cible")
    For LigneS = 1 To WsS.Range("A" & Rows.Count).End(xlUp).Row
        If WsS.Cells(LigneS, 1) Like "*Château*" Then
            ColonneC = 1
            LigneC = LigneC + 1
        Else
            ColonneC = ColonneC + 1
        End If
        WsS.Cells(LigneS, 1).Copy WsC.Cells(LigneC, ColonneC)
    Next LigneS
End Sub

Cordialement.

 

[SebFF37]

Hello à tous,
Merci pour votre réactivité.
Super ! Ca marche. Vous êtes top !
Pour ma culture personnelle, dans la formule, on dit (en gros) à chaque fois qu'il y a "chateau" on renvoie à la ligne. Qu'aurait-il fallu écrire dans cette même formule pour que le renvoie à la ligne ne s'opère que dans le cas où la case contient une "url" ?
Merci d'avance,
Bonne journée à tous
Sébastien

 

[frangy]

Bonjour,

Il suffirait remplacer la ligne

If WsS.Cells(LigneS, 1) Like "*Château*" Then

par

If WsS.Cells(LigneS, 1).Hyperlinks.Count > 0 Then

Cordialement.

 

[SebFF37]

Top ! Ca marche !
Merci beaucoup pour votre aide efficace.
Bonne journée à tous !