Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

VBA Excel : parcours d'une ligne

Dernière réponse le 28 aoû 2007 à 18:54:07 enigmatoile, le 28 aoû 2007 à 15:03:53

Signaler ce message aux modérateurs

Bonjour,

Je souhaite écrire du code afin de transformer untableau de type

TRUC1 | BIDULE1 | BIDULE2 | BIDULE3

en

TRUC1 | BIDULE1
TRUC1 | BIDULE2
TRUC1 | BIDULE3

J'ai compris qu'il fallair que je parcours ma ligne et que tant que je ne rencontre pas une cellule vide, je dois insérer une nouvelle ligne et couper coller les valeurs qui vont bien.

Question : comment faire la boucle de parcours de la ligne?

Un truc genre FOR i=A TO Z mais comment l'incrémenter quand c'est des lettres?

Merci beaucoup pour l'aide que vous pourrez m'apporter. **Enigmatoile**

Meilleures réponses pour « VBA Excel : parcours d'une ligne » dans :

Cours VBA Excel en ligne ? Voir

Vba excel copier lignes avec condition (Résolu) Voir

[Excel Vba] Insérer une ligne (Résolu) Voir

Excel VBA suppression de ligne vide (Résolu) Voir

Choix boucles VBA Excel(Do While, Loop...For Voir

[Recherche] Programmeur VBA Excel Voir

Posez votre question Répondre

Lupin.A, le 28 aoû 2007 à 15:38:59

Bonjour,

Suggestion :

Sub Transpose()

    Const FleAjout = "Résultats"

    Dim Valeur As Variant, Colonne As Long, Boucle As Long
    Dim Feuille As String
    
    Valeur = ActiveCell.Offset(0, 0).Value
    Colonne = ActiveCell.End(xlToRight).Column
    Feuille = ActiveSheet.Name
    Worksheets.Add.Name = FleAjout
    For Boucle = 2 To Colonne
        ActiveCell.Offset(0, 0).Value = Valeur
        ActiveCell.Offset(0, 1).Value = Sheets(Feuille).Cells(1, Boucle).Value
        ActiveCell.Offset(1, 0).Select
    Next Boucle
    Sheets(Feuille).Select
    MsgBox "Visualiser la feuille [ Résultats ]."

End Sub
'

Lupin

Configuration: Windows XP
Internet Explorer 6.0

Répondre à Lupin.A

enigmatoile, le 28 aoû 2007 à 15:54:16

Merci beaucoup Lupin, ton code fonctionne bien :)

Plus qu'à l'améliorer poour qu'il soit capable de traiter plusieurs lignes et pas une seume comme dans l'exemple que j'ai donné, et ça sera nickel, mais ça ça devrait etre à ma portée :) **Enigmatoile**

Répondre à enigmatoile

Lupin.A, le 28 aoû 2007 à 18:54:07

Bonjour,

Autre suggestion :

Sub TransposeMultiLignes()

    Const FleAjout = "Résultats"

    Dim Valeur As Variant, Colonne As Long, Boucle As Long
    Dim Compteur As Long, Ligne As Long
    Dim Feuille As String
    
    Feuille = ActiveSheet.Name
    Ligne = ActiveCell.Offset(0, 0).End(xlDown).Row
    Worksheets.Add.Name = FleAjout
    For Compteur = 1 To Ligne
        Sheets(Feuille).Select
        Valeur = ActiveCell.Offset(Compteur - 1, 0).Value
        Colonne = ActiveCell.Offset(Compteur - 1, 0).End(xlToRight).Column
        Sheets(FleAjout).Select
        For Boucle = 2 To Colonne
            ActiveCell.Offset(0, 0).Value = Valeur
            ActiveCell.Offset(0, 1).Value = Sheets(Feuille).Cells(Compteur, Boucle).Value
            ActiveCell.Offset(1, 0).Select
        Next Boucle
        Sheets(Feuille).Select
    Next Compteur
    Sheets(Feuille).Select
    MsgBox "Visualiser la feuille [ Résultats ]."

End Sub
'

Lupin

Configuration: Windows XP
Internet Explorer 6.0

Répondre à Lupin.A

Posez votre question Répondre