Macro automatique

Fermé

pitive35 Messages postés 75 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 14 juillet 2022 - 15 août 2014 à 07:08
pitive35 - 15 août 2014 à 17:20

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

A voir également:

Macro automatique
Message automatique thunderbird - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Réponse automatique outlook - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
15 août 2014 à 09:40

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

Réponse 2 / 2

pitive35
15 août 2014 à 17:20

Bonjour,

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

Discussions similaires

creer sms automatique en cas d'absence

Discussions similaires

Newsletters