objets range multiples

Bonjour
j'ai compris le système for each cell in range pour balayer des cellules diverses et appliquer une action après analyse de chaque cellule. Par exemple, masquer la ligne correspondante si un cas est cochée "x". Mais je voudrais maintenant dire à excel ( en français basique)
"examine les ensembles de cellules suivants "a1:c6, b2:c2;d12" ( par exemple)
si tu trouves une seule "x" dans chaque plage selectionnée, alors masque les lignes correspondantes
et là, je sèche
mon idée que j'ai essayée était de faire un compteur en définissant une liste de Range("x1:y2") ??? Mais pas moyen
merci beaucoup à qui me trouverait une idée !!
R Boini
:D

Bonsoir Boini, bienvenue sur le forum.
Tu peux tester ça :

Code:

---

1 2 3 4 5 6 7

sub test() dim Plage As Range, Cell As Range Set Plage = Range("a1:c6, b2:c2,d12") For each Cell in Plage If Cell = "coucou" then msgBox "c'est moi !" next end sub

---

Bonne soirée où que tu sois ;)

Merci beaucoup pour ta réponse si rapide. Elle se rapproche de mes premiers essais et présente le même défaut que ce que j'avais tenté. Exemple: si j'ai un tableau avec un intitulé dans la colonne a et je coche avec un "X" (par exemple) une des cases réponses possibles. Ca peut donner: alors heureuse? cocher "un peu", "beaucoup", "pas du tout". Si il n'y a aucune des cases cochées (elle n'est pas concernée par la question...) alors je veux masquer la ligne concernée (afin de ne garder que les infos recueillies, pour allèger la présentation. Mais il faut donc qu'a chaque ligne je puisse tester la présence d'une réponse dans chaque plage sélectionnée. Sachant que toutes les plages n'ont pas le même nombre de cases, ne sont pas toutes forcément contigues ...C'est ça le bug !!:D

Si je reformule ta question, car je ne suis pas sûr d'avoir compris, tu souhaites parcourir une colonne et, pour chaque cellule de la colonne, vérifier sur la ligne de la cellule qu'une cellule de la ligne n'est pas cochée.
C'est bien ça ?
Si oui, alors ta plage discontinue ne sert à rien.
Si oui, alors dans ton exemple ("a1:c6, b2:c2,d12") tu veux parcourir les cellules des lignes 1 à 6 et 12.
Si non... qu'importe le nombre de cellules de ta ligne, c'est que je n'ai pas compris :aie:
Tu peux préciser ?
A+

Bonsoir
pour etre plus clair, ci joint un exemple de tableau que je veux traiter
il y a ici deux parties. Dans la première , pour chaque ligne, soit on coche oui, soit on coche non, ou rien du tout.
Dans la deuxième partie, pour chaque ligne je peux cocher une des six cases disponibles ou rien.
Je peux faire une sub qui détermine que si rien n'est coché dans une ligne (en passant par une premiere fois un range ("")quelque chose ), alors je la masque ( ou toute autre action) ceci d'abord pour le premier tableau, puis une deuxiéme sub pour traiter le deuxième tableau, puis une troisième sur le même modèle. Le problème c'est qu'à la fin c'est lourd ( parce que j'ai quinze tableaux à traiter ) et un peu "beuh beuh de base" comme système. J'aurais donc voulu faire plus élégant en lui indiquant une bonne fois les range à traiter, même si elles sont de forme différentes et non contigues, et qu'ensuite il considère globalement chaque plage pour voir si elle est vide ou non, et non pas chaque cellule de chaque plage. Voila, c'est plus clair comme ça ?? en tout cas , j'ai essayé !! :lol:

Ok. Quelle est la finalité ? (je ne parle pas de la finalité médicale :aie:) Que veux-tu obtenir ? Un tableau reprenant "tout ça"
vertige vrai -> Non
sensation vertigineuse -> Oui
sensation de tête flottante, eau dans la tête, .. Autre -> Non
gêne pour se déplacer dans les super-marchés -> Non
cinétose -> etc
Romberg -> RAS

Pour cette page là, je veux masquer les lignes non utilisées, parce que la personne n'est pas concernée par cet item. De cette manière je peux imprimer un résumé du tableau , compact, facile à lire pour le destinataire, et le joindre au dossier . En effet, le tableau est long et il y a toujours de nombreux items non pertinents pour un patient donné . Ca fait donc souvent beaucoup de pages de tableaux avec plein de trous, et imprimer le tableau global, c'est illisible, consomme trop de papier ( merci la planète ) Je sais bien que je veux transformer excel en secrétaire, mais le pb, c'est que l'informatique de mon etablissement m'oblige a créer des fiches bilan dans excel, j'ai pas le choix. Donc depuis un an , je transforme excel en secrétaire qui rédige des courriers, résume des tableaux etc ...
a part ça je fais subir bien d'autres traitement à ces tableaux, mais pour le reste, j'a i( en souffrant) réussi à me dépatouiller.
Merci, à bientot
R Boini

Ok, je r-ouvre ton classeur et je regarde. C'est bien en X que tu mets dans les cases ?
Pour ce qui est de transformer Excel en secrétaire, avec Word, ça sert à ça ;)
A bientôt

hé oui, je sais bien, mais le logiciel de gestion du dossier médical que nous utilisons ne nous laisse pas le choix. Pour créer des fiches de bilan, c'est excel et rien d'autre ...
Sinon, dans ce cas, c'est bien avec "x" que je coche ( dans le cas de ces tableaux en tous cas )
merci;)

Bonsoir

Je propose de nommer ta plage des cellules de réponses. Tu vas donc créer une plage multizones reprenant toutes les cases à cocher du formulaire.

Dans l'exemple que tu donnes, tu sélectionnes donc la plage E3:F11 et en même temps la plage C16:H18. Tu la nommes par exemple Donnees

Après, par code, on va balayer chaque ligne de chaque zone de la plage nommée Donnees et utiliser la fonction CountIf au sein du code.

Si CountIf sur la ligne renvoie 0, on la masque pour n'imprimer que les lignes qui ont une cellule au moins avec un "x"

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim Plage As Range Dim i As Long   For Each Plage In Range("donnees").Areas For i = 1 To Plage.Rows.Count If Application.WorksheetFunction.CountIf(Plage.Rows(i).Cells, "x") = 0 Then Plage.Range("a" & i).EntireRow.Hidden = True Next i Next Plage End Sub

---

Cela répond-il à tes attentes?

Alors voilà... Tu as deux plages à traiter (je ne comprends pas à quoi correspond D12 mais voici toujours la méthode.
Dans ton premier tableau, comme tu masques des lignes, pas de problème pour utiliser Each.
Par contre pour supprimer les cellules du deuxième tableau (tu ne peux pas les masquer sans masquer les colonnes du premier tableau) tu ne peux parcourir les cellules qu'avec une double boucle, la boucle sur No de colonne commençant à la fin puisqu'une fois les cellule de la colonne supprimées, les cellules de la colonne suivante les remplacent.
Le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub LeTest() Dim Plage As Range, Cell As Range Dim NoLig As Integer, NoCol As Integer, ok As Boolean For NoCol = 8 To 3 Step -1 For NoLig = 16 To 18 ok = ok Or Trim(UCase(Cells(NoLig, NoCol))) = "X" If ok Then Exit For Next If Not ok Then Range(Cells(14, NoCol), _ Cells(18, NoCol)).Delete Shift:=xlShiftToLeft ok = False Next Set Plage = Range("E3:E11") For Each Cell In Plage If Not Trim(UCase(Cell)) = "X" Then Cell.EntireRow.Hidden = True End If Next End Sub

---

Bonne nuit

PS - si tu as un pb avec D12, tu dis ;)

@ ousk'el'nor
oups! je ne cherche pas du tout à masquer des colonnes dans ce cas! je ne suis pas entièrement maso, je me suis quand même arrangé pour disposer tous mes tableaux à traiter dans le même sens !;) ( ben oui, puisque c'est moi le créateur, j'en profite au moins pour disposer comme je le veux:mouarf:) Parce que sinon, ça devient très compliqué!
@pierre fauconnier ça ressemble beaucoup à ce que je recherche, a priori. Juste une question trèèès bête: ou est ce que je déclare cette zone "données" ???

edit: ou est ce que je modifie mon profil ? histoire de ne pas avoir l'air d'un sauvage ...

Tu sélectionnes les cellules, puis tu vas dans la zone de noms (à gauche de la zone de saisie des formules) et tu remplaces ce qui s'y trouve (l'adresse d'une cellule) par le nom que tu veux donner à ta plage, puis (ne pas oublier), tu valides avec Enter


Voici le fichier avec la macro.

J'ai bien fait de poser ma question bête, car je n'avais jamais utilisé cette histoire de selection de zones, j'aurais pu ramer encore longtemps !!
Merci encore à vous deux , je teste ça demain au boulot et je vous tiens au courant. En toute logique ça doit marcher. :bravo:

A quoi correspond le fichier joint si tes données sont organisées autrement ?
Pour le profil, tu vas dans "Messages privées" et tu visites ;)
Pour répondre à la question que tu poses à Pierre, tu sélectionnes tes plages manuellement et tu les nommes "Donnees" dans Excel -> Menu Insertion -> Nom -> "Donnees" -> Ajouter.
Par soft

Code:

---

1 2	ActiveWorkbook.Names.Add Name:="Donnees", _ RefersTo:=Workbooks("Classeur2[1].xls").Worksheets("Feuil1").Range("E3:F11,C16:H18")

---

pour ce qui est de la plage de ton fichier joint.
Juste pour le principe 8-)
(bonsoir Pierre, je croyais que tu étais couché :sleep: Je laisse ma réponse, y'a plus de choix :mouarf: )

Ok c'est absolument parfait
@ouskel'nor
dans mon dossier il y une vingtaines d'onglets avec des tableaux divers dans chaque page, de taille et de format divers. Et suivant les cas je fais des actions diverses: récupèrer les données des cellules pour faire des courriers récapitulatifs à partir de plusieurs pages, abréger des tableaux, pour en allèger la présentation. Parfois on coche avec un X parfois deux ou trois x, parfois des cotations chiffrées qu'il faut retraduire par une phrase dans les courriers pour faciliter la compréhension ..... Donc pour faciliter les traitements je cherchais un système pour traiter en une seule commande toutes les zones cochées avec une même symbolique. Parce que pour l'instant j'ai quelques dizaines de sub que je dois écrire a la chaine. Et pour la maintenance du code, c'est galère à chaque fois que je dois rajouter une ligne dans un tableau. Faut recaler toutes mes saisies à chaque fois. Cette façon de traiter des plages successives va me faciliter prodigieusement le boulot. Merci encore à vous deux. :merci::bravo: