Question [Rafraîchir une celulle]?

[Bastando]

Bonjour,

J'ai plusieurs macros VBA dans mon fichier excel qui fonctionnent, cependant, certaines ne sont pas mis à jour en direct.

Je m'explique : J'ai par exemple une macro qui me permet de colorer une ligne en fonction d'une valeur (Liste) d'une cellule, la coloration n'est effective que si je reclique sur ma cellule après avoir sélectionner une valeur...

J'ai également une macri qui remplace chaque minuscule en majuscule de maniere automatique, mais il faut que je clique sur chaque cellule également....

Pourquoi?!

Merci d'avance pour vos réponses 🙂

 

[gilbert_RGI]

Re : Question [Rafraîchir une celulle]?

bonsoir

Trois méthodes...

appuyer sur F9...

ou

ajouter Calculate dans le code

ou

définir "mode de calcul automatique" en faisant :

Outils/Options/Calcul et cocher " Calculs automatiques"

 

[Bastando]

Re : Question [Rafraîchir une celulle]?

Bonsoir merci pour cette réponse rapide,

mais les 3 méthodes ne fonctionnent pas 🙁

J'avais déjà testé F9 puis le mode de calcul auto.

J'ai donc réesssayé mais ça ne fonctionne toujours pas, idem pour la fonction calculate

 

[gilbert_RGI]

Re : Question [Rafraîchir une celulle]?

Pour Calculate

a quel endroit avez vous placé cette méthode ?

 

[Bastando]

Re : Question [Rafraîchir une celulle]?

Dans le worksheet de ma feuille :

Dim Cel As Range
Dim Plg As Range
Set Plg = Intersect(Target, [C2:E250,O2😛250])
If Plg Is Nothing Then Exit Sub
For Each Cel In Plg
Cel = UCase(Cel)
Next Cel

Calculate

End Sub

Sans doute très mal placé

 

[Misange]

Re : Question [Rafraîchir une celulle]?

Bonjour
place la dans le worksheet_change et ça ira tout de suite mieux 🙂

 

[gilbert_RGI]

Re : Question [Rafraîchir une celulle]?

Bonjour
place la dans le worksheet_change et ça ira tout de suite mieux 🙂

Bastando voilà la réponse

 

[tototiti2008]

Re : Question [Rafraîchir une celulle]?

Bonjour Bastando, Bonjour Gilbert, Bonjour Misange, 🙂

@Gilbert : un petit tour par le salon ? https://www.excel-downloads.com/threads/un-nouveau-barbatruc-gilbert.180946/

 

[Bastando]

Re : Question [Rafraîchir une celulle]?

Bonjour à tous, et merci pour vos réponses,

Cependant je galère toujours, sans doute par mon manque d'experience 😛

J'ai donc changé de place la commande Calculate comme vous me l'avez recommandé :

Private Sub Worksheet_Change(ByVal Target As Range)

Calculate

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 15 _
And Target.Row >= 2 Then
If UCase(Target.Value) = "BB" Or UCase(Target.Value) = "BL" Or UCase(Target.Value) = "MA" Or UCase(Target.Value) = "CM" Or UCase(Target.Value) = "FA" Or UCase(Target.Value) = "WK" Or UCase(Target.Value) = "MF" Or UCase(Target.Value) = "MA" Then
Target.EntireRow.Interior.ColorIndex = 35
Else
Target.EntireRow.Interior.ColorIndex = 0
End If
End If
If Target.Column = 16 _
And Target.Row >= 2 Then
If UCase(Target.Value) = "CM" Or UCase(Target.Value) = "FA" Or UCase(Target.Value) = "MF" Or UCase(Target.Value) = "MA" Or UCase(Target.Value) = "WK" Then
Target.EntireRow.Interior.ColorIndex = 43
End If
End If

Dim Cel As Range
Dim Plg As Range
Set Plg = Intersect(Target, [C2:E250,O2😛250])
If Plg Is Nothing Then Exit Sub
For Each Cel In Plg
Cel = UCase(Cel)
Next Cel
End Sub

voila l’intégralité de mes macros 😛

 

[tototiti2008]

Re : Question [Rafraîchir une celulle]?

Re,

enlève le Calculate de Worksheet_change, coupe tout le code de Worksheet_SelectionChange et colle le dans Worksheet_change

 

[Bastando]

Re : Question [Rafraîchir une celulle]?

Merci beaucoup 🙂 ça fonctionne à merveille, je vais chercher à comprendre la différence entre ces deux Worksheet 😛

bonne journée à tous!

 

[tototiti2008]

Re : Question [Rafraîchir une celulle]?

Re,

L'aide VBA t'aidera surement... 😉