problème de boucle

Version imprimable

problème de boucle

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:

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

04/10/2008, 14h18
Invité

Bonjour,

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

Code:

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

à remplacer par :

Code:

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

Le code semble fonctionner à partir de cette modification.
04/10/2008, 14h33
pat-bl

Re
oui cela je le savais mais j'ai oubliée de modifier merci
04/10/2008, 15h39
Invité

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

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:

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

04/10/2008, 17h42
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:

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 ?
04/10/2008, 18h12
pat-bl

re
en faite j'active ma cellule a par un x est je veux que cela prenne la plage g5 : aq5 que j'ai nommé "zaza" qui a des calcules mais je ne ve pas qu'elles s'applique si je ne slectionne pas d'un x ma cellule a
j'espère que tu m'a compris pas évident
merci jacques_jean
ps: tu peux me tutoyer ? lol

re
un oublie mes lignes actives prennes la couleur gris n°15
merci jacques_jean

Bonsoir,

Je ne suis pas sûr d'avoir tout compris, mais essayez ce code et précisez s'il y a quelque chose à changer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then
Exit Sub
Else
    Select Case Target.Value
    Case "x"
    lgn = Target.Row
    Range("zaza").Select
    Selection.Copy
    Range("g" & lgn).Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
        With Range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        .ColorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
         End With
      Case Else
      With Range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
      .ColorIndex = xlNone
      End With
      Range(Cells(Target.Row, 7), Cells(Target.Row, 36)).ClearContents
      End Select
 
End If
End Sub

bonjour
cela me met une erreur d'excecution '1004"
la méthode 'range' del'objet'_worksheet' a échoué
et meme en faisant comme ca aussi

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)
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
If Target.Column = 1 Then
Selection.EntireColumn.Select
range("zaza").Copy
End If
 
 
End Sub

gros probleme dur d'y arriver :bug:

05/10/2008, 16h25
Invité

Bonjour,

Vous avez copié ce code dans la feuille qui contient les "x" en colonne 1 et sur laquelle vous aller copier les données de la plage "zaza" ?

Mais cette plage "zaza" sur quelle feuille se trouve-t-elle ?
05/10/2008, 16h29
pat-bl

re
"zaza" ce trouve sur une feuille "ne pas toucher"
que je garde pour copier dans une autre
merci
05/10/2008, 17h23
JackOuYA
Bonjour,

j'ai pas tout relu mais pour l'erreur 1004 essai :

si ta feuille ne pas toucher et dans le même classeur que ton code :
Code:

1 2 Thisworkbook.sheets("ne pas toucher").range("zaza").Copy
05/10/2008, 17h25
Invité

Et bien voilà l'explication.

Evidemment, on peut imaginer que j'aurais dû vous poser la question plus tôt, mais je pouvais aussi au départ penser que vous connaissiez la règle :

-le code inséré dans une feuille réagit a une action effectuée sur cette feuille et vous ne pouvez pas faire référence à d'autres feuilles.

Pour cela il faut mettre le code dans un module.

Je m'absente quelques temps et je vous donne la solution si elle ne vous a pas été donnée avant.
05/10/2008, 17h42
pat-bl

re
merci de ton aide