[VB6 - VBA] Multi-range

Question

Bonsoir le forum,

Je souhaites mettre cette formule sous vba :

Si les lignes (toutes ces lignes) 42:46 ET 95:109 sont masqués,
Alors Affiche les lignes 29:31.

Merci de votre aide. 


CARPE DIEM

Utilisateur anonyme · Answer

Bonjour,

Tu dois produire ton code. C'est écrit dans le règlement.

Utilisateur anonyme · Answer

Bonjour,

Je n'ai pas envie de chercher à ta place pour écrire ton code à ta place.

Ma première idée serait d'enregistrer une macro qui masquerait une plage, et d'étudier le code obtenu pour savoir à quoi on peut distinguer une plage masquée, puis je regarderais les objets Range dans l'aide, pour trouver le moyen de regrouper des plages dans une plage commune, ou je le ferais directement dans la première macro en utilisant la touche CTRL pour ajouter la seconde plage à la première et j'étudierais le code.

Ensuite je regarderais dans mon aide, si on peut retracer des cellules masquées avec specialcells. (Comme j'ai dit, je n'ai pas envie, ce dimanche soir, de chercher à ta place, et je ne le sais ou je ne m'en souviens vraiment pas). Si c'est oui, il y a peut-être même un exemple. Si c'est non, il suffit juste de boucler ligne par ligne et de tester si la ligne est masquée ou non. Puisque j'aurais déjà étudié la macro qui masque des lignes, je n'aurais pas de difficulté majeure à trouver le moyen d'afficher des lignes masquées. (Je suppose que c'est une question de true or false, comme d'habitude.

Et puis, si tu as envie de faire une crise parce que tu n'a pas la solution toute faite; je m'en fous, tu ne serais pas le premier.

Utilisateur anonyme · Answer

Encore un autre qui ne sait pas lire et qui envoie sa question à la mauvaise place. Je propose sérieusement
 le boycott systématique de toutes les questions inscrites dans la mauvaise section, même quand un administrateur l'a déplacé. Ces maudits paresseux pas foutus de faire attention, ne méritent pas mieux.

ucfoutu · Answer

Bonjour, cmarcotte,
Je te comprends d'autant mieux que :
- il connait l'existence de la section dédiée à VBA (ses autres discussions)
- il semble (euphémisme) être adepte du jeu qui consiste à faire faire une partie de son appli sur un site et l'autre sur un autree site.
Ca doit être quand même assez fatiguant, de "jongler" ainsi entre plusieurs sites 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

Bonjour,
tu veux de l'aide en voila :)
si ligne(42:46).masquer vrai et ligne(95:109).masquer vrai alors
ligne(29:31).masquer = faux
finsi

Fabien

ucfoutu · Answer

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

oui ? ki ki t'arrive ucfoutu ?


Fabien

ucfoutu · Answer

Pourquoi, selon toi, fabiendag, ai-je mis le smiley "peur" après ta réponse ?
PS : je l'aurais volontiers également mis (si j'en avais été un membre) le même smiley sur un "autre site" 
Un conseil : toujours essayer "la solution" que l'on propose. Cela permet, dans la foulée, d'en apprendre un peu soi-même.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Relis, avant de "foncer" et de "froncer les sourcilks" :
Si les lignes (toutes ces lignes) 42:46 ET 95:109 sont masqués


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

quel autre site tu parles ? parce que je vois pas où je pourrais te faire peur ailleurs qu'ici :)
bref, ma condition est bonne par rapport à ce que tu écris si toutes les lignes sont masquées.


Fabien

ucfoutu · Answer

bref, ma condition est bonne par rapport à ce que tu écris si toutes les lignes sont masquées.

Non ! 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

Je vois pas ce qui va pas désolé


Fabien

ucfoutu · Answer

Pas grave.
Tu le verras (avec demo) lorsque je serai certain de ce que vvvince aura compris qu'il perd son temps à jouer au "ping pong" (pas avant 4 jours, donc). 



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Mais en attendant (et uniquement pour toi, fabiendag)
  Voilà (copié/collé) le genre de code que vvince à "récolté" et approuvé :
  If Rows("34:126").EntireRow.Hidden = True Then
Alors ===>> regarde bien ce tout petit test :
  Rows("4").EntireRow.Hidden = True
  Rows("5").EntireRow.Hidden = False
  If Rows("4:5").EntireRow.Hidden = True Then MsgBox "oui" else msgbox "non"

On est bien d'accord sur le fait que la ligne 5 est visible, elle, seule la ligne 4 étant cachée ? 
Le msgbox devrait donc afficher "non", hein ...
Hé bien non ! Il affichera "oui", pardi ... 
Ah ah ! et pour cause !
On peut bien évidemment tourner la difficulté en bouclant sur toutes les lignes; Ce serait lourdaud et assez maladroit. Il y a quand même mieux, plus léger et plus rapide à faire que de traiter en boucle, hein ...
A dans 4 jours, donc, conformément à la décision que j'ai prise de manière délibérée. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

ok mea culpa ucfoutu :)


Fabien

ucfoutu · Answer

Pas grave, fabiendag. Nombreux sont ceux qui tombent dans ce piège-là 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

juste pour ma défense, je l'avais pas écrit en vba... donc à lui de l'adapter en vba pour que ca fonctionne, c'est bien toi qui dit qu'il faut que la personne cherche un peu et qu'on va pas lui donner une procédure toute faite...
je me cherche une excuse bidon ou c'est crédible ? lol


Fabien

ucfoutu · Answer

ou c'est crédible ?

Attends (restent 3 jours, maintenant)...
Tu verras que je n'utilise pas du tout ce principe, car pas bon dans ce cas-là. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

oui j'ai fait le test... ca ne fonctionne pas et comme tu as la réponse et que c'est pas pour moi... bah je cherche pas lol


Fabien

fabiendag · Answer

Et puis si mes souvenirs sont bons, ya dejà des topics la dessus non ? ca me dit quelque chose de l'avoir déjà lu quelque part ta réponse


Fabien

ucfoutu · Answer

ya dejà des topics la dessus non ?
Je ne le pense pas, non.
Je ne pense d'ailleurs même pas que qui que ce soit, sauf apparemment vvvince, ait eu un jour à établir un aussi curieux mécanisme qui donne à penser à une carence de conception conduisant à l'utilisation d'un tremplin abusif (comme d'autres le font, également abusivement, avec des couleurs) ...)
Mais bon ...

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

vvvince · Answer

Bonsoir le forum,

Fabien, merci pour ces indications :)lol

Le code que je cherchais est :

If Range("42:66").EntireRow.Hidden True And Range("95:109").EntireRow.Hidden True Then
    Range("29:31").EntireRow.Hidden = False
    End If

Ca Fonction avec mon tableau.

Bonne soirée.

CARPE DIEM

ucfoutu · Answer

Ben non !
Ce code (dont je connais l'origine (un certain Fred35) est faux !
Il ne contrôle pas que toutes les lignes sont masquées (ta demande). Il suffira que  les lignes 42 et 95 (même seules) soient masquées, quelques autres ne l'étant pas, pour qu'il masque allègrement les lignes 29 à 31 (indument, donc). 
Allez ===>> retourne le dire là où on te l'a donné et où tout est faux dès le 1er message (quand ta demande ne concernait encore qu'une seule plage continue).  


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

Bonjour à tous,
ucfoutu a raison, il ne marche pas ton code...
je sais pas comment tu l'as testé, mais non ca ne marche pas du tout...
par contre, moi j'ai une piste peut être la veux-tu à moins que je laisse ucfoutu te donner sa solution ... dans 3 jours :)

Fabien

ucfoutu · Answer

Allez va ===>> mon épouse me demande d'être plus gentil le jour de nos noces d'or ===>>
Le voilà, son code :
Dim toto As Range
On Error Resume Next
Set toto = Range("42:66,95:109").SpecialCells(xlCellTypeVisible)
Range("29:31").EntireRow.Hidden = IIf(Err, True, False)
On Error GoTo 0
ou comment se servir astucieusement, pour une fois, de la gestion d'erreur et chercher l'inverse de ce que l'on cherche, comme au jeu du menteur.
Mais j'espère, vvvince, que je ne te reprendrai plus jamais à jouer au ping-pong entre différents sites, hein ... (j'aime pas ça du tout).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Ah oui... c'est afficher, qu'il voulait ===>> on inverse la vapeur ===>>
...
Range("29:31").EntireRow.Hidden = IIf(Err, False, True)
...


Et d'ailleurs : pourquoi se priver de rigoler un peu ===>> on y va ? ===>>>

Dim toto As Range
On Error Resume Next
Set toto = Range("42:66,95:109").SpecialCells(xlCellTypeVisible)
Range("29:31").EntireRow.Hidden = Not CBool(Err)
On Error GoTo 0

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

fabiendag · Answer

Félicitation pour tes noces d'or... tu as kel age ? 
J'avais trouvé cette piste... comme quoi en cherchant sur le net, on trouve... plutot que se précipité à poser des questions sur un forum et attendre bien sagement la réponse :)


Fabien

ucfoutu · Answer

tu as kel age ?
celui de mes artères, mais je suis encore très jeune. Aussi jeune (très) que je l'étais lorsque j'ai épousé celle qui est toujours près de moi. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

[VB6 -> VBA] Multi-range

28 réponses

Votre réponse

Discussions similaires