Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Transforme en majuscules les noms saisis dans le champ B2:B10:
If Not Intersect(Range("B2:B10"), Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Ucase(Target) Application.EnableEvents = True End If
Je n'arrive pas à trouver un moyen de déclencher une macro sur un é vénement pouvant se dérouler sur n'importe quelle cellule du range(C4:G223) ...
Déclencher sur la modification d'une cellule c'est OK ... mais après je fais tout planter :-)
Si quelqu'un a qq chose à me proposer je serai bien content ...
Antoine
Bonjour,
Transforme en majuscules les noms saisis dans le champ B2:B10:
If Not Intersect(Range("B2:B10"), Target) Is Nothing And Target.Count
= 1 Then
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End If
Transforme en majuscules les noms saisis dans le champ B2:B10:
If Not Intersect(Range("B2:B10"), Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Ucase(Target) Application.EnableEvents = True End If
Je n'arrive pas à trouver un moyen de déclencher une macro sur un é vénement pouvant se dérouler sur n'importe quelle cellule du range(C4:G223) ...
Déclencher sur la modification d'une cellule c'est OK ... mais après je fais tout planter :-)
Si quelqu'un a qq chose à me proposer je serai bien content ...
Antoine
Vader
Merci mais il faut absolument que cela marche pour n'importe quoi et pas seulement détecter un passage en majuscule.
Bonjour,
Transforme en majuscules les noms saisis dans le champ B2:B10:
If Not Intersect(Range("B2:B10"), Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Ucase(Target) Application.EnableEvents = True End If
Je n'arrive pas à trouver un moyen de déclencher une macro sur un événement pouvant se dérouler sur n'importe quelle cellule du range(C4:G223) ...
Déclencher sur la modification d'une cellule c'est OK ... mais après je fais tout planter :-)
Si quelqu'un a qq chose à me proposer je serai bien content ...
Antoine
Merci mais il faut absolument que cela marche pour n'importe quoi et pas
seulement détecter un passage en majuscule.
Bonjour,
Transforme en majuscules les noms saisis dans le champ B2:B10:
If Not Intersect(Range("B2:B10"), Target) Is Nothing And Target.Count
= 1 Then
Application.EnableEvents = False
Target = Ucase(Target)
Application.EnableEvents = True
End If
Merci mais il faut absolument que cela marche pour n'importe quoi et pas seulement détecter un passage en majuscule.
Bonjour,
Transforme en majuscules les noms saisis dans le champ B2:B10:
If Not Intersect(Range("B2:B10"), Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Ucase(Target) Application.EnableEvents = True End If