bonjour,
dans une feuille excel j'ai créé un bouton qui permet d'épurer tout ce que j'ai écri manuellement.
d'autre part , j'ai créé une formule ds visual (ci dessous) qui me permet de transformer en majuscule ce que j'écrit ds une cellule dès que j'appui sur entrée.
Ma formule marche très bien, mais le soucis est que lorsque je décide d'épurer mes données, le système rame comme pas possible, comme si j'avais créé une macro très longue.
quelqu'un aurait une idée d'ou pourrai provenir le problème ?
Moi j'ai pensé à dévier ma macro 'majuscule' lorsque je cliquer sur 'épurer', mais je sait pas comment faire.
merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range Dim Cellule As Range 'target c'est la plage modifié dans mon classeur on calcul son 'intersection avec la plage à tester J2:J800 Set Plage = Intersect(Target, Range("J2:J800")) If Plage Is Nothing Then Exit Sub 'Intersection vide on quitte For Each Cellule In Plage ' sinon on parcours toutes les cellules de la plage d'intersection Cellule = UCase(Cellule) ' et on passe en majuscule Next End Su
Partager