Bonjour,
Je bloque sur ce sujet VBA depuis un moment. Après avoir reformulé mon besoin (le plus dur), mon module 2 permet de copier les valeurs les plus hautes de l’onglet Extraction_Intraprint (colonne AC) en fonction du numéro de XFR en colonne D de l’onglet VREF.
Module 2 :
Sub maj_vitesses()
Dim Derlg&
Application.EnableEvents = False
Derlg = Feuil5.Cells(Feuil5.Rows.Count, « S »).End(xlUp).Row
[D2].FormulaArray = « =max(c2,max(if(Extraction_Intraprint!$s$2:$s » & Derlg & « =a2,Extraction_Intraprint!$ac$2:$ac » & Derlg & « ,))) »
Derlg = Cells(Rows.Count, « A »).End(xlUp).Row
[D2].AutoFill Range(« D2:D » & Derlg)
Range(« D2:D » & Derlg).Value = Range(« D2:D » & Derlg).Value
Application.EnableEvents = True
Je joins le fichier de travail : Classeur1.xlsx (21,8 Ko)
J’aimerai y ajouter plusieurs éléments :
- Une macro qui dit que si la valeur de la colonne D change (car vitesse réelle de Extraction_Intraprint a une nouvelle valeur la plus haute) = code déjà existant en module 2, je veux que la cellule changée se colore en bleue.
- Une macro qui dit que si on coche les cellules de la colonne E (X) alors les cellules de la colonne D deviennent vertes (passent de bleu à vert)
-Une macro qui dit que si la colonne D devient bleue (dernière vitesse max dépassée) alors on enlève la croix en colonne E (passe de vert à bleu en D)
-Une macro qui annonce via un msgbox le nombre de nouvelles valeurs (bleues). J’ai commencé à écrire le code.
Bien cordialement,