Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1361 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  excel executer cellules

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

excel executer cellules

n°1462369
spbreizh1
Posté le 22-10-2006 à 11:54:09  profilanswer
 

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

mood
Publicité
Posté le 22-10-2006 à 11:54:09  profilanswer
 

n°1462449
seniorpapo​u
Posté le 22-10-2006 à 14:56:39  profilanswer
 

Bonjour,
voir d'abord si dans : outils->optins-> onglet calcul la case calcul automatique est cochée
Cordialement

n°1462468
spbreizh1
Posté le 22-10-2006 à 15:57:12  profilanswer
 

la case est cochée
 
@+

n°1462471
spbreizh1
Posté le 22-10-2006 à 16:03:34  profilanswer
 

Pour executer la cellule il faut double clicker dans la cellule et appuyer sur entrer .... Comment puis-je echapper à ça ?
 
@+

n°1462476
spbreizh1
Posté le 22-10-2006 à 16:16:19  profilanswer
 

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
n°1462486
galopin01
Posté le 22-10-2006 à 16:59:19  profilanswer
 

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+

n°1462506
spbreizh1
Posté le 22-10-2006 à 17:56:41  profilanswer
 

Et je l'insert ou
 
@+

n°1462513
Ridjidji
Posté le 22-10-2006 à 18:11:30  profilanswer
 

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 ?

n°1462520
galopin01
Posté le 22-10-2006 à 18:27:58  profilanswer
 

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

n°1462580
spbreizh1
Posté le 22-10-2006 à 20:09:11  profilanswer
 

a oui ... excuse-moi !!!
Ca marche en appuyant sur F9 Mais ce n'est pas rapide .
 
Merci !!

mood
Publicité
Posté le 22-10-2006 à 20:09:11  profilanswer
 

n°1462608
seniorpapo​u
Posté le 22-10-2006 à 20:59:00  profilanswer
 

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

n°1462619
spbreizh1
Posté le 22-10-2006 à 21:26:16  profilanswer
 

? Ca ne marche pas ?
par contre Application.Volatile fait ralentir considérablement la modification des cellules
 
@+

n°1462628
seniorpapo​u
Posté le 22-10-2006 à 21:57:26  profilanswer
 

Bonne nuit,
peux-tu envoyer un xls simplifié ??
j'aimerai savoir pourquoi cela ne marche pas.
Merci
A demain

n°1462746
seniorpapo​u
Posté le 23-10-2006 à 07:45:24  profilanswer
 

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
n°1468563
spbreizh1
Posté le 01-11-2006 à 09:24:11  profilanswer
 

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

n°1468608
seniorpapo​u
Posté le 01-11-2006 à 11:29:10  profilanswer
 

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

n°1468853
spbreizh1
Posté le 01-11-2006 à 21:14:40  profilanswer
 

super merci beaucoup...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  excel executer cellules

 

Sujets relatifs
[EXCEL + VBA ] Mise en forme conditionnelle[Excel/VBA] Manipulation de tableaux à 2 dimensions
Numérotation feuilles excelQuestion toute simple sur les arrays en VBA / Excel
Recherche multiple dans Excel[Excel] Filtrer une colonne à partir d'une cellule
Excel : convertisseur binaireHelp fonction personnalisée Excel 2003
Executer Formulaire de contact 
Plus de sujets relatifs à : excel executer cellules


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR