Discussion :

[ben77350]

Bonjour,

J'ai besoin d'aide pour réaliser une action à partir d'une macro.
Le but est de griser les celulles C à N d'une ligne suivant le choix effectué dans la case B de cette même ligne.

Voici ce que j'ai déjà fait :
Dans ma colonne B, je n'autorise une réponse que par Oui ou Non.
Une fois mon choix effectué, je clique sur un bouton pour lancer ma macro.
celle-ci permet les actions suivantes :
Si on répond Non, les colonnes C à N deviennent grisées
Si on remet Oui, elles reviennent blanches à l'état initial.
Ce que je souhaite c'est que la mise en forme se fasse automatiquement dès le choix Oui ou Non sans passer par ce bouton ou l'activation de quoi que ce soit.

Aussi, je n'ai fait cette opération que sur une ligne. Je ne veux pas recopier le programme 90 fois et je pense qu'il y a un moyen très simple pour que celui-ci s'applique à toutes mes lignes.
Je souhaite que toutes les cases de ma colonne B (à partir de la ligne 9) et jusqu'à la fin de mon tableau permettent de griser les colonnes C à N de la ligne associée.

Pouvez-vous me renseigner?
merci d'avance.

[delphine35]

Tu peux mettre l'appel de ta macro dans ta feuille directement sous :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
...  appel_macro ...
End Sub

Target represente la cellule qui vient d'etre modifié.

Je souhaite que toutes les cases de ma colonne B (à partir de la ligne 9) et jusqu'à la fin de mon tableau

Tu conditionnes l'appel de ta macro :

Code :

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

1
2
3
if target.row >= 9 and tagert.column = 2 then
    appel_macro
end_if

....

[ben77350]

Est-ce que c'est bon comme ça :

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
22
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_Change(ByVal Target As Range)
    Concerne
End Sub
 
If Target.Row >= 9 And tagert.Column = 2 Then
    Concerne
end_if
 
 
Sub Concerne()
 
ThisWorkbook.Worksheets(1).Select
 
If Range("B9:B9").Value = "Non" Then
        Range("C9:N9").Select
        With Selection.Interior
        .Pattern = xlGray25
        .PatternColorIndex = xlAutomatic
        End With
        Range("B9:B9").Select
Else
        Range("C9:N9").Select
        With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        End With
        Range("B9:B9").Select
End If
 
End Sub

[patricktoulon]

bonjour


attention!!!Delphine 35 quand on donne un code en exemple il faut essayer de ne pas faire de fautes

ce n'est pas tagert mais target

sinon le code est bon


au plaisir

[delphine35]

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Concerne
End Sub
 
If Target.Row >= 9 And tagert.Column = 2 Then
    Concerne
end_if

Qu'est ce qu'il fait là ton if ... ?


Dans un module :

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
22
 
Public Sub Concerne(No_Ligne As Integer)
 
Set AC = ActiveSheet
 
With AC.Range(AC.Cells(No_Ligne, 3), AC.Cells(No_Ligne, 14)).Interior
 
    If StrConv(AC.Cells(No_Ligne, 2).Value, 1) = "NON" Then
        .Pattern = xlGray25
        .PatternColorIndex = xlAutomatic
 
    Else
        If StrConv(AC.Cells(No_Ligne, 2).Value, 1) = "OUI" Then
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End If
    End If
 
End With
 
End Sub

Dans la feuille (sous VBA - "Microsoft Excel Objects" - Feuil1(Feuil1) ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Private Sub Worksheet_Change(ByVal Target As Range)
 lg = Target.Row
 Ln = Target.Column
 
    If lg >= 9 And Ln = 2 Then
        Concerne12 (lg)
   End If
 
End Sub

[delphine35]

bonjour


attention!!!Delphine 35 quand on donne un code en exemple il faut essayer de ne pas faire de fautes

ce n'est pas tagert mais target

Désolé je suis dyslexique ....

[ben77350]

Super ça fonctionne bien pour les NON mais j'ai un souci pour le oui : débogage au niveau de :

Code :

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

.TintAndShade = 0

et de :

Code :

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

.PatternTintAndShade = 0

du coup je les ai neutralisé avec une apostrophe ça me va bien pour mon tableau mais j'aimerais savoir pourquoi.
encore merci de ton aide

[delphine35]

C'est peut etre du a une difference entre ta version d'excel et la mienne

[patricktoulon]

daccors

lui aussi alors tu lui a refiler ta dyslexie
et ben c'est pas gagné hihihihi
cela dis le code fonctionne chez moi donc a mon avis il est possible qu'il utilise une meme variable ailleur dans le classeur et quelle soit modifiée
et donc dans la macro ca ne fonctionne plus
moi je vois que ca et ca n'a rien a voir avec la version d'excel puisque que je l ai essayé sur 2000,2003 et 2007
au plaisir

[delphine35]

il faut essayer de ne pas faire de fautes

daccors

[patricktoulon]

bonjour

c'est dans le code qu'il ne faut pas qu'il y est da fautes le reste on s'en fou
un peu en fait

car la plus part du temp les debutants copient tout simplement le code que tu leur donne sans meme l'avoir compris avant alors si il y a des erreurs imagine se que ca donne

mille excuse si je t'ai offencer


au plaisir