Problème de syntaxe

[zazou5908]

Bonjour le forum,

Y aurait-il quelqu'un pour m'expliquer pourquoi le 1er code ne fonctionne pas et que el second oui.

Pourquoi faut-il toujours répéter

If Range("Y" & i).Value = 1 Then Range("A" & i & ":W" & i)

devant mes propriétés pour que la macro exécute ce que je lui demande ?

Si je ne met pas cela, toutes les lignes de la colonne A pour les lignes comprises dans mon for i to .... sont mises à jour !

Merci de faire avancer ma connaissance.


====================================
Sub Macro1()
'
' Macro1 Macro
' Macro inspirée XLD + perso
'

'
Dim i As Integer

For i = 10 To 17 Step 1

If Range("X" & i).Value = 2 Then Range("A" & i & ":W" & i).Font.Bold = True

If Range("Y" & i).Value = 1 Then Range("A" & i & ":W" & i).Font.Size = 14
.Interior.ColorIndex = 33
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic

Next i

End Sub

====================================

Sub Macro1()
'
' Macro1 Macro
' Macro inspirée XLD + perso
'

'
Dim i As Integer

For i = 10 To 17 Step 1

If Range("X" & i).Value = 2 Then Range("A" & i & ":W" & i).Font.Bold = True

If Range("Y" & i).Value = 1 Then Range("A" & i & ":W" & i).Font.Size = 14
If Range("Y" & i).Value = 1 Then Range("A" & i).Interior.ColorIndex = 33
If Range("Y" & i).Value = 1 Then Range("A" & i).Interior.Pattern = xlSolid
If Range("Y" & i).Value = 1 Then Range("A" & i).Interior.PatternColorIndex = xlAutomatic

Next i

End Sub

====================================

 

[Compte Supprimé 979]

Re : Problème de syntaxe

Salut Zazou5908,

Dans ton premier code tu veux appliquer une propriété à un objet qui n'est pas déterminé.

Il faut que tu mettes ça :

If Range("Y" & i).Value = 1 Then 
  [COLOR=blue]With Range("A" & i & ":W" & i) [/COLOR][COLOR=green]' Avec mon objet range()[/COLOR]
    .Font.Size = 14
    .Interior.ColorIndex = 33
    .Interior.Pattern = xlSolid
    .Interior.PatternColorIndex = xlAutomatic
[COLOR=blue]  End With[/COLOR]

Voilà 😉

 

[Catrice]

Re : Problème de syntaxe

Bonjour,

Il faut encadrer les modifications avec If et ... End If.

Essaye comme ceci :

Sub Macro2()
For i = 10 To 17 Step 1
If Range("X" & i).Value = 2 Then Range("A" & i & ":W" & i).Font.Bold = True
With Range("Y" & i)
If .Value = 1 Then
Range("A" & i & ":W" & i).Font.Size = 14
Range("A" & i).Interior.ColorIndex = 33
Range("A" & i).Interior.Pattern = xlSolid
Range("A" & i).PatternColorIndex = xlAutomatic
End If
End With
Next
End Sub

 

[JYLL]

Re : Problème de syntaxe

Bonsoir Bruno, Catrice et le Forum,

Autre solution:

Sub Macro1()
'
' Macro1 Macro
' Macro inspirée XLD + perso
'
Dim I As Integer
    For I = 10 To 17 Step 1
        If Range("X" & I).Value = 2 Then Range("A" & I & ":W" & I).Font.Bold = True
            If Range("Y" & I).Value = 1 Then
                Range("A" & I).Select
                With Selection
                   .Font.Size = 14
                   .Interior.ColorIndex = 33
                   .Interior.Pattern = xlSolid
                   .Interior.PatternColorIndex = xlAutomatic
                End With
            End if
    Next I
End Sub

Bon test.

 

[zazou5908]

Cher Bruno, Catrice, Jyll et le forum

Merci pour vos réponses éclairés.

Comme lors d'une précédente question, on m'a fait la remarque que les select .... prenait plus de temps à l'excécution, je vais continuer avec la solution de Bruno.

Que les autres se consolle cette fois-ci car ils m'ont permis de faire avancer ma culture VBA 😀

A bientôt et encore merci

 

[zazou5908]

Grrrrrr sans faute de Français c'est pas mal non plus !

Cher Bruno, Catrice, Jyll et le forum

Merci pour vos réponses éclairées.

Comme lors d'une précédente question, on m'a fait la remarque que les "select" .... prenaient plus de temps à l'excécution, je vais continuer avec la solution de Bruno.

Que les autres se consollent cette fois-ci car ils m'ont permis de faire avancer ma culture VBA

A bientôt et encore merci