Restreindre un code

[sev]

Bonjour à tous,
Je voudrais que les valeures différentes de la plage C6:C300 de la feuille "Parc" ne soient pas affecté à ce code :

Sub macro60()

  For Each C In [champ2]
  If NbSiMZ([champ2], C.Value) > 1 And [COLOR="Blue"]C.Value <> "" [/COLOR]Then
    C.Interior.ColorIndex = 1
    C.Font.ColorIndex = 2
  Else
    
  End If
  Next C
End Sub

Je pense qu'une modif au niveau du code bleu est possible.
Mais comme je ne suis pas spécialiste je fais appel à votre aide

Merci

 

[pierrejean]

Re : Restreindre un code

bonjour sev

A tester:

Sub macro60()

  For Each C In [champ2]
[COLOR=teal]If Not (C.colum=3 and C.row>5 And C.Row<301) then
[/COLOR]  If NbSiMZ([champ2], C.Value) > 1 And [COLOR=blue]C.Value <> "" [/COLOR]Then
    C.Interior.ColorIndex = 1
    C.Font.ColorIndex = 2
  Else
    
  End If
[COLOR=mediumturquoise][COLOR=teal]End if[/COLOR]
[/COLOR]  Next C
End Sub

 

[sev]

Re : Restreindre un code

J'ai un message d'erreur :
Erreur d'exécution ' 438'
Propriété ou méthode non gérée par cet objet


Précision la feuille "Parc" est différente de celle où s'applique la macro

 

[pierrejean]

Re : Restreindre un code

Re

Exact : petite faute d'ecriture

Sub macro60()

  For Each C In [champ2]
[COLOR=teal]If Not (C.colum[COLOR=red]n[/COLOR]=3 and C.row>5 And C.Row<301) then
[/COLOR]  If NbSiMZ([champ2], C.Value) > 1 And [COLOR=blue]C.Value <> "" [/COLOR]Then
    C.Interior.ColorIndex = 1
    C.Font.ColorIndex = 2
  Else
    
  End If
[COLOR=mediumturquoise][COLOR=teal]End if[/COLOR]
[/COLOR]  Next C
End Sub

 

[sev]

Re : Restreindre un code

Celà ne fonctionne pas ,
car je pense que le code s'applique à la feuille active.
La column 3 se trouve sur la feuille "Parc" qui n'est pas active mais sert de référence.

 

[pierrejean]

Re : Restreindre un code

Re

Excuse moi mais mon reseau Telepathie haut debit est en panne , ma boule de cristal embuée et je n'ai plus de marc de café

Je ne crois pas pouvoir t'aider sans un petit fichier exemple (sans données confidentielles )
Une copie de ton fichier avec les seuls elements du problème doit suffire