Insérer un compteur dans le code

Bonjour a toutes et tous, Forum

Je souhaiterai svp insérer un compteur dans le code du fichier ci-joint

j'ai essayer mais ça marche pas comme voulu

Voila voir svp le fichier pour plus d'infos

Merci a vous, de votre temps et bonne appétit a tous

Raymond

Bonjour,

Je ne comprend pas bien le déroulement du compteur. Quand faut-il l'incrémenter, quel interval ?

A+

Salut

hé bien j'entre manuellement la valeur R G B affichage d'un petit compteur en Colonne (H) interval pas ( 1 )

je viens de me relire a nouveau, je ne vois pas comment mieux expliquer

A plus tard

Raymond

Bonsoir,

Pour ton compteur et à adapter a ton fichier,exemple

En A1 =si(B1<>"";1;"")

En A2 =si(B2<>"";A1+1;"") et a tirer vers le bas

A +

Bonsoir a tous

Salut Henri

Merci pour ta réponse j'ai adapter le code proposer ça fonctionne MAIS ça ne fait pas ce que je souhaitai

Voir svp le fichier joint pour voir l'exemple que je souhaite

je pense avoir bien expliquer le sujet du moins je l'espère

Merci a plus tard

Raymond

Bonjour a toutes et tous, forum

Quelques infos

Pour commencer

j'entre en C22 une valeur en D22 une valeur E22 une valeur

cela affiche en F22 le résultat en décimal et en G22 la couleur

je souhaite svp créer un compteur qui dès que la couleur s'affiche en G22 incrémenter le compteur en H22

une fois ce compteur arriver a 10 afficher un message "Ok" puis repartir après avoir mis le compteur a 1 et ainsi de suite

pour chaque ligne a tout chaque pas de 10 afficher "OK" et remettre le compteur a 1

je ne sais pas si c'est plus clair sinon voir svp le fichier joint au premier post pour exemple en colonne (H)

Merci a vous bonne journée

Raymond

Bonjour eliot raymond, Forum

Je ne sais pas si j'ai bien compris ?

Option Explicit
Dim OldColor
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C23:E422"), Target) Is Nothing And Target.Count = 1 Then
    If Range("F" & Target.Row) = "" Then
      Range("G" & Target.Row).Interior.ColorIndex = xlNone
    Else
      Range("G" & Target.Row).Interior.Color = Range("F" & Target.Row)
      If OldColor <> Range("F" & Target.Row) Then
        Select Case Range("H" & Target.Row)
          Case Is = 9
            Range("H" & Target.Row) = "OK"
            Range("H" & Target.Row).Interior.ColorIndex = 6
          Case Is < 9
            Range("H" & Target.Row) = Range("H" & Target.Row) + 1
          Case Else
            Range("H" & Target.Row) = 1
            Range("H" & Target.Row).Interior.ColorIndex = xlNone
        End Select
      End If
    End If
    With Cells(2 + ((Target.Row - 23) \ 20), 10 + ((Target.Row - 23) Mod 20))
      .Interior.Color = Range("G" & Target.Row).Interior.Color
      .Value = Range("F" & Target.Row)
    End With
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("C23:E422"), Target) Is Nothing And Target.Count = 1 Then
  OldColor = Range("F" & Target.Row)
End If
End Sub

Effectue une incrémentation de la colonne H si la valeur décimale en colonne F change

Salut Bob71AU,

Merci pour ta réponse ainsi que pour le petit code, ça fonctionne MAIS

quand je renseigne C22 ça me mets le compteur a 1 en (H)

si je continue je renseigne D22 et le compteur affiche 2 en (H)

si je continue encore je renseigne E22 et le compteur affiche 3 en (H)

En fait ça me mets le compteur a 3 a chaque fois que je fait une ligne, donc c'est pas bon

et ce qui fait que le message "Ok" n'apparait pas

Donc une ligne renseignée égal 1 en (H)

deuxième ligne renseignée égal 2 en (H)

Etc Etc

Etc Etc

Et arriver a 9 on affiche "Ok" et on remets le compteur a zéro et on continue

Merci pour ton aide vu, l'heure bon app

A plus tard

Raymond

Re,

J'ai aussi peut-être compris.

Tape cette formule en H24 et tirer vers le bas

    =SI(F24<>"";SI(H23<9;H23+1;SI(H23="OK";1;"OK"));"")

Tu dis.

A+

Bonjour à tous,

tu ajoute dans le Private Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
  If Not Intersect(Range("C23:E422"), Target) Is Nothing And Target.Count = 1 Then
    If Range("F" & Target.Row) = "" Then
      Range("G" & Target.Row).Interior.ColorIndex = xlNone
    Else
      Range("G" & Target.Row).Interior.Color = Range("F" & Target.Row)
    End If
    With Cells(2 + ((Target.Row - 23) \ 20), 10 + ((Target.Row - 23) Mod 20))
      .Interior.Color = Range("G" & Target.Row).Interior.Color
      .Value = Range("F" & Target.Row)
    End With
'---- compteur (Cpt)---
Dim Lg&, i%, Cpt%
    Lg = Range("b" & Rows.Count).End(xlUp).Row
    Range("h23:h" & Lg).ClearContents
    Range("h23:h" & Lg).Interior.ColorIndex = xlNone

        For i = 23 To Target.Row
            If Cpt < 9 Then
                Cpt = Cpt + 1
                Cells(i, "h") = Cpt
            Else
                Cpt = 0
                Cells(i, "h") = "OK"
                Cells(i, "h").Interior.ColorIndex = 6
            End If
        Next i
  End If
End Sub

ou alors toutes les lignes avec un bouton

Sub Incrémente() 'colonne H
Dim Lg&, i%, Cpt%
    Application.ScreenUpdating = False
    Lg = Range("b" & Rows.Count).End(xlUp).Row
    Range("h23:h" & Lg).ClearContents
    Range("h23:h" & Lg).Interior.ColorIndex = xlNone

        For i = 23 To Lg
            If Cpt < 9 Then
                Cpt = Cpt + 1
                Cells(i, "h") = Cpt
            Else
                Cpt = 0
                Cells(i, "h") = "OK"
                Cells(i, "h").Interior.ColorIndex = 6
            End If
        Next i
End Sub

Bonne journée

Claude

salut lermite,

Je te remercie pour ta réponse et pour le code presque bon regarde svp la

photo, ci-jointe, bien mieux qu'un long discours.

Ton code fonctionne, ça marche comme souhaiter >>> MAIS >>> juste comme tu peux le

voir sur la photo, le compteur commence par afficher "OK" et sans fond de cellule jaune

au lieu de commencer a ( 1 ), j'ai fait d'autres essais mais ça marche pas

Merci a plus tard, bonne après midi

Raymond

salut Claude,

je t'ai louper désolé, je faisais ma réponse a lermite

je regarde ton code merci a toi

bonne après midi

Raymond

Salut a tous, forum

Bon c'est OK pour moi, ça marche bien comme je souhaitai avec le code de Claude, j'ai imprimer et mis sous le coude les

autres propositions de code, ça va me servir.

Je remercie lermite, henri, BoB71AU, et Dubois de m'avoir encore aider cette fois çi.

Encore merci a vous et je salue votre savoir

Bonne après midi a vous tous

Cordialement Raymond

J'ai tester la formule et ELLE FONCTIONNE SI TU SUIS LES INSTRUCTIONS.

En H23 laisser 1

Coller la formule en H24

Et pour la couleur tu n'a que de mettre une MFC.

Je commence à désespérer de ta bonne volonté.

lermite a écrit :

J'ai tester la formule et ELLE FONCTIONNE SI TU SUIS LES INSTRUCTIONS.

En H23 laisser 1

Coller la formule en H24

Et pour la couleur tu n'a que de mettre une MFC.

Je commence à désespérer de ta bonne volonté.

Salut lermite

Ne sois pas méchant, on ne peut pas tout savoir, si c'est évident pour toi, normal tu connais bien, je n'en suis pas encore la

et pourtant je fais attention, je tient compte de ta remarque je ferai plus attention a l'avenir., désolé.

je vais refaire des essais avec ta solution.

Merci bonne fin d'après midi

Raymond

N'oublie pas la petite formalité

dubois a écrit :

N'oublie pas la petite formalité

c'est fait