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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] [Excel] Chercher la première ligne après un graphique

bclinton

ex président

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 :

Sub tralala()
Dim Bottom As Double
Dim Ligne As Integer
Sheets("Essai" ).ChartObjects("Jojo" ).Select
Bottom = Selection.Top + Selection.Height
Ligne = 1
While Sheets("essai" ).Cells(Ligne, 1).Top < Bottom
Ligne = Ligne + 1
Wend
MsgBox "Ligne : " & Ligne
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.

Publicité

bclinton

ex président

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

Code :

Function TrouverLigneApresGraphique(NomFeuille As String, NomGraphique As String) As Long
Dim Bottom As Double
Dim Ligne As Long
Sheets(NomFeuille).ChartObjects(NomGraphique).Select
Bottom = Selection.Top + Selection.Height
Ligne = 1
While Sheets(NomFeuille).Cells(Ligne, 1).Top < Bottom
Ligne = Ligne + 1
Wend
TrouverLigneApresGraphique = Ligne
End Function

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[OOoBasic] Import Base dans Excel	date excel
Afficher la cellule dans 1 textbox par intersection ligne & colonne	[VBA] Fonction qui ne retourne rien. Possible ?
Problème de sélection de feuille excel	Imprimer Une seule ligne ?
Sous VBA Fermeture du classeur	[Résolu]Comment activer une application Excel qui change de nom
Appel d'une macro en code VBA	Parsage de forum en ligne :: acceptable ?
Plus de sujets relatifs à : [VBA] [Excel] Chercher la première ligne après un graphique

Page générée en 0.061 secondes