Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

transposer liste de noms

maval

XLDnaute Barbatruc
Bonjour

J'ai dans une colonne A5 une liste de noms. A l'aide de mon bouton j'aimerai qu'il m'affiche en colonne "D" ceci

Code:
                 <text font-size="100" x="-110" y="50" display="none" style="font-size:15px;font-weight:bold;fill: #bbef0d;font-family:Verdana">
xxxxxx
       <animate fill="freeze" dur="0.1s" begin="01.mouseover" from="none" to="block" attributeName="display"></animate>
       <animate fill="freeze" dur="0.1s" begin="01.mouseout" from="block" to="none" attributeName="display"></animate>
           </text>

Je join mon fichier qu'il seras plus explicite.

Max
 

Pièces jointes

  • mise en forme.xlsm
    10 KB · Affichages: 28

Theze

XLDnaute Occasionnel
Bonjour,

Un truc dans le genre ?
Code:
Sub Test()
   
    Dim Plage As Range
    Dim Cel As Range
    Dim Lig As Long
    Dim TxtDebut As String
    Dim TxtFin As String
    Dim TxtAnimal1 As String
    Dim TxtAnimal2 As String
    Dim I As Long
   
    With Worksheets("Feuil1")
   
        Set Plage = .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp))
   
        Lig = 5
       
        For Each Cel In Plage
       
            I = I + 1
            TxtDebut = "                 <text font-size=""100"" x=""-110"" y=""50"" display=""none"" style=""font-size:15px;font-weight:bold;fill: #bbef0d;font-family:Verdana"">"
            TxtAnimal1 = "       <animate fill=""freeze"" dur=""0.1s"" begin=" & Format(I, "00") & ".mouseover"" from=""none"" to=""block"" attributeName=""display""></animate>"
            TxtAnimal2 = "       <animate fill=""freeze"" dur=""0.1s"" begin=" & Format(I, "00") & ".mouseout"" from=""block"" to=""none"" attributeName=""display""></animate>"
            TxtFin = "           </text>"
           
            .Cells(Lig, 4).Value = TxtDebut
            .Cells(Lig + 1, 4).Value = Cel.Value
            .Cells(Lig + 2, 4).Value = TxtAnimal1
            .Cells(Lig + 3, 4).Value = TxtAnimal2
            .Cells(Lig + 4, 4).Value = TxtFin
           
           Lig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
           
        Next Cel
   
    End With
   
End Sub
 

maval

XLDnaute Barbatruc
Salut Theze

C'est exactement cela et je te remercie beaucoup. Juste une petite modif, comment faire pour que, si les cellules sont déjà remplis effacer les cellules en "D".
Ou je fait une macro pour effacer avant?

Merci beaucoup
Max
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour le forum
Maval vu que tu n'as pas eu de réponse je me permets de terminer
Effacement : est ce pour re écrire dessus comme j'ai fait ou effacer la plage précédente pour re écrire
en dessous ? Là Theze écrit à la suite donc si tu lances 10 fois tu es vite à la ligne 1000 !!
Comme dit : j'efface et je re écris dessus
 

Pièces jointes

  • mise en forme.xlsm
    21.1 KB · Affichages: 19
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…