Discussion :

[polo31]

Bonjour !!

le titre est pas tres clair donc je vais essayer de mieux m'expliquer.

Sur une ligne j'ai des cellules qui peuvent prendre les valeurs "non debuté"; "en cours" et "ok".
Je souhaite que lorsque l'utilisateur choisi "en cours" pour une cellule, toutes les cellules precedentes de la plage se mettent en "ok" et toutes les suivantes en "non debuté"

je pensais le mettre l'action dans une
Sub Worksheet_Change(ByVal Target As Range)

J'ai essayé plusieurs methodes qui ne marchent vraiment pas donc si quelqu'un a une idée, elle sera la bienvenue !!

Merci

[dodo69]

Bonjour polo,

Sur une ligne j'ai des cellules qui peuvent prendre les valeurs "non debuté"; "en cours" et "ok".

c'est quoi la plage de tes valeurs ? ( c'est un range bien précis ?) (une ligne précise peut etre ?)

toutes les cellules precedentes de la plage se mettent en "ok" et toutes les suivantes en "non debuté"

l'utilisateur va changer directement dans la case celle qui est en cours ? et les autres valeur de ta plage change automatiquement ?

[polo31]

bonjour dodo69,

c'est quoi la plage de tes valeurs ? ( c'est un range bien précis ?) (une ligne précise peut etre ?)

la plage de cellules qui prend ces valeurs est F45:S45

l'utilisateur va changer directement dans la case celle qui est en cours ? et les autres valeur de ta plage change automatiquement ?

C'est exactement ça !

[dodo69]

J'ai essayé de prendre en compte ce que j'ai compris

Essaye ca

code à placer sur la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim colonne_en_cours As Long
Dim colonne As Long
 
If Target.Value = "en cours" Then
    colonne_en_cours = Target.Column
 
 
    For colonne = 6 To 19
        If colonne < colonne_en_cours Then
            Cells(45, colonne) = "ok"
            ElseIf colonne > colonne_en_cours Then
                Cells(45, colonne) = "non débuté"
        End If
    Next colonne
End If
 
End Sub

En espérant que cela te convienne

Cdlt
DoDo

[polo31]

merci dodo69 ! ça marche très bien !!