2 ptits pbs

[lafrite]

Je voudrais un code VBA pour effacer une feuille graphique, car quand je genere une petite macro, le code ne fonctionne pas tout le temps !
Je ne sais pas testé si le graph existe, s'il n'existe et que je l'efface , ca plante !

De plus je cherche à tester si dans une listbox à selection multiple
aucun elts n'a été selectionné!
l'exemple que vous avez donné ne fonctionne pas !

Merci mille fois pour votre aide !

 

[daniel]

Pour tester si il y a une selection dans une listbox, la solution a deja ete donnee et fonctionne PARFAITEMENT:

Sheet1.ListBox1.ListIndex = -1 si pas de selection

 

[lafrite]

Désolais CHEF, mais mon listbox est sur un userForm et CA NE MARCHE PAS

If (UserForm2.ListBox1.ListIndex = -1) Then
bok = False
MsgBox "stop"
End If

 

[daniel]

Tssss !!!
C'est bien dommage, parceque que ce soit dans une feuille ou dans une userform, de mon cote CA MARCHE PARFAITEMENT.
Attache la preuve...

merci !!!

 

[eric]

essaie comme ça, je pense que ton problème provient du fait que tu ne sors pas de ta procédure si aucun élément n'est sélectionné :"exit sub"

If ListBox1.ListIndex < 0 Then MsgBox ("ton message"): Exit Sub

bonne journée

 

[lafrite]

Ca marche en testant =0 , merci ;
J'ai un dernier souci, comment efface t- on une zone graphique proprement
Merci

 

[daniel]

Sheets1.Range("debut:fin")=Empty

 

[lafrite]

Excuse moi, mais ma feuille est une feuille graphique, iln'y a pas de numero
de colonnes, donc je ne sais pas quoi mettre pour debut:fin

 

[daniel]

alors efface ton graphique complet:
Sheet1.ChartObjects.Delete
ou depuis la fonction qui a cree ton graphique recupere la zone de donnees

 

[lafrite]

Ou là pas facile, tu as l'air de maitriser, t'as pas un bout de code sous la main à me passer

 

[daniel]

ce matin je t'ai fait parvenir un code pour faire un zoom sur ton graphique,
tu te rapelle ?, et bien tu remplace le contenu de la fonction par:
Sheet1.ChartObjects.Delete
et ca devrait fonctionner. Peut etre devra tu adapter le nom de ton objet graphique...

 

[lafrite]

Tout a fait, je t'en remercie d'ailleurs car ca marche d'enfer, mais j'ai effectivement un ptit pb pour recuperer le nom du graphique, car quand
je ne suis plus dans la même fonction
et Une macro excel me genere

Sheets("Graphique").Select
ActiveSheet.ChartObjects("Graphique 1127").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
Sheets("Saisie des paramètres").Select

le souci c'est comme tu dis d'être capable de boucler sur tout les ChartObjects car Graphique 1127 c'est excel qui ma le genere !

Peux tu m'aider pour cette dernière tache

merci

 

[Popeye]

faut boucler avec un truc du genre
dim truc as chartobject
for each truc in chartobject
truc.delete
next


c quelque chose dans ce genre
l'exemple devrait effacer tous les graphiques de ton classeur