Discussion :

[CHRIS_63]

Bonjour, voila je débute et vraiment pas très douée
Je veux coloré en bleu et écrire en blanc dans la feuille "HEURES RECAP"si dans la feuille "CP RECAP" il y a une valeur <>de 0 , je précise que les tableaux étant identique l'action est sur la même cellule

je veux le faire sur 50 lignes et de la colonne 6 à 31

voici ma macro qui ne fonctionne pas
L'erreur est sur la ligne :

Code :

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

ActiveCell.Offset(1, -31).Select

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
32
33
34
35
Sub essai()
'
' essai Macro
 
    Range("F13").Select
    Sheets("CP RECAP").Select
    Range("F13").Select
 
    l = 13
    c = 6
For a = 1 To 50
For i = 1 To 31
 
     If Cells(l, c).Value = "0" Then ActiveCell.Offset(0, 1).Select Else l1 = ActiveCell.Row And c1 = ActiveCell.Column
 
      Sheets("HEURES RECAP").Activate
 ActiveSheet.Cells(13, 6).Select
   '
' couleurbleu Macro
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
 
Next i
ActiveCell.Offset(1, -31).Select
Next aEnd Sub

Merci si quelqu'un peut m'aider.

[evx136]

Bonjour

Tu parcours les colonnes de 6 à 31 et ensuite tu fais un offset de - 31 sur les colonnes ?

revois ton Offset

Cordialement

[CHRIS_63]

merci de la réponse,

mais mon offset a pour but de revenir à la colle 6 de la ligne du dessous

[evx136]

fait un essai avec ce code.

pour une bonne lecture d'un code il faut indenter.
Eviter les select...

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
32
 
Sub essai()
'
' essai Macro
 
Sheets("CP RECAP").Select
Range("F13").Select
 
For a = 1 To 50
For i = 6 To 31
 
If Sheets("CP RECAP").Cells(a, i).Value <> 0 Then
Sheets("HEURES RECAP").Activate
Sheets("HEURES RECAP").Cells(a, i).Select
'
' couleurbleu Macro
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
 
Next i
Next a
End Sub

[Menhir]

L'erreur est sur la ligne : ActiveCell.Offset(1, -31).Select

Si j'ai bien compris, tu vas jusqu'à la colonne 31 et tu essayes d'aller 31 colonnes vers la gauche, ce qui équivaut à aller sur la colonne... 0. Comme c'est une colonne qui n'existe pas, ça génère une erreur.

Change ton -31 en -30.

Mais il serait bien plus simple pour toi, comme l'a conseillé evx136 dans son code, de supprimer cet Offset et de mettre directement les bonnes valeurs dans le Cells que tu sélectionnes au lieu d'avoir des valeur fixes et de changer par déplacement (qui, en plus, dans ton code, ne me semble pas du tout faire ce que tu souhaites).
Il est très rare que la fonction Offset soit utile en VBA et ne puisse pas être remplacée par quelque chose de plus pratique et plus rapide.

fait un essai avec ce code.

On peut aussi le faire en évitant les Activate et les Select, ce qui rendra le process plus rapide et moins désagréable à regarder fonctionner.

(il manque aussi un End If dans ton 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
18
19
20
21
22
23
24
25
26
27
 
Sub essai()
 
Sheets("CP RECAP").Select
Range("F13").Select
 
For a = 1 To 50
   For i = 6 To 31
      If Sheets("CP RECAP").Cells(a, i).Value <> 0 Then
 
            With Sheets("HEURES RECAP").Cells(a, i).Interior
               .Pattern = xlSolid
               .PatternColorIndex = xlAutomatic
               .ThemeColor = xlThemeColorLight2
               .TintAndShade = 0.399975585192419
               .PatternTintAndShade = 0
            End With
            With Sheets("HEURES RECAP").Cells(a, i).Font
               .ThemeColor = xlThemeColorDark1
               .TintAndShade = 0
            End With
 
      End If
   Next i
Next a
 
End Sub

Pour éviter d'avoir à écrire deux fois Sheets("HEURES RECAP").Cells(a, i), on peut aussi englober les deux With dans un autre With.

[CHRIS_63]

Merci cela fonctionne nickel!

Merci beaucoup evx136

et merci Menhir