Automatiser des formules en vba

[aubelix]

Bonjour à tous les amis du Forum. 🙂

En formule "Classique", je n'ai aucun problème.
Mais au vue du caractère répétitif des données et et nombre de fichiers,
j'aurais aimé pouvoir automatiser les 2 formules du fichier joint.

Par avance, merci pour votre aide.
Cordialement.

 

[Raja]

Re : Automatiser des formules en vba

Bonjour,

Dans quelles colonnes veux-tu automatiser ces deux formules dans ton fichier joint ?

 

[aubelix]

Re : Automatiser des formules en vba

Bonjour Raja.

Merci pour ta réponse.
L'automatisation se fera dans les colonnes qui comportent des formules :
Q et R elles sont en fond vert.

Par avance merci
Cordialement

 

[PMO2]

Re : Automatiser des formules en vba

Bonjour,

J'ai supposé que vous vouliez remplacer les formules par leur valeur.
Dans cette optique, voici une piste avec le code suivant à copier dans un module standard.

Sub UpgradeParValeur()
Dim lastLig&
Dim var
Dim i&
Dim T()
Dim borne&
lastLig& = [a65536].End(xlUp).Row
var = Range(Cells(1, 1), Cells(lastLig&, 19))
ReDim T(2 To lastLig&, 1 To 2)
borne& = CLng(var(1, 19))
For i& = 2 To lastLig&
  If var(i&, 15) = "MN" Then
    T(i&, 2) = borne& - (CLng(var(i&, 7)) + 18)
  Else
    T(i&, 2) = borne& - (CLng(var(i&, 7)) + 38)
  End If
  If T(i&, 2) <= 0 Then
    T(i&, 1) = "OK"
  Else
    T(i&, 1) = "Retard"
  End If
Next i&
Range(Cells(2, 17), Cells(lastLig&, 18)) = T
End Sub

L'avantage des valeurs par rapport aux formules est l'allègement de votre classeur.
L'inconvénient est qu'il faut relancer la macro pour obtenir les mises à jour.

Est-ce cela que vous vouliez obtenir ?

Cordialement.

PMO
Patrick Morange

 

[aubelix]

Re : Automatiser des formules en vba

Bonsoir PM02 🙂

Merci pour ta réponse et l'intérêt que tu as porté à mon problème.
Elle me convient et me fera gagner beaucoup de temps.

Cordialement.