Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

lenteur macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion michel33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

michel33

Guest
bonjour
dans cette macro,j'ai integre une ligne permettant de
convertir les minuscules en majuscules;seulement la macro met
longtemps a s'executer.je pense qu'il s'agit d'un probleme de
conception de la macro,mais je ne sais pas comment l'ecrire
autrement:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Intersect(Target, Range('d3:g115')) Is Nothing Then Exit Sub
For Each cell In Range('d3:g115')
If cell.Value = '' Then
cell.Offset(0, 1).ClearContents 'effacement
cell.Offset(0, 2).ClearContents 'effacement
cell.Offset(0, 3).Clear 'effacement
End If
If cell.Offset(0, 3).Value = 'rou' Then 'mefc
cell.Offset(0, 3).Font.ColorIndex = 3 'mefc
cell.Offset(0, 3).Interior.ColorIndex = 3 'mefc
ElseIf cell.Offset(0, 3).Value = 'ros' Then 'mefc
cell.Offset(0, 3).Font.ColorIndex = 22 'mefc
cell.Offset(0, 3).Interior.ColorIndex = 22 'mefc
ElseIf cell.Offset(0, 3).Value = 'b' Then 'mefc
cell.Offset(0, 3).Font.ColorIndex = 19 'mefc
cell.Offset(0, 3).Interior.ColorIndex = 19 'mefc
End If
cell.Value = UCase(cell.Value) 'minuscules en majuscules
Next cell
End Sub

je cherche depuis pas mal de temps,mais pas de solution
merci pour l'aide
michel33
 
Trier par date Trier par votes
Bonjour michel33

Excuse du délais de réponce...

Essaie ceci à la place:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range('d3:g115')) Is Nothing Then Exit Sub
Efface_et_couleur
End Sub

Public Sub Efface_et_couleur()
Dim cell As Range
Dim Icouleur As Integer
Application.ScreenUpdating = False
Range('B8:D115').SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For Each cell In Range('E8:E' & Range('D65536').End(xlUp).Row)
    With cell
         Select Case .Value
                Case 'rou'
                     Icouleur = 3
                Case 'ros'
                     Icouleur = 22
                Case 'b'
                     Icouleur = 19
         End Select
        .Select
        .Font.ColorIndex = Icouleur
        .Interior.ColorIndex = Icouleur
    End With
Next cell
End Sub

Message édité par: Hellboy, à: 09/05/2005 04:18
 
Vote positif 0 Vote négatif
Bonjour

c'est le WE et le retour à la maison. Ma famille m'a transmis ton fichier par mail

A partir de celui-ci je te propose le fichier joint, à tester.

A noter que je n'utilise pas systématiquement les macros car excel fait déjà beaucoup de choses (validation, filtre...)

je n'ai pas eu le temps de me pencher sur la macro flash que tu utilises. Il faudrait invalider la sélection de cellule tant que le flash n'est pas fini (il faut voir s'il existe des wait, sleep...)

A+ [file name=Cave1.zip size=27390]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Cave1.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
bonjour Eric
merci pour le fichier;je ne l'ai eu que ce matin(pas eu le temps de me connecter hier).Je vais le tester et je te tiens au courant.
Pour ce qui est de la macro flash,le probleme est resolu
A plus tard
michel33
 
Vote positif 0 Vote négatif
bonjour aux utilisateurs du forum
que faut-il rajouter a cette ligne:
If LCase(Left$(Target.Value, 3)) = 'rou' Then Target.Value = 'Rouge'
pour que le texte'rouge' apparaisse en rouge ?

pour Eric S en particulier:
j'ai commencé à regarder ton fichier;et je vais utiliser une partie de tes recherches pour modifier mon projet qui a evolué depuis
Je te l'enverrai ultérieurement pour me donner ton avis
A+
michel33
 
Vote positif 0 Vote négatif
:angry:
Il est temps d'avoir un fichier, camarade!

Comme l'a écrit Francis, je crois, '....il est vivement conseillé de mettre un fichier joint(Zip -50Ko sans accent ni caractères spéciaux)car il nous faut a chaque fois construire le fichier ..... et c'est pas encourageant donc mets un extrait de ton fichier....

En plus ils sont tous à la messe, apparemment, car il y a pas grand monde par ici en ce moment :evil:

A part ça, une remarque que je crois importante, tu marques à une ligne .clear ce qui supprime toute mise en forme. est-ce intentionnel?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
409
KTM
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
466
nabilexcel2007
N
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
212
pascal21
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
614
un internaute
U
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
2 K
Felipe54
F
S
  • Question Question
XL 2021 macro VBA excel
Réponses
1
Affichages
666
crocrocro
C
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
454
un internaute
U
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
584
jalaba
J
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
733
un internaute
U
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
810
thunder23
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
651
souhaib ad
S
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
551
mikeduff
M
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
583
ManuEven
M
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
808
KRUG WOO
K
G
  • Question Question
XL 2021 Dictionnaire - Calcul ne s'effectue pas
Réponses
2
Affichages
492
gvives
G
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
786
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…