Remplacer les formules par un code VBA

Question

J'aimerai solliciter votre aide svp, je souhaite transformé des formules en macro, pour que mon fichier soit rapide, car il est volumineux actuellement, voici les formules que je souhaite transformer: Colonne X =ANNEE(L2) Colonne Y =SI(GAUCHE(P2;12)="Préventif N°";SI(DROITE(GAUCHE(P2;20);1)=" ";DROITE(GAUCHE(P2;19);1);DROITE(GAUCHE(P2;20);2));"") Colonne Z =SI(Y2="";"-";SI(D2="T";SI(Y2="1";SI(FIN.MOIS(Q2;0)-FIN.MOIS(L2;0)&gt;1;"NOK";"OK");SI(FIN.MOIS(Q2;0)-FIN.MOIS(L2;1)&gt;1;"NOK";"OK"));"Retard")) je vous remercie d'avance !...

AMIR · Accepted Answer

Salut Yvouille, Imad SIO

essayer ce code :

Sub test()

drlngX = 20 'nombres de les contenant les donnes sur colonne "X" exmple=20

For j = 2 To drlngX
Cells(j, "X") = Year(Cells(j, "L"))
Next

drlngY = 20 'nombres de les contenant les donnes sur colonne "Y" exmple=20
For m = 2 To drlngY
    If Left(Cells(m, "P"), 12) = "Préventif N°" Then
       If Right(Left(Cells(m, "P"), 20), 1) = " " Then
       Cells(m, "Y") = Right(Left(Cells(m, "P"), 19), 1)
       Else
       Cells(m, "Y") = Right(Left(Cells(m, "P"), 20), 2)
       End If
   Else
      Cells(m, "Y") = ""
  End If
 Next

'########################"""

For i = 2 To 20
If Cells(i, "Y") = "" Then
   Cells(i, "Z") = "-"
Else
   If Cells(i, "D") = "T" Then
      If Cells(i, "Y") = "1" Then
      '---------#################---------
         If Application.EoMonth(Cells(i, "Q"), 0) - Application.EoMonth(Cells(i, "L"), 0) > 1 Then
         Cells(i, "Z") = "NOK"
         Else
         Cells(i, "Z") = "OK"
         End If

      '---------#################---------
      Else
        '---------#################---------
         If Application.EoMonth(Cells(i, "Q"), 0) - Application.EoMonth(Cells(i, "L"), 1) > 1 Then
         Cells(i, "Z") = "NOK"
         Else
         Cells(i, "Z") = "OK"
         End If
        '---------#################---------
      End If
   Else
     Cells(i, "Z") = "Retard"
   End If

End If
Next

End Sub

Crdlmt.

AMIR · Accepted Answer

Dit moi sur quelle ligne bug et avec quel message !? drlgn = Cells(Rows.Count, "A").End(xlUp).Row for i=2 to drlgn on utilise une instruction comme ceci pour déterminer la dernière ligne non vide sur une colonne , a la place de 20 tu peux mettre "drlgn" mais n’oublie pas de changer la lettre de colonne consternée...

AMIR · Accepted Answer

Mais normalement lorsque il y a une erreur ,une message va apparaitre et excel te colore une ligne jaune dans l’éditeur Vba quel est le contenu de ce message et quel ligne de code !? OK pas de problème...

AMIR · Accepted Answer

La macro doit ouvrir le classeur pour lire/ecrire sur "TRVX FINIS" et ensuite le ferme...

Yvouille · Answer

Sans fichier modèle, ni exemples divers, ce n'est pas évident de t'aider. J'ai tenté de trouver une macro afin de calculer les résultats attendus en X2 et Y2. Pour l'instant il faut la déclencher à l'aide du bouton en place, mais on pourrait imaginer de la déclencher automatiquement à la suite d'un évènement quelconque. Si je ne suis complètement à côté de la plaque, fournis-moi des exemples pour ces trois formules (sur la base de tes propres formules), sinon au moins pour la dernière formule que j'ai laissé de côté pour l'instant. A te relire...

AMIR · Answer

Tu utilises l’onglet "TRVX FINIS" pour importer les données ou pour exporter les données ...

AMIR · Answer

On commence pour quoi tu utilise ce code : 'Comptage du nombre de lignes dans "TRVX FINIS" Do If Worksheets("TRVX FINIS").Cells(i, 1).Value = "" Then j = j + 1 Else j = 0 End If i = i + 1 Loop Until j = 5 il que de operations sur longlet "TRVX FINIS" Worksheets("TRVX FINIS").Cells(z, 1).Select 'ActiveSheet.Paste 'Worksheets("TRVX FINIS").Range("AF1").Value = z...

AMIR · Answer

Oui , mais pourquoi tu as désactivé les deux opérations :

il que de opérations sur l’onglet "TRVX FINIS"

Worksheets("TRVX FINIS").Cells(z, 1).Select
        'ActiveSheet.Paste

'Worksheets("TRVX FINIS").Range("AF1").Value = z

AMIR · Answer

Soyez le bienvenu mais : Ton dernier message sur ce poste doit être : " Merci comme même j’ai pu le faire tout seul a bientôt :) " et pas un autre demande après quelque jours d’absences ! Pour ton demande tu peux attendre sur l’autre poste, d’après ce que j’ai vu sur ce poste et l autre, tu veux remplacer toutes les formules mêmes les simples. Seulement, explique que tu veux remplacer le tous par du code VBA ; enfin c’est ce que tu veux ! Crdlms...