XL 2019 Remplacer .Value < par une formule de calcul

[Dravol]

Bonjour à tous,

J'aimerai remplacer .value < 35 par une formule de type .formula = "i10*0.7"
sachant que ma cellule i10 est fusionnée avec i11
et répéter cette opération de la cellule D19 à D48

If Target.Address = Range("d19").Address And Range("d19").Value < 35 Then

à votre écoute^^

 

[soan]

Bonsoir @Dravol,

Merci pour ta réponse, et je suis bien content que mon code VBA te convienne ! 🙂

Pour les Beep, essaye avec cette partie de code (à la place de l'ancienne) :

    Dim i%
    For i = 1 To 30000
      Beep
      'PlaySound ThisWorkbook.Path & "\0257", 0, 1
    Next i

Regarde aussi cette image :

Tu as écrit : « je reste impressionné par vos facilités en VBA »

En fait, il y a aussi beaucoup de choses que je ne sais pas faire, et certains intervenants du
forum sont bien meilleurs que moi ; alors ce n'est pas la peine que tu sois jaloux. 😉

De plus, chacun apprend au fur et à mesure, et au tout début, je ne connaissais rien du
tout : je suis parti de zéro, comme tous ceux qui commencent à programmer.

soan

 

[Dravol]

Bonjour soan

Merci pour tout. Sujet clos.
Je reviendrais sans doute pour d'autres sujets.
Au plaisir d'échanger à nouveau.

Drav