Execution automatique d'une macro VBA

[fabien60]

Bonjour,

Après avoir fouiné partout afin de connaître un script pouvant executer automatiquement une macro. Je suis à cours d'idée et reste bloqué sur mon état excel.

Nom de la macro : Remplissage_couleur
Script :

Sub Remplissage_couleur()
'
' Remplissage_couleur Macro
' Macro enregistrée le 17/08/2009 par administrateur
'

'
ActiveCell.FormulaR1C1 = "7"
Range("AH8:AI8").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End Sub

Pour celui qui s'y connait j'aimerais que "si" le nombre 7 est saisie dans la colonne "AC" ligne "8" la couleur "40" est intégrer en "AH8:AI8".

Merci d'avance pour votre aide, car j'en ai besoin.

 

[bpol]

Re : Execution automatique d'une macro VBA

bonjour fabian
je pense qu'il suffit de mettre ta commande de macro dans la déclaration de la feuille concerné

tu ouvre visual basic editor tu cliques sur la feuille concernée et tu colles ta macro

A+
bpol

 

[fabien60]

Re : Execution automatique d'une macro VBA

Merci pour ta réponse mais cela ne marche pas même lorsque je mets la macro dans workbook...
Je pense qu'il s'agit plus d'une erreur ou un manque de syntaxe dans mon script.

 

[Raja]

Re : Execution automatique d'une macro VBA

Bonjour, Salut bpol,

Met ce code dans la module "ThisWorkbook" pour être exécuté à l'ouverture du classeur :

Private Sub Workbook_Open()
    '
    ' Remplissage_couleur Macro
    ' Macro enregistrée le 17/08/2009 par administrateur
    '
    
    '
    If ([AC8].Value = 7) Then
        With Range("AH8:AI8").Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With
    End If
End Sub

 

[fabien60]

Re : Execution automatique d'une macro VBA

Désolé, cela ne marche pas, pourtant excel me demande si je veux activer les macros (je réponds oui) et rien ne se passe au moment de l'ouverture et même lorsque j'indique le 7 dans la case.

 

[pierrejean]

Re : Execution automatique d'une macro VBA

bonjour a tous

dans un module standard

Sub Remplissage_couleur()
'
' Remplissage_couleur Macro
' Macro enregistrée le 17/08/2009 par administrateur
'
'
With Range("AH8:AI8").Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End Sub

dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AC$8" And Target.Value = 7 Then Call Remplissage_couleur '="7" si la cellule est en Texte
End Sub