[VBA] [Excel] Chercher la première ligne après un graphique

Chercher la première ligne après un graphique [VBA] [Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 13-04-2006 à 09:54:00    

Bonjour, j'ai besion de créer une feuille excel en VBA, en intercalant un tableau, puis un graphique et ainsi de suite.
 
J'ai écrit une routine pour trouver la première ligne apres le graphique :

Code :
  1. Sub tralala()
  2.     Dim Bottom As Double
  3.     Dim Ligne As Integer
  4.    
  5.     Sheets("Essai" ).ChartObjects("Jojo" ).Select
  6.     Bottom = Selection.Top + Selection.Height
  7.     Ligne = 1
  8.     While Sheets("essai" ).Cells(Ligne, 1).Top < Bottom
  9.         Ligne = Ligne + 1
  10.     Wend
  11.     MsgBox "Ligne : " & Ligne
  12. End Sub


 
Ca marche. Mais je voudrais juste savoir s'il n'y avait pas un moyen plus simple pour arriver a ce résultat.
Y a-t-il une foncton Excel qui donne directement cette case ou bien dois-je utiliser ma routine ?
 
Merci.

Reply

Marsh Posté le 13-04-2006 à 09:54:00   

Reply

Marsh Posté le 13-04-2006 à 10:00:24    

Pour ceux que ca intéresse je l'ai réécrite avec des variables, ca fait plus sérieux :

Code :
  1. Function TrouverLigneApresGraphique(NomFeuille As String, NomGraphique As String) As Long
  2.     Dim Bottom As Double
  3.     Dim Ligne As Long
  4.    
  5.     Sheets(NomFeuille).ChartObjects(NomGraphique).Select
  6.     Bottom = Selection.Top + Selection.Height
  7.     Ligne = 1
  8.     While Sheets(NomFeuille).Cells(Ligne, 1).Top < Bottom
  9.         Ligne = Ligne + 1
  10.     Wend
  11.     TrouverLigneApresGraphique = Ligne
  12. End Function

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed