Afficher msbx si... sur plusieurs plages nommées

[Startus]

Bonsoir le forum,

Je bloque sur un code VBA de mon classeur depuis quelques jours déja...

Je m'explique :
Dans une grille numérotée de 1 à 49 (On dirait le loto...Non...), l'orsque je sélectionne un N° d'une plage nommée 'Grille_1' la cellule change de couleur via un code VBA, et un message s'affiche si je selectionne plus de 6 N° dans cette plage 'Votre grille est pleine'

Mon souci, est que je n'arrive pas à faire fonctionner ce code sur plusieurs grilles (Grille_1,2,3...etc)

Voila le fichier

Merci de m'éclairer, il me semble que ce forum contient quelques lumières...
Startus [file name=Compter cellule colorié_20050601022025.zip size=9542]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Compter cellule colorié_20050601022025.zip[/file]

 

[PascalXLD]

Re:Afficher msbx si... sur plusieurs plages nommée

Bonjour

Voici ton fichier modifié

Si tu as beaucoup de grilles il faudra peut-être agir différemment

Bonne journée [file name=Comptercellulecolorié_20050601081150.zip size=9273]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Comptercellulecolorié_20050601081150.zip[/file]

 

[_Thierry]

Re:Afficher msbx si... sur plusieurs plages nommée

Bonjour Pascal, Startus, le Forum

Pour rappel, les fichiers nommés avec des caractères spéciaux ne peuvent pas être téléchargés sous IE...


Sinon Pascal as-tu vu mon intervention pour l'usage de Lien supprimé, ça pourra toujours te servir.

Bonne Journée

@+Thierry

Message édité par: _Thierry, à: 01/06/2005 08:24

 

[PascalXLD]

Re:Afficher msbx si... sur plusieurs plages nommée

Salut Thierry

Pour le é en effet j'ai repris texto son fichier et comme j'utilise Firefox j'avais pas eu de problèmes

Pour l'userinterfaceonly en effet j'ai suivi même si je n'ai plus posté sur ce fil j'y étais 'abonné' et j'ai donc tout suivi

Bonne journée à toi

PS le fichier sans accent [file name=Comptercellulecolorie.zip size=9273]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Comptercellulecolorie.zip[/file]

Message édité par: Pascal76, à: 01/06/2005 08:29

 

[_Thierry]

Re:Afficher msbx si... sur plusieurs plages nommée

re Bonjour Pascal

Alors partant pour Lyon en Septembre !!!

Bon alors cvu que t'a enlevé l'accent, je peux t'enguirlander !!! lol

Pour rappel, Option Explicit en Top de Module oblige à déclarer les variables... (Dim Cellule As Range par exemple )

Bonne Journée à toi aussi
@+Thierry

 

[Baside]

Re:Afficher msbx si... sur plusieurs plages nommée

Bonjour Startus Pascal76 _Thierry le forum

J'ai pau sélectionner d'autres cellules sur la plage 1, alors j'ai revu le code

Par contre, il faudra faire une remise à zéro des cellules, je pense

Baside [file name=CompterB.zip size=9637]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CompterB.zip[/file]

 

[PascalXLD]

Re:Afficher msbx si... sur plusieurs plages nommée

Re

Thierry

Mais j'avoue que franchement là pour la déclaration de variables ce n'etait pas mon fichier j'ai juste regardé ce qui existait déjà et je l'ai modifié sans m'amuser à vérifier les décarations etc ...

Par contre je t'assure que tout ce que je fais maintenant pour le forum pour le job et pour moi c'est avec option explicit

Bonne journée

 

[Startus]

Re:Afficher msbx si... sur plusieurs plages nommée

Bonjour le forum,

Pascal, Thierry & Baside Salutation...

Sorry, pour ma part j'utilie Crazy Browser comme navigateur et je n'ai pas de problème concernant l'accentuation...

Je vous remercie tous d'avoir travaillé sur mon fichié...

Le fichier de Baside correspond à ce que je cherche à faire, mais en fait, il faudrait appliquer cela sur 10 Grilles

Existe t-il un moyen plus rapide que de répéter 10 fois ces lignes de code :
For Each Cellule In Range('Grille_1')
If Cellule.Interior.ColorIndex = 5 Then
Total1 = Total1 + Cellule.Count
End If
Next
If Total1 > 6 Then
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 3
MsgBox 'Votre grille est déjà pleine...', vbInformation
End If
Merci

PS: Désolé, je n'ai pas pu vous répondre avant ...

 

[Baside]

Re:Afficher msbx si... sur plusieurs plages nommée

Bonjour Startus Pascal76 _Thierry le forum

Tout d'abord, je tiens à repéciser que je n'ai que modifier le travail de Pascal76 car j'avais pu sélectionner plus de six cellules sans alerte.

Je remercie _Thierry pour ses infos sur userinterfaceonly

Par contre Startus, il faut une détection par plage donc un code par plage.

Maintenant, peut être qu'une procèdure niveau feuille en déclarant les plages et une condition de détection pourait résoudre le problème.

Bonne journée, baside