Message d'erreur

Bonjour Daniel,

Vérifie que la version anglaise Excel ne modifie pas les noms des boutons "Bouton 6" pour "Button 6", etc. Si tel est le cas, essaie
de personnaliser le nom des boutons par autre chose que "Bouton" comme "Toto 6".


Salutations!



"Daniel" <pellet15@videotron.ca> a écrit dans le message de news: OMi9lt45FHA.2776@TK2MSFTNGP15.phx.gbl...
Bonjour

La macros suivante me donne le nombre de ligne et le nom sur des bouton.

Sur mon laptop windows est en francais ca va, mais sur mes collègue
windows est en anglais et la macros blocque.
Message d'erreur

Pourquoi et quoi faire???
Merci

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
Me.Shapes("Bouton 6").OLEFormat.Object.Text = [countif(N2:N500,"1")] & "
Urgent"
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "Near Urgent " &
[countif(N2:N500,"3")]
Me.Shapes("Bouton 11").OLEFormat.Object.Text = [K2] & " Relevé_Wagon
D'oscultation"
End If
End Sub

Bonsoir daniel,
Denis à parfaitement raison et si tu veux te faliciter les choses, tu peux
lancer l'enregistreur de macro et sélectionner les objets un par un.
Tu verras que VBA transforme tous les noms d'objets Français y compris ceux
de dessin en noms Anglais tels que :
ActiveSheet.Shapes("Button 1").Select ' boutons Contrôles
ActiveSheet.Shapes("CommandButton1").Select ' bouton Formulaire
idem pour ("Drop Down 10") ...("List Box 11").....("AutoShape 9")
....("Oval 3")....("Rectangle 4")....("AutoShape 6").....etc....

Le mieux est de les écrire avec leurs noms anglais sinon on peut aussi
utiliser :
if Application.LanguageSettings.LanguageID(msoLanguageIDInstall) = 1036
then
' ----- code en Français

else
' - code en anglais (il existe un code pour chaque langue
d'installation)

End If

....mais c'est plus lourd
A+
Robert

"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
OMi9lt45FHA.2776@TK2MSFTNGP15.phx.gbl...

Bonjour

La macros suivante me donne le nombre de ligne et le nom sur des bouton.

Sur mon laptop windows est en francais ca va, mais sur mes collègue
windows est en anglais et la macros blocque.
Message d'erreur

Pourquoi et quoi faire???
Merci

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
Me.Shapes("Bouton 6").OLEFormat.Object.Text = [countif(N2:N500,"1")] &
" Urgent"
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "Near Urgent " &
[countif(N2:N500,"3")]
Me.Shapes("Bouton 11").OLEFormat.Object.Text = [K2] & " Relevé_Wagon
D'oscultation"
End If
End Sub

Bonsoir Michdenis

Je ne peut faire l'essai maintenant je voie un de mes collègues mardi et je
ferai les modification
Merci

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O1ZB5u55FHA.2192@TK2MSFTNGP14.phx.gbl...

Bonjour Daniel,

Vérifie que la version anglaise Excel ne modifie pas les noms des boutons
"Bouton 6" pour "Button 6", etc. Si tel est le cas, essaie
de personnaliser le nom des boutons par autre chose que "Bouton" comme
"Toto 6".


Salutations!



"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
OMi9lt45FHA.2776@TK2MSFTNGP15.phx.gbl...
Bonjour

La macros suivante me donne le nombre de ligne et le nom sur des bouton.

Sur mon laptop windows est en francais ca va, mais sur mes collègue
windows est en anglais et la macros blocque.
Message d'erreur

Pourquoi et quoi faire???
Merci

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
Me.Shapes("Bouton 6").OLEFormat.Object.Text = [countif(N2:N500,"1")] &
"
Urgent"
Me.Shapes("Bouton 7").OLEFormat.Object.Text = "Near Urgent " &
[countif(N2:N500,"3")]
Me.Shapes("Bouton 11").OLEFormat.Object.Text = [K2] & " Relevé_Wagon
D'oscultation"
End If
End Sub