2 ptits pbs

D

daniel

Guest

• 8 Avril 2003

• #2

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

 

Vote positif 0 Vote négatif

L

lafrite

Guest

• 8 Avril 2003

• #3

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 8 Avril 2003

• #4

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

 

Pièces jointes

• GUI_1.xls

  30.5 KB · Affichages: 43

Vote positif 0 Vote négatif

E

eric

Guest

• 8 Avril 2003

• #5

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

 

Vote positif 0 Vote négatif

L

lafrite

Guest

• 8 Avril 2003

• #6

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 8 Avril 2003

• #7

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

 

Vote positif 0 Vote négatif

L

lafrite

Guest

• 8 Avril 2003

• #8

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 8 Avril 2003

• #9

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

 

Vote positif 0 Vote négatif

L

lafrite

Guest

• 8 Avril 2003

• #10

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 8 Avril 2003

• #11

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

 

Vote positif 0 Vote négatif

L

lafrite

Guest

• 8 Avril 2003

• #12

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

 

Vote positif 0 Vote négatif

P

Popeye

Guest

• 8 Avril 2003

• #13

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

 

Vote positif 0 Vote négatif