VBA modifier plage de cellules sur saisie

Version imprimable

12/07/2011, 11h14
polo31

VBA modifier plage de cellules sur saisie

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
12/07/2011, 11h41
dodo69

Bonjour polo,

Citation:

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 ?)

Citation:

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 ?
12/07/2011, 11h46
polo31

bonjour dodo69,

Citation:

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

Citation:

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 !

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

Essaye ca

code à placer sur la feuille concernée

Code:

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

12/07/2011, 13h31
polo31

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