Graphique Excel en VBA Résolu/Fermé

Question

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

Configuration: Windows XP / Internet Explorer 7.0

michel_m · Answer

bonjour, 

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

ccm81 · Answer

bonjour  

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

ccm81 · Answer

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 !  

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