Discussion :

[D.Mounir]

Bonjour,

j'ai 2 questions :
1- je suis debutant en excel, j'ai crée une macro qui permet de changer un code pays de 3 digits en 2 digits, je l'ai executé, ca marche bien, par contre, quand je l'execute pour la deuxieme fois, elle ne marche rien, et j'ai constaté qu'il rajoute des lignes dans la macro, d'ailleurs quand j'enleve ces lignes, ca remarche, c koi le pb???

2- comment faire pour changer avec une macro une colonne de minuscules en majuscules sans créer une autre colonne,

merci par avance

[bibi5883]

Bonjour,
je ne comprends pas bien ton premier problème, tu pourrais donner un exemple?

Pour ton problème de minuscule et de majuscule, à ta place je ferai comme tu le fais pour l'instant je suppose, cad je créerai une autre colonne en majuscule puis par macro copier/coller cette colonne dans l'original(qui été en minuscule) et effacer la colonne qui s'été rajoutée en majuscule.

J'espère que je suis clair.

[D.Mounir]

merci pour ta reponse,

pour le premier pb, imagine que j'ai 1 code pays EGY, ca me le change en EG si j'execute la macro, je modifie une deuxieme fois EG en EGY, la par contre quand j'execute la macro, elle ne fonctionne pas, j'espere que j'etais clair,

pour ta 2eme reponse, je l'ai deja essayé, mais dans le cahier de charges, je dois automatiser cette fonction, donc est ce possible de créer une colonne et de la supprimer en passant par la macro !!!

merci par avance !!!

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    'Pour insérer. La nouvelle colonne est la colonne I
    Columns("I:I").Insert Shift:=xlToRight 
 
    'Pour supprimer
    Columns("I:I").Delete Shift:=xlToLeft

A+

[D.Mounir]

merci tes cette reponse, par contre ta macro ci-dessus ne marche pas

[ouskel'n'or]

merci tes cette reponse, par contre ta macro ci-dessus ne marche pas

Sur quelle ligne ? Le message d'erreur ? Le Contexte ?
Passe ton code qu'on voit pourquoi "ça ne marche pas"

NB - Si tu ajoutes une colonne dans une feuille vide, tu ne verras rien

[ouskel'n'or]

Peut-être pas le plus sioux... mais j'avais ça sous la main

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub LesMinuscules()
Set Plage = Range("A:A")
For Each Cell In Plage
    Cell.Value = LCase(Cells(Cell.Row, 1)) ' signifie Cells(NoLigne, NoCol)
    If Cell.Value = "" Then Exit Sub
Next
End Sub

A+