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

Classer en colonne des lignes (macro ?)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

josanche

XLDnaute Occasionnel
Bonjour,

J'aurais besoin de classer des lignes de texte en colonne, toutefois je n'arrive pas à bien utiliser le programme de conversion. Je voudrais 4 colonnes dont les titres sont Nom du sénateur, Parti, Etat, Vote et je voudrais remplacé les Y par Yes, N par No et NV par did not vote.

Pourriez-vous trouver un macro qui pourrait répondre à ce problème ? J'ai 100 fichiers excel où je dois faire ce meme procédé avec des noms de sénateurs différents.

Je vous envoie en pièce jointe mon fichier excel pour vous illustrer la situation.
 

Pièces jointes

Trier par date Trier par votes
Re : Classer en colonne des lignes (macro ?)

Bonjour,

En partant du principe que toutes les cellules comportant des noms de sénateurs possèdent des liens hypertextes, tu peux essayer ainsi :

Code: 
Sub parti()
Dim Cel As Range
Dim K As Long, Nbr As Long
Dim Etat As String
Dim Tblo()
Columns(1).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Nbr = Columns(1).Hyperlinks.Count + 1
Columns("D:G").Clear
ReDim Tblo(1 To Nbr, 1 To 4)
K = 1
Tblo(K, 1) = "Sénateur": Tblo(K, 2) = "Parti": Tblo(K, 3) = "Etat": Tblo(K, 4) = "Vote"
For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Cel.Value <> "" Then
        If Cel.Hyperlinks.Count = 0 Then
            Etat = Left(Cel, InStr(1, Cel, ":") - 1)
        Else
            K = K + 1
            Tblo(K, 1) = Trim(Split(Cel, "(")(0))
            Tblo(K, 2) = Trim(Split(Split(Cel, "(")(1), ")")(0))
            Tblo(K, 3) = Etat
            Select Case Right(Trim(Cel), 1)
                Case "Y"
                    Tblo(K, 4) = "Yes"
                Case "N"
                    Tblo(K, 4) = "No"
                Case Else
                    Tblo(K, 4) = "Did not vote"
            End Select
        End If
    End If
Next Cel
Range("D1").Resize(Nbr, 4) = Tblo
End Sub

Nota, tu as des caractères insécables dans les cellules des sénateurs, le dernier caractère...(d'où le remplacement du code (160) par rien)

Bon courage
 
Vote positif 0 Vote négatif
Re : Classer en colonne des lignes (macro ?)

BOnjour, j'ai utilisé, votre macro il est parfait mais juste quelque petites modifications à apporter, vous pouvez inscrire dans le macro pour retirer les lettres "Sen." qui se trouve en face de chaque nom des senateurs car c'est assez redondant et concernant la colonne parti, on voit ceci D-AR- et je voudrais d'abord que les code d'Etat -AR- pour arkansas ou -TX- pour Texas soit retiré et ensuite de transformer les D en "Democratic", R en "Republican" et I en "Independent". Pourriez-vous inscrire cela dans le macro ?

Merci énormément Barbatruc😀
 
Vote positif 0 Vote négatif
Re : Classer en colonne des lignes (macro ?)

Bonjour,

Voir les modifications :

Code: 
Sub parti_2()
Dim Cel As Range
Dim K As Long, Nbr As Long
Dim Etat As String
Dim Tblo()
Columns(1).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Nbr = Columns(1).Hyperlinks.Count + 1
Columns("D:G").Clear
ReDim Tblo(1 To Nbr, 1 To 4)
K = 1
Tblo(K, 1) = "Sénateur": Tblo(K, 2) = "Parti": Tblo(K, 3) = "Etat": Tblo(K, 4) = "Vote"
For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If Cel.Value <> "" Then
        If Cel.Hyperlinks.Count = 0 Then
            Etat = Left(Cel, InStr(1, Cel, ":") - 1)
        Else
            K = K + 1
            Tblo(K, 1) = Trim(Split(Cel, "(")(0))
            If Left(Tblo(K, 1), 4) = "Sen." Then Tblo(K, 1) = Trim(Right(Tblo(K, 1), Len(Tblo(K, 1)) - 4))
            Tblo(K, 2) = Trim(Split(Split(Cel, "(")(1), ")")(0))
            Select Case Left(Tblo(K, 2), 1)
                Case "D"
                    Tblo(K, 2) = "Democratic"
                Case "R"
                    Tblo(K, 2) = "Republican"
                Case Else
                    Tblo(K, 2) = "Independent"
            End Select
            Tblo(K, 3) = Etat
            Select Case Right(Trim(Cel), 1)
                Case "Y"
                    Tblo(K, 4) = "Yes"
                Case "N"
                    Tblo(K, 4) = "No"
                Case Else
                    Tblo(K, 4) = "Did not vote"
            End Select
        End If
    End If
Next Cel
Range("D1").Resize(Nbr, 4) = Tblo
End Sub

Bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
186
agayet
A
P
  • Question Question
XL 2016 Macro pour masquer/démasquer des cellules via mot de passe
Réponses
6
Affichages
240
Jacky67
  • Résolu(e)
Microsoft 365 Powerquery - Total par Compte / lignes en insérant des colonnes
Réponses
5
Affichages
235
chris
N
  • Question Question
XL 2016 Récupération de lignes dans un autre fichier excel
Réponses
4
Affichages
420
ninieg
N
S
  • Question Question
Microsoft 365 Macro Pour inserer 9 lignes à chaque nouveau matricule
2
Réponses
19
Affichages
740
SEVE95
S
G
  • Question Question
XL 2019 Transformer des lignes en colonnes mais conserver la colonne 1 en colonne
Réponses
2
Affichages
433
gafp
G
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
204
AtTheOne
Y
  • Question Question
Microsoft 365 VBA - Basculer des lignes d'onglet en onglet selon un critère
2
Réponses
18
Affichages
939
yanus
Y
T
  • Question Question
Microsoft 365 Macro pour rendre visible les lignes de couleur masquées par des filtres
Réponses
3
Affichages
327
Phil69970
J
  • Question Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
424
jerome91
J
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
671
AtTheOne
L
  • Question Question
Autres Macro pour conevrtir des lignes excel en CSV
Réponses
3
Affichages
531
sylvanu
C
  • Résolu(e)
XL 2021 Supprimer des lignes lorsque, dans une colonne, une certaine valeur est présente
Réponses
14
Affichages
725
Constantin
C
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
601
ftpo69
F
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
744
vgendron
C
  • Question Question
transposer lignes en colonnes
Réponses
1
Affichages
583
sousou
B
  • Résolu(e)
XL 2021 Séparer les adresses (Rue et N°) en 2 cellules avec un macro
2
Réponses
20
Affichages
2 K
Banbara
B
K
  • Question Question
Autres 'Resolu' 'Nettoyer' des lignes par une macro
Réponses
7
Affichages
580
klorane
K
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
515
Romain77144
R
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…