Macro automatique Fermé

Question

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

Patrice33740 · Answer

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

pitive35 · Answer

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

Macro automatique

2 réponses

Discussions similaires