Discussion :

[pat-bl]

Bonjour,
je suis débutante, voila mon souci je colore mes cellules pour l'instant cela fonctionne trés bien mais je voudrais appliquer deux fonctions zaza si la case x (elle se trouve en colonne a ) est mise et popo si elle ne l'est pas je voudrais que la fonction s'active en meme temps que je coche ou pas voila mon code cela fonctionne mais sur une ligne pourriez vous m'aider? je suis sur excel 2000

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
Private Sub Worksheet_Change(ByVal Target As range)
If Target.Column = 1 Then
    With range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        Select Case Target.Value
       Case "x"
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
    Case Else
            .ColorIndex = xlNone
        End Select
    End With
Worksheets(1).range("zaza").Copy range("g8aj8")
End If
 
End Sub

merci de me répondre
pat

[Invité]

Bonjour,

Il y a déjà au moins une erreur ici :

Code :

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

Worksheets(1).Range("zaza").Copy Range("g8aj8")

à remplacer par :

Code :

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

Worksheets(1).Range("zaza").Copy Range("g8:aj8")

Le code semble fonctionner à partir de cette modification.

[pat-bl]

Re
oui cela je le savais mais j'ai oubliée de modifier merci

[Invité]

Est-ce que le problème est résolu ou reste-t-il un autre problème ?

[pat-bl]

re
oui j'ai toujours le souci de mettre ma croix et que zaza applique a mes ligne selectionnés j'ai encore modifier voila mon code:

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
Private Sub Worksheet_Change(ByVal Target As range)
If Target.Column = 1 Then
    With range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        Select Case Target.Value
       Case "x"
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
 
    Case Else
            .ColorIndex = xlNone
        End Select
    End With
 
End If
 
End Sub

tu peux voir y a plus l'affectation de
Worksheets(1).range("zaza").Copy range("g8:aj8")
tu penses que je peux coller zaza dans ma suite de case
j'ai 238 lignes
merci d'avance

[Invité]

Tout est possible ou presque à condition de savoir ce que vous voulez faire exactement.

Ce que je constate pour l'instant :

-lorsque l'on clique sur une cellule vide en colonne "A" et que l'on entre "x" les cellules de la ligne en cours sont grisées de la colonne G à la colonne "AJ".

Je suppose donc que vous coller une plage de cellules nommée "zaza" dans cette même ligne et non pas dans la ligne 8 comme indiquée dans votre code :

Code :

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

Worksheets(1).range("zaza").Copy range("g8:aj8")

et cela évidemment à partir de la colonne "G" ?

Est-ce bien ce que vous voulez faire dans un premier temps ?

Ensuite vous dîtes que vous avez 238 lignes dans la suite de case :

-vous voulez toujours coller dans les autres lignes la plage "zaza" ?

-à priori ce serait étonnant, mais ?

-sinon que voulez vous faire exactement pour les autres lignes et comment ?