[VBA] groupement de colonnes
bonjour,
je souhaite grouper des colonnes Excel sous VBA.
Voici ce que j'ai :
Code:
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:
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...
