Aide sur une macrocommandes

[link93]

Bonjour,

J'ai fais une macro-commandes( je crois que ça s'appelle comme ça) qui permet une certaine mise en forme lorsque que je l'active.

Cette mise en forme ce fait à partir de la cellule sélectionnée avec le curseur de la souris.

Ma question est de savoir si je peux la faire appliquer à une cellule pré-défini sans que j'ai besoin de la sélectionner.

Je joint un exemple de la macro

Merci d'avance pour votre aide

 

[degap05]

Re : Aide sur une macrocommandes

Bonjour,

Peut-être comme cela:

Feuil6.Select
Range("a1").Select
'ActiveCell.Cells.Select

En début de macro au lieu de: ActiveCell.Cells.Select

A+

 

[link93]

Re : Aide sur une macrocommandes

Very nice.

Merci pour ton aide c'est sympa

 

[link93]

Re : Aide sur une macrocommandes

Re j'ai un petit problème quand j'essaye de l'adapter à mon fichier.

IL m'ecrit erreur 424 objet requis et me dit que l'erreu est au niveau du Feuil6.Select j'ai eu beau la changer avec le nom de la feuille ça ne marche pas.

A tu une idée ?

 

[degap05]

Re : Aide sur une macrocommandes

Re j'ai un petit problème quand j'essaye de l'adapter à mon fichier.

IL m'ecrit erreur 424 objet requis et me dit que l'erreu est au niveau du Feuil6.Select j'ai eu beau la changer avec le nom de la feuille ça ne marche pas.

A tu une idée ?

Cela fonctionne avec le fichier que tu as transmis, mais pourrais-tu poster un fichier plus approchant de ton fichier de travail ?

A+

 

[Paritec]

Re : Aide sur une macrocommandes

Bonsoir degap link le forum
tu peux modifier ainsi , en sachant que pour faire ce que tu veux il y a beaucoup plus simple que des multiples select !!!!
j'ai pas voulu refaire la macro mais bon
a+
papou 🙂

Sub Macro3()
Feuil6.Activate
   Range("A1").Select
    With Selection.Interior
        .ColorIndex = 2 etc etc

 

[Paritec]

Re : Aide sur une macrocommandes

Re Link93 le forum
je t'ai fait la même chose que ta macro avec centrage du texte en hauteur et largeur. N'oublies pas de changer la commande de ton bouton et de remplacer Macro3 par link93
a+
papou 🙂

Sub link93()
Feuil6.Select
    a = 1
    For i = 2 To 10 Step 2
        Cells(1, i) = "NIVEAU " & a: a = a + 1
    Next i
    Rows(1).RowHeight = 36
    Rows(1).Font.Name = "Arial": Rows(1).Font.Size = 14
    Columns("B:J").ColumnWidth = 15
    Rows(1).VerticalAlignment = xlCenter
    Rows(1).HorizontalAlignment = xlCenter
End Sub

Private Sub CommandButton2_Click()   ' n'oublies pas cela
Call link93
End Sub

 

[degap05]

Re : Aide sur une macrocommandes

Bonjour Link93, Paritec,

Et voilà le travail, quand un pro fait une proposition 🙂🙂

Bonnes Pâques.

 

[kjin]

Re : Aide sur une macrocommandes

Bonjour,

Ma question est de savoir si je peux la faire appliquer à une cellule pré-défini sans que j'ai besoin de la sélectionner.

Le bouton étant sur une feuille, la cellule à modifier sur une autre (je me demande pourquoi d'ailleurs), le "pré-défini" en question doit prendre quel sens ?!
A+
kjin

 

[Paritec]

Re : Aide sur une macrocommandes

Bonjour kjin, degap link le forum
d'après ce que j'ai compris ce serait pour commencer en A1
mais le résultat de sa macro lui était en B1 alors !! ??
Moi j'ai mis comme le résultat qu'il obtenait donc en B1
bonne Fêtes de Pâques
a+
papou 🙂

 

[Staple1600]

Re : Aide sur une macrocommandes

Bonjour


Personnellement je mettrai un peu d'endives dans le code de Paritec

Sub link93()
With Feuil6
    a = 1
    For i = 2 To 10 Step 2
        .Cells(1, i) = "NIVEAU " & a: a = a + 1
    Next i
    With .Rows(1)
        .RowHeight = 36
        With .Font
            .Name = "Arial"
            .Size = 14
        End With
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
    End With
.Columns("B:J").ColumnWidth = 15
End With
End Sub

 

[link93]

Re : Aide sur une macrocommandes

Avec un peu de retard mais un grand merci a vous tous pour votre aide toujours très apprecier ^^