cs_inea
Messages postés23Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention 3 octobre 2008
-
26 juil. 2006 à 11:10
cs_inea
Messages postés23Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention 3 octobre 2008
-
26 juil. 2006 à 16:08
Bonjour !
voilà mon pb :
je fais un tableau basique avec dans deux colonnes des chiffres. Ma troisième colonne est une soustraction : chiffres deuxième colonne - chiffres première colonne
Si il y a eu une hausse les cellules de ma troisième colonne se remplissent par une flèche vers le haut (si baisse => flèche vers le bas...)
Lorsque je change les chiffres de mes colonnes et que je relance la macro mes nouvelles flèches s'inscrivent sur les anciennes. Pour palier a ce pb j'ai écris :
Le pb c'est que j'efface aussi toutes les autres formes automatiques qui sont dans ma feuille (bouton de commande pour exécuter les macros par exemple)
cs_inea
Messages postés23Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention 3 octobre 2008 26 juil. 2006 à 11:26
Hélas le ClearContents ne marche pas non plus puisque dans mes cellules rien n'est écrit, il y a juste ces formes automatiques (flèches) qui ne s'effacent pas avec le clear contents
En tout cas merci quand meme
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_inea
Messages postés23Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention 3 octobre 2008 26 juil. 2006 à 11:35
Bon voilà j'ai tenté un truc :
quand les flèches montent je les ai appellées "vert"
quand les flèches stagnent je les ai appellées "bleu"
quand les flèches descendent je les ai appellées "rouge"
ensuite j'ai fait :
Sheets("progressions").Activate
ActiveSheet.Shapes.Range(Array("bleu", "rouge", "vert")).Select
Selection.Delete
ça marche mais j'ai plusieurs "bleu" et plusieurs "vert", or là ça ne m'efface que les premiers "bleu" et "vert"
Est ce que tout le monde suit ?
cs_inea
Messages postés23Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention 3 octobre 2008 26 juil. 2006 à 12:05
Je vous met un extrait de la boucle qui fait les flèches pour que vous voyiez mieux
je l'ai changé pour que ça appelle les flèches par bleu & un numéro de ligne, comme ça je pourrais peut etre essayer de supprimer tout ce qui est shape et qui commence par bleu
Croyez vous que c'est possible ?
For i = numdeb To numL
prog = Cells(i, 7) - Cells(i, 6)
Cells(i, 8).Activate
hauteur = ActiveCell.Top
bas = ActiveCell.Height + hauteur
milieu = ActiveCell.Height / 2 + hauteur
gauche = ActiveCell.Left
largeur = ActiveCell.Width / 3
diag = ActiveCell.Height
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juil. 2006 à 15:39
Pourquoi tu ne stocke pas les noms lorsque tu cree tes controles.
J'ai creer un classeur avec 10 textbox
et pour les effacer j'ai fait comme suit.
Dim NomObjets() As Variant
Dim i As Integer
ReDim NomObjets(0)
For i = 1 To 10
NomObjets(i - 1) = "TextBox" & i
If i <> 10 Then ReDim Preserve NomObjets(UBound(NomObjets) + 1)
Next
A toi maintenant avec ce principe la d'adapter a tes besoins (en tout cas si tu estime que ton probleme est resolu, pense au reponse acceptée sur les posts qui ont pu t'aider)
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juil. 2006 à 15:57
Salut,
Si tu pars défaitiste t'es pas près d'aller plus loin.
Il te suffit en fait de faire a la fin de ta boucle ou tu donne les nom au selection
Selection.Name = "bleu" & i ou
Selection.Name = "rouge" & i Etc....
D'ajouter ensuite ces deux lignes juste avant le next i:
NomObjets( UBound (NomObjets)) = Selection.Name
If i <> NumL Then ReDim Preserve NomObjets(UBound(NomObjets) + 1)
Avant la boucle:
ReDim NomObjets(0)
Et variable de ta feuille : Dim NomObjets() As Variant
'suppression des anciennes flèches
For j = numdeb To numL
Cells(j, 8).Activate
NomObjets = "line" & j
ActiveSheet.Shapes.Range(NomObjets).Delete
Next j