J'aimerais quand je change de sigle les celulesB11:K210 prenne le sigle a la fin des valeurs des cellules
en sachant qu'il y a des formules a chaque cellule.
Bonsoir,
Dans le module de la feuille, ici pour la ligne 11 donc à adapter
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$8" Then Range("C11:K11").NumberFormat = "0.00 \" & Range("M8") & ""
End Sub
bonjour,
38 minutes c'est cours pour dire qu'il n'y a personne pour t'aider,sache qu'ici chaque personne est bénévole donc la patience est la bienvenue pour chaque demande.
A bientôt peut être...
Et merci beaucoup de passer du temps pour aider les autres.
Le problème j'aimerais changer les devises en fonction de la liste déroulante qui se trouve en M8 car j'ai besoin de nombreuse de plusieurs devise
Je vous remercie tous.
Re,
Alors change comme ceci en adaptant la plage C11:K11 par la plage dans laquelle la macro doit opérer
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11:K11")) Is Nothing Then Target.NumberFormat = "0.00 \" & Range("M8") & ""
End Sub
re,
j'avais ceci,mais je pense que kijn t'as donner une solution:
Code:
Public valeur As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Ranges
If valeur = [m8] Then Exit Sub
valeur = [m8]
Range("c11:k210").Select
Selection.NumberFormat = "0" & valeur & ""
End Sub