Question [Rafraîchir une celulle]?

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"

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

Re : Question [Rafraîchir une celulle]?

Pour Calculate

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

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é

Re : Question [Rafraîchir une celulle]?

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

Re : Question [Rafraîchir une celulle]?

Misange à dit:

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

Cliquez pour agrandir...

Bastando voilà la réponse

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/

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 😛

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

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!

Re : Question [Rafraîchir une celulle]?

Re,

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