pb execution macro

Version imprimable

28/05/2007, 15h33
D.Mounir

pb execution macro

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
28/05/2007, 16h20
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.

;)

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

Code:

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+

28/05/2007, 16h29
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 !!!

Code:

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+

28/05/2007, 16h58
D.Mounir

merci tes cette reponse, par contre ta macro ci-dessus ne marche pas
28/05/2007, 17h05
ouskel'n'or

Citation:

Envoyé par D.Mounir

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 :lol:
28/05/2007, 17h20
D.Mounir

je parle de ta premiere macro qui permet de majusculiser une colonne !!

merci bien
28/05/2007, 17h27
ouskel'n'or

Tu as des cellules vides dans ta colonne ?
28/05/2007, 17h29
ouskel'n'or

Autant pour moi, je croyais que tu voullais mettre en minuscules :oops:
Pour les majuscules, tu mets Ucase à la place de Lcase. Mais ça me permet de voir que tu n'as pas compris mon code :( Jète un oeil à Lcase et Ucase dans l'aide ;)
A+
28/05/2007, 17h30
D.Mounir

oui
28/05/2007, 17h34
D.Mounir

:oops: , ca marche, comment j'ai pas pu voir ca !!!
du coup j'ai plus besoin de créer une colonne, et de la supprimer,

merci de ton aide,
28/05/2007, 18h07
D.Mounir

j'ai une question un peu bete pour certains,
pour mes macros, j'ai personnalisé un bouton de macro que je rajoute dans la barre de mise en forme,
le pb est que j'ai plusieurs fichiers excel , et a chaque fois, je me retrouve avec le bouton qui correpond pas a la feuille de calcul en cours...

j'ai cherché comment faire des boutons dans chaque page differente, mais j'ai rien trouvé....

merci par avance

Instancie "Activesheet" et adapter ton code

Code:

1
2
3
4
5
6
Dim NomFeuil as worksheet
    Set NomFeuil = Activesheet
    'Ensuite tu utilises NomFeuil
    With NomFeuil
        'ton code
    End with

A+

c koi ce activesheet, excuse moi je suis debutant !!!

j'ai essayé ce que tu m'as, mais il me dit qu'il trouve pas la macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim NomFeuil As Worksheet
    Set NomFeuil = ActiveSheet
    'Ensuite tu utilises NomFeuil
    With NomFeuil
    Sub Majuscule()
    '
    ' Majuscule Macro
    ' Macro enregistrée le 28/05/2007 par DRIOUCHI
    '
        Set Plage = Range("B5:B20")
        For Each Cell In Plage
         Cell.Value = UCase(Cells(Cell.Row, 3)) 'signifie Cells(NoLigne, NoCol)
         Next
     End Sub
    End With

merci bien

Effectivement, ça ne peut pas fonctionner
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub LesMajuscules() Dim NomFeuil As Worksheet Set NomFeuil = ActiveSheet With NomFeuil Set Plage = Range("A:A") For Each Cell In Plage Cell.Value = UCase(Cells(Cell.Row, 1)) ' signifie Cells(NoLigne, NoCol) If Cell.Value = "" Then Exit Sub Next End with set NomFeuil = nothing End Sub
Mais à ta place, je commencerais par le début : Lis déjà les cours qui sont proposés dans Développez.com ;)
Bon courage

NB - Une macro (ou procédure) commence toujours par

Code:

Sub NomDeLaMacro() 'ou Private NomDeLaMacro() ' ou Public ......

et se termine toujours par

Code:

End sub

Les déclarations de variables utilisables dans la macro sont à faire à l'intérieur de la macro avec Dim nom de la variable
Pour celles utilisables dans plusieurs macros, il faut les déclarer en Public
Tu as ces mots dans l'aide. :f1:
Au moins tu sauras ça ;)

28/05/2007, 22h16
D.Mounir

Merci pour ta reponse et ta gentillesse,
je sais que j'ai trainé, j'utilise Excel provisoirement, c'est pour ca, j'ai pas investi, mais j'avoue qu'il est balaise,

pour ta solution, ca marche pas, j'ai ouvert un fichier, et j'avais la commande pourtant je l'ai pas crée pour ce fichier !!!!

Merci bcp....
28/05/2007, 22h26
ouskel'n'or

Ça t'ennuierait de zipper ton fichier et de le mettre en pièce jointe (Icône trombone) ? On va te faire fonctionner tout ça ;)
A+
28/05/2007, 23h12
D.Mounir

1 pièce(s) jointe(s)

je sais pas si t'as bien compris ma question de départ, la macro marche bien (clique sur le bouton macro Majuscule dans le menu en haut: voir fichier joint),

le seul pb, est que dés que j'ouvre une nouevelle feuille excel, je trouve la commande "Majuscule" alors que je le veux pas,

merci encore une fois...
28/05/2007, 23h34
ouskel'n'or

Pour tester sur une plage, il faut sélectionner les bonnes adresses.Pièce jointe 14148 :evil:
Bonne soirée
29/05/2007, 00h02
D.Mounir

j'ai compris ce que tu veux dire, mais c'etait pas ma question
j'ai un fichier test.xsl, je veux faire une macro, et une commande "majuscule" dans la barre de menu pour l'executer...

si j'ouvre un autre fichier "fichier.xsl", je vais me retrouver avec la commande "majuscule" alors que je dois pas l'avoir puisqu'elle concerne le fichier test.xsl

en gros, c'est ca ma question, j'espere que j'etais clair,

pour le reste, j'ai tout compris, et je t'en remercie...
29/05/2007, 09h13
ouskel'n'or

Alors le problème n'est pas là.
Tu gardes ta macro où je l'ai mise... Module Standard
Pour le bouton dans la barre d'outils, tu peux l'ajouter par soft à l'ouverture du fichier test et le supprimer à sa fermeture. Ou -> tu peux l'ajouter à la main mais il restera en place à la fermeture du fichier Test.xls.
Maintenant, si ton fichier test est ouvert, ta macro est "opérationnelle" pour tout fichier que tu ouvres du moment où le fichier est "actif" et que la feuille concernée l'est aussi (la feuille affichée à l'écran).
C'est pourquoi, ignorant a priori, le nom de la feuille sur laquelle la macro doit travailler, j'ai utilisé "Activeworksheet".
Sinon, j'aurais mis

Code:

Workbooks("NomDuClasseur.xls").Worksheets("NomDeLaFeuille"). ...

Pour ton bouton, du dis
A+

NB - On ne va pas pouvoir tout faire. Tu devrais commencer par potasser les cours qui sont mis à ta disposition sur la FAQ
29/05/2007, 11h00
D.Mounir

Merci pour tout..