Discussion :

[argv666]

bonjour,

je souhaite grouper des colonnes Excel sous VBA.
Voici ce que j'ai :

Code :

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

 xlapp.ActiveWorkbook.Sheets(iNumSheet).Columns(sCols).Columns.Group

ou inumsheet et scols sont des variables. Cela fonctionne.
Mais le "hic" c'est que je ne connais pas le nombre de colonne (ca bouge tous les mois !), je ne peut donc pas utiliser ceci.
Voici donc mon nouveau code :

Code :

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

1
2
3
4
5
6
7
8
9
 Sub GroupementHorizontalDynamique(iNumSheet, iColumnsDeb)
 
    For IColumns = iColumnsDeb To iColumnsDeb + maxRows
        If xlapp.ActiveWorkbook.Sheets(iNumSheet).Cells(7, IColumns).Font.Bold = True _
        And xlapp.ActiveWorkbook.Sheets(iNumSheet).Cells(7, IColumns).Font.Italic = True Then
            xlapp.ActiveWorkbook.Sheets(iNumSheet).Range(Cells(7, iColumnsDeb), Cells(7, IColumns - 1)).Columns.Group
        End If
    Next
End Sub

Apparement, il n'aime pas la ligne ou je groupe. Car lorsque j'execute deux fois la macro, elle plante...
Savez vous si on peut identifier des colonnes par des chiffres et non par des lettres, cela m'arrangerais ?
merci, j'espere etre clair...

[argv666]

personne :-(
vous n'avez pas une petite idée pour m'aider ?

[dadavyvy]

Code :

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

1
2
3
 
Set feuille = xlapp.ActiveWorkbook.Sheets(iNumSheet)
feuille.Range(feuille.Cells(7, iColumnsDeb).EntireColumn, feuille.Cells(7, IColumns - 1).EntireColumn).Group

Attention, n'oublie pas les feuille.Cells(...), sinon cela plantera car ceux ne seront pas les cellules de la feuille iNumSheet, mais de la feuille Active.

[argv666]

merci beaucoup cela fonctionne
Tu es un génie dadavyvy !!!