excel executer cellules - VB/VBA/VBS - Programmation
Marsh Posté le 22-10-2006 à 14:56:39
Bonjour,
voir d'abord si dans : outils->optins-> onglet calcul la case calcul automatique est cochée
Cordialement
Marsh Posté le 22-10-2006 à 16:03:34
Pour executer la cellule il faut double clicker dans la cellule et appuyer sur entrer .... Comment puis-je echapper à ça ?
@+
Marsh Posté le 22-10-2006 à 16:16:19
alors le truc c'est que j'essai de compter les cellules de couleur
alors j'ai fait un truc dans ce genre
Function SommeCouleur(plage As Range, CelCouleur As Range) As Long
Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex
For Each Cell In plage
If Cell.Interior.ColorIndex = Couleur Then SommeCouleur = SommeCouleur + 1
Next
End Function
Ensuite j'ai mis cette opération dans la cellule =SommeCouleur(A:A;E2)
mais comme je l'ai expliqué au dessus je suis obligé de faire une manip pour que le calcul soit automatique.
Marsh Posté le 22-10-2006 à 16:59:19
Bonjour,
Insérer :
Function SommeCouleur(plage As Range, CelCouleur As Range) As Long
Dim Couleur
Application.Volatile
Couleur = CelCouleur.Interior.ColorIndex
...Le reste sans changement
ça sera pas parfait mais ça améliorera grandement la chose.
A+
Marsh Posté le 22-10-2006 à 18:11:30
Citation : Pour executer la cellule il faut double clicker dans la cellule et appuyer sur entrer .... Comment puis-je echapper à ça ? |
Bah euh en appuyant sur F9 nan ?
Marsh Posté le 22-10-2006 à 20:09:11
a oui ... excuse-moi !!!
Ca marche en appuyant sur F9 Mais ce n'est pas rapide .
Merci !!
Marsh Posté le 22-10-2006 à 20:59:00
Bonsoir,
tu peux aussi essayer ceci:
au niveau de la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
lorsque tu clic sur n'importe quelle cellule le calcul est fait
Cordialement
Marsh Posté le 22-10-2006 à 21:26:16
? Ca ne marche pas ?
par contre Application.Volatile fait ralentir considérablement la modification des cellules
@+
Marsh Posté le 22-10-2006 à 21:57:26
Bonne nuit,
peux-tu envoyer un xls simplifié ??
j'aimerai savoir pourquoi cela ne marche pas.
Merci
A demain
Marsh Posté le 23-10-2006 à 07:45:24
Bien dormi?
est-ce que ceci fonctionne?
http://cjoint.com/?kxhSjTa7A8
clic sur E1 pour recalculer
Cordialement
Marsh Posté le 01-11-2006 à 09:24:11
bonjour et merci...
Je n'avais plus d'accès Internet ( c'est pour cela que je n'ai pu repondre avant)
Cela fonctionne mais est il possible de remplacer le clic sur E1 par un bouton et si oui comment
Merci encore
Marsh Posté le 01-11-2006 à 11:29:10
Bonjour,
un bouton comme cela?
http://cjoint.com/?lblBreWmMH
Cordialement
Marsh Posté le 22-10-2006 à 11:54:09
Bonjour,
Je suis un hype debutant et je travaille avec excel et je souhaite execueter une mise a jour de 4 cellules en appuyant sur un bouton (les cellules comprenne ce genre de code:=SommeCouleur(A:A;E3))et cella ne se met pas a jour directement il faut que je rentre dans la cellule pour que cela fonctionne. Donc je souhaiterai les rafraichir grace a un bouton.
Merci
SéB