excel executer cellules

excel executer cellules - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 22-10-2006 à 11:54:09   

Reply

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

Reply

Marsh Posté le 22-10-2006 à 15:57:12    

la case est cochée
 
@+

Reply

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 ?
 
@+

Reply

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.


Message édité par spbreizh1 le 22-10-2006 à 16:17:23
Reply

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+

Reply

Marsh Posté le 22-10-2006 à 17:56:41    

Et je l'insert ou
 
@+

Reply

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 ?

Reply

Marsh Posté le 22-10-2006 à 18:27:58    

http://perso.orange.fr/galopin01/images/fatigue.jpg

Reply

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

Reply

Marsh Posté le 22-10-2006 à 20:09:11   

Reply

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

Reply

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
 
@+

Reply

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

Reply

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


Message édité par seniorpapou le 23-10-2006 à 07:46:00
Reply

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

Reply

Marsh Posté le 01-11-2006 à 11:29:10    

Bonjour,
 
un bouton comme cela?
http://cjoint.com/?lblBreWmMH
Cordialement

Reply

Marsh Posté le 01-11-2006 à 21:14:40    

super merci beaucoup...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed