Graphique Excel en VBA
Résolu
Arsène Wenger
-
Arsène Wenger -
Arsène Wenger -
Bonjour,
je suis sous Office 2007, je souhaiterai savoir comment changer la formule :
ActiveChart.SeriesCollection(6).Values = "='Bilan'!$B$6:$J$6"
en quelque chose que j'ai écrit (qui ne marche pas) et qui ressemblerait un peu à çà :
ActiveChart.SeriesCollection(6).Values = "='Bilan'!$B$6:$" & Range("A1").End(xlToRight).Column & "$6"
...Merci d'avance
je suis sous Office 2007, je souhaiterai savoir comment changer la formule :
ActiveChart.SeriesCollection(6).Values = "='Bilan'!$B$6:$J$6"
en quelque chose que j'ai écrit (qui ne marche pas) et qui ressemblerait un peu à çà :
ActiveChart.SeriesCollection(6).Values = "='Bilan'!$B$6:$" & Range("A1").End(xlToRight).Column & "$6"
...Merci d'avance
A voir également:
- Graphique Excel en VBA
- Liste déroulante excel - Guide
- Graphique camembert excel - Guide
- Changer carte graphique - Guide
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
bonjour,
col est la traduction en lettre de la dernière colonne utilisée ligne 1
valable jusqu'à colonne Z
Michel
col est la traduction en lettre de la dernière colonne utilisée ligne 1
valable jusqu'à colonne Z
Dim col As String * 1
col = Chr(Range("AA1").End(xlToLeft).Column + 64)
ActiveChart.SeriesCollection(6).Values = "='Bilan'!$B$6:$" & col & "$6"
Michel
re
- en tentant une fonction recursive, je me suis aperçu d'une erreur dans mon code, je l'ai corrigée dans le post 3
- une fonction qui permet de convertir les numéros de colonnes en alpha pour excel ... 2099 au moins !
- en tentant une fonction recursive, je me suis aperçu d'une erreur dans mon code, je l'ai corrigée dans le post 3
- une fonction qui permet de convertir les numéros de colonnes en alpha pour excel ... 2099 au moins !
Function cnumtocalpha(ByVal c As Long) As String
If c <= 26 Then
If c = 26 Then
cnumtocalpha = "Z"
Else
cnumtocalpha = Chr(64 + c)
End If
Else
If c Mod 26 = 0 Then
cnumtocalpha = cnumtocalpha(c \ 26 - 1) & cnumtocalpha(26)
Else
cnumtocalpha = cnumtocalpha(c \ 26) & cnumtocalpha(c Mod 26)
End If
End If
End Function
bonjour
et si la colonne dépasse Z une fonction qui transforme le n° de colonne en lettre(s)
puis finir comme comme michel_m
bonne suite
et si la colonne dépasse Z une fonction qui transforme le n° de colonne en lettre(s)
Function conum_coalpha(cn As Long) As String
Dim pln As Long, dln As Long
Dim cs As String
If cn <= 26 Then
conum_coalpha = Chr(64 + cn)
Else
dln = cn Mod 26
pln = cn \ 26
If dln = 0 Then
dln = 26
pln = pln - 1
End If
conum_coalpha = Chr(64 + pln) & Chr(64 + dln)
End If
End Function
dim col as string
col = conum_coalpha(Range("A1").End(xlToRight).Column)
puis finir comme comme michel_m
bonne suite
Function car_col(num As Integer) As String Dim serie As Byte Select Case num Case Is = 0 car_col = "#########" Case Is < 27 car_col = Chr(64 + num) Case Else serie = Int((num - 26) / 27) + 1 car_col = Chr(64 + serie) & Chr(64 + num - 26 * serie) End Select End Function