Adaptation écriture formule => VBA

Bonjour, je cherche à adapter une macro pour effectuer une mise en forme conditionnell (MEC) ...

j'ai essayé mais je ne parviens pas à transcrire correctement...

Pour info, la déclaration des variables :

Dim Ligne As Long, Colonne As Integer
  Ligne = Range("ECHEANCIER").Row
  Colonne = Range("CD16").Column

Voici la ligne enregistrée par l'enregistreur de macro :

  Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=ET($CQ18<>"""";$CU18=""OK"")"

et voici ce dont je cherche à obtenir .. :

  Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET($Cells(Ligne, Colonne).Offset(2, 10)<>"""";$Cells(Ligne, Colonne).Offset(2, 14)=""OK"")"

Bien évidemment, ça coince ... auriez-vous la solution pour que le code soit bien adapté et reconnu ?

Bonjour dm83, le forum,

Peut-être qu' un petit fichier exemple représentatif de ce que tu souhaites obtenir, motiverai une réponse ?

Cordialement,

Effectivement, c'est possible

Voici donc un fichier exemple, il suffit de cliquer sur le bouton pour créer un nouveau bloc "MOIS".

Le problème, lors de la copie/collée, est que la mise en forme conditionnelle ne s'adapte pas, d'où le souhait de l'adapter par macro....

67exemple.xlsm (55.67 Ko)

Bonjour,

Sans rien tester, une simple remarque par rapport à ton code :

Le VBA fonctionne toujours en mode anglo-saxon. La fonction "ET" n'existe donc pas. Il faut donc la traduire en "AND"

Rechercher des sujets similaires à "adaptation ecriture formule vba"