inkballs
Messages postés11Date d'inscriptionlundi 7 septembre 2009StatutMembreDernière intervention11 janvier 2010
-
18 déc. 2009 à 16:33
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
18 déc. 2009 à 21:21
Bonjour,
Je coince un peu sur le code suivant,à la ligne3.Je souhaiterai que le test sur la cellule s'exécute sur une autre feuille;mais je ne vois pas comment faire;après plusieurs essais,sans résultats.Est-ce que je pourrai avoir une aide.
merci.
INKBALLS.
----------------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
inkballs
Messages postés11Date d'inscriptionlundi 7 septembre 2009StatutMembreDernière intervention11 janvier 2010 18 déc. 2009 à 18:18
Bonsoir,
La feuille protection contient les données à renseigner,ce n'est que du remplissage de cellules;et le test du nombre de valeurs(NBVAL),je souhaiterai le placer sur une autre feuille,afin d'éviter une modification;voila le pourquoi"d'une autre feuille".
Ta modification,fonctionne correctement,j'attends d'avoir terminer le code pour les 4 feuilles suivantes,et la réussite au bout de la ligne.
MERCI de ton aide.
INKBALLS
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 18 déc. 2009 à 18:34
Bonjour,
Et je passerais par la procédure "propre", qui consiste à :
déclarer ta plage résultant de l'union, ainsi, par exemple :
Dim monunion As Range
puis définir cet objet ainsi :
set monunion = Application.Union(...,...,...)
et ensuite : sélectionner monunion
sheets(....).monunion.select
voilà pour le mécanisme (à toi de savoir avec quelles feuilles tu joues)
Je ne comprends par ailleurs pas ton message d'invite à mettre en gris les cellules de la sélection ! Pourquoi ne les mets-tu pas en gris par code, alors ?
Et tu n'aurais même pas besoin de sélectionner ces cellules pour ce faire !
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.
inkballs
Messages postés11Date d'inscriptionlundi 7 septembre 2009StatutMembreDernière intervention11 janvier 2010 18 déc. 2009 à 19:07
Bonsoir,
En ce qui concerne les cellules en gris,elles contiennent des"MFC"gris=non rempli et vert=ok.Pour ce qui et du code type"union"je ne sais pas faire,si tu me l'écris je pourrai faire un test.Je suis un débutant en "VBA".
Merci de ton aide.
INKBALLS
Vous n’avez pas trouvé la réponse que vous recherchez ?
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 18 déc. 2009 à 19:38
1) Je ne coimprends pas tout de ton dernier message.
2) je crois t'avoir déjà dit l'essentiel et attends de toi que tu appliques ou (au moins) tentes de le faire.
On verra ensuite comment corriger ce que tu auras tenté
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.
inkballs
Messages postés11Date d'inscriptionlundi 7 septembre 2009StatutMembreDernière intervention11 janvier 2010 18 déc. 2009 à 21:12
Bonsoir,
1)Dans l'immédiat je ne dispose pas d'assez de temps,bientôt je serai en vacances et je tenterai une mise en place comme la procédure"union";que tu proposes.
2)La feuille concernée n'est qu'une serie de données;si la cellule est vide=gris,si la cellule est remplie=vert;et le test consiste à compter le nombre de valeurs soit 143 avec (NBVAL) sur une autre feuille.Donc on doit remplir 143 cases,si le compte n'y ai pas un message s'affiche"remplir les cellules en gris"
Pour l'instant je vais m'appliquer à construire le reste du code au 3 feuilles restantes,et voir si le code fonctionne.
Merci de ton aide.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 18 déc. 2009 à 21:21
bientôt je serai en vacances et je tenterai une mise en place comme la procédure"union";que tu proposes
Bonnes vacances et à ton retour, alors ...
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.