adaptation de code

[gege21]

bonjours a tous
je sollicite encore vos compétence
si sur la colonne g4 la valeur change f4 clignote et le bouton stop l'arrête jusque la tous vas bien
j' veut faire la même chose sur les autre ligne mais comment 😕

 

[pierrejean]

Re : adaptation de code

Re

Un essai

 

[gege21]

Re : adaptation de code

bonjours
merci pour ta réponse

sa marche bien sa sauf si deux valeur change en même temps les cellule se fige
il vaudrai que plusieurs cellule puisse clignote en même temps
😕

 

[gege21]

Re : adaptation de code

🙄

 

[pierrejean]

Re : adaptation de code

Re

Vois si cela va mieux

 

[gege21]

Re : adaptation de code

oui et merci
c parfait
🙂

 

[gege21]

Re : adaptation de code

tous marche très bien sauf une chose que je n'est pas précise c'est que le résulta doit être en feuil2 😱
j'ai essaye sa mais sa marche pas

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:C" & Range("A65536").End(xlUp).Row)) Is Nothing Then
   If Application.WorksheetFunction.Min(Columns(1)) <> Range("[COLOR="Red"]'feuil2'!G4[/COLOR]") Then
     lacellule = "[COLOR="Red"]'feuil2'!F4[/COLOR]"
     Range("[COLOR="Red"]'feuil2'!G4[/COLOR]") = Application.WorksheetFunction.Min(Columns(1))
     Clignotement1
   End If
   If Application.WorksheetFunction.Max(Columns(2)) <> Range("[COLOR="Red"]'feuil2'!G5[/COLOR]") Then
     lacellule = "[COLOR="Red"]'feuil2'!F5[/COLOR]"
     Range("[COLOR="Red"]'feuil2'!G5[/COLOR]") = Application.WorksheetFunction.Max(Columns(2))
     Clignotement2
   End If
   If Application.WorksheetFunction.Max(Columns(3)) <> Range("[COLOR="Red"]'feuil2'!G6[/COLOR]") Then
     lacellule = "[COLOR="Red"]'feuil2'!F6[/COLOR]"
     Range("[COLOR="Red"]'feuil2'!G6[/COLOR]") = Application.WorksheetFunction.Max(Columns(3))
     Clignotement3
   End If
 End If
End Sub

 

[pierrejean]

Re : adaptation de code

Re

Voila
Mais a l'avenir si tu pouvais etre precis des le premier post ce serait aussi bien !!!

 

[gege21]

Re : adaptation de code

si c possible il faudrait que les résulta ne sois quand feuil2 et plus en feuil1

tu a raison pierrejean j'aurai du être plus précise dans se que je demandais 😱

mais merci pour t réponse 😉

 

[pierrejean]

Re : adaptation de code

Re

il suffit d'effacer (ou supprimer) ce qui concerne la feuille 1 a l'exclusion des données (3 1eres colonnes)

 

[gege21]

Re : adaptation de code

j'ai remis le ficher car je pense que je n'ai pas du supprimer exactement se qu'il faut cas le clignotement et devenu anarchique et sur tout les feuil 😕
alors que je le qu'en feuil2🙄

 

[pierrejean]

Re : adaptation de code

Re

effectivement c'etait un peu moins simple que je ne le croyais !!
Avec toutes mes excuses

 

[gege21]

Re : adaptation de code

heuu ne te serais-tu pas tromper dans le ficher poste c le même que dans le poste d'hier 8h19 😛😀

je récapitule
si g4 change de valeur f4 clignote et le bouton stop l'arrête
même chose pour le ligne suivant tous sa sur la feuil2 et que sur la feuil2🙂

 

[pierrejean]

Re : adaptation de code

Re

Non, je viens de verifier : le nom est le même mais le fichier est different et pour moi il fonctionne

Pour le tester:
Modifier dans les macros essai les valeurs qui modifieront les minis et maxi
Aller en Feuil2 et lancer les macros essai

Nb: Je ne sais d'aileurs pas comment dans l'utilisation du fichier tu fais varier les données

 

[gege21]

Re : adaptation de code

pour les données c'est une macro qui importe une ficher texte

cela marche bien
mais il faudrait que les mini maxi et les clignotement se fasse qu'en feuil2
et la elle apparaisse aussi en feuil1
et si je fait comme tu me la dit

il suffit d'effacer (ou supprimer) ce qui concerne la feuille 1 a l'exclusion des données (3 1eres colonnes)

cela ne marche plus 🙄