Macro automatique

pitive35 Messages postés 81 Statut Membre -  
 pitive35 -
Bonjour à tous,

J'ai enregistrer une macro valeur cible :
Sub Temp_AE_Plaques()
'
' Temp_AE_Plaques Macro
'

'
Range("AP20:AQ20").Select
ActiveCell.FormulaR1C1 = "1"
Range("AP21").Select
Range("AR20").GoalSeek Goal:=100, ChangingCell:=Range("AP20")
End Sub

J'aimerais que la macro s'exécute uniquement avec une condition.
La condition lorsque la cellule DEF 18 (cellules fusionnées) = à plaques

Je pense que ce n'est pas très compliquée mais à part enregistrer des macros, je ne sais pas utiliser VBA.

MErci d'avance pour votre aide

2 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

    Essaies : 
    Sub Temp_AE_Plaques()
' Temp_AE_Plaques Macro
  If Range("D18").Value = "à plaques" Then
    Range("AP20").FormulaR1C1 = "1"
    Range("AR20").GoalSeek Goal:=100, ChangingCell:=Range("AP20")
  End If
End Sub
    0
  2. pitive35
     
    Bonjour,

    Merci beaucoup, j'essaierais en début de semaine prochaine, je n'ai pas le tableau sur ce PC
    0