pb execution macro

**D.Mounir** · 28/05/2007, 15h33

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

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.

**ouskel'n'or** · 28/05/2007, 16h24

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+

**D.Mounir** · 28/05/2007, 16h29

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** · 28/05/2007, 16h52

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** · 28/05/2007, 16h58

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

**ouskel'n'or** · 28/05/2007, 17h05

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

**D.Mounir** · 28/05/2007, 17h20

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

merci bien

**ouskel'n'or** · 28/05/2007, 17h27

Tu as des cellules vides dans ta colonne ?

**ouskel'n'or** · 28/05/2007, 17h29

Autant pour moi, je croyais que tu voullais mettre en minuscules

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+

**D.Mounir** · 28/05/2007, 17h30

oui

**D.Mounir** · 28/05/2007, 17h34

, 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,

**D.Mounir** · 28/05/2007, 18h07

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

**ouskel'n'or** · 28/05/2007, 18h40

Instancie "Activesheet" et adapter ton code

Code :

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

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

A+

**D.Mounir** · 28/05/2007, 19h11

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 :

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

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

**ouskel'n'or** · 28/05/2007, 19h20

Effectivement, ça ne peut pas fonctionner

Code :

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

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 :

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

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

et se termine toujours par

Code :

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

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.

Au moins tu sauras ça

**D.Mounir** · 28/05/2007, 22h16

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....

**ouskel'n'or** · 28/05/2007, 22h26

Ç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+

**D.Mounir** · 28/05/2007, 23h12

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...

**ouskel'n'or** · 28/05/2007, 23h34

Pour tester sur une plage, il faut sélectionner les bonnes adresses.Pièce jointe 14148

Bonne soirée

pb execution macro

Macros et VBA Excel

Discussions similaires

Partager

Partager