Boucle pour Union

Version imprimable

31/08/2009, 10h43
zamoht

Boucle pour Union

Bonjour à tous et toutes,

Mon problème est le suivant: j'aimerais pouvoir utiliser Union(Range(""),...) de manière systématique en utilisant une boucle.

Je vais donner ici un exemple très simple pour illustrer mon propos, même si je sais que pour l'exemple, il existerait des solutions plus simples.

Imaginons que mon Union veuille regrouper des lignes 1 à 25 une cellule sur deux de manière discontinue.

On peut alors écrire Union(Range("A1"),Range("A3"),...)

Mais comment faire pour écrire une boucle du type For i=1 to 50 step 2 ...

Je n'arrive pas à agencer tout ça correctement.

Merci d'avance pour votre aide,

Bien cordialement,
31/08/2009, 10h55
LeForestier
Bonjour,
Un Range mulriple s'écrit Range("A1,A3,A5"), en fonction de cela, employer une boucle genre
Code:

1 2 3 4 5 Dim P as string, Plage as string For i = 1 to 27 step 2 P = cells(i,1).address Plage = Plage & P & "," Next i
NB : faut enlever la dernière virgule
A+
Edit: exemple d'emploi
Code:

1 2 Dim Cel as Range For Each cel in Range(Plage)

Merci beaucoup,

par ailleurs voici mon cas:
Code:

1 2 3 4 5 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Or Intersect(Target, Range("K11,M11,O11,Q11")) Is Nothing Then Exit Sub 'pour se limiter l'évènement à l'intérieur de la zone à cocher Range("K" & Target.Row & ":Q" & Target.Row).ClearContents Target = "X" End Sub
Et c'est dans ce cadre que je voudrais que les "11" fassent 11-13-15...

Pourriez-vous m'aider à adapter le code?

Merci encore,

en gros tu veux que les lignes soit toutes les 2 ligne a partir de 11 jusqu'à combien?

a defaut de plus rapide je teste le numéro de colone, je vérifei que le numéro de ligne soit entre 11 et la ligne max et je vérifie que c'est un nombre impaire
et au passage je permet de décocher
je prend 55 comme ligne max
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 And (Target.Column = 11 Or Target.Column = 13 Or Target.Column = 15 Or Target.Column = 17) And _ Target.Row >= 11 And Target.Row <= 55 And Target.Row \ 2 <> Target.Row / 2 Then If Target = "X" Then Target.ClearContents Else Target = "X" End If End If End Sub

31/08/2009, 11h42
LeForestier
Sans certitude parce que j'ai peut-être pas bien compris.
Code:

1 2 3 4 5 6 Dim P as string, Plage as string For i = 1 to 27 step 2 P = cells(i ,Target.Column).address Plage = Plage & P & "," Next i Range(Plage).ClearContents
NB, j'ai décomposé pour que tu puisse suivre mais ça peu être simplifié par

Code:

Plage = Plage & cells(i ,Target.Column).address & ","

Edit: Bonjour Krovax, tu pourrais pas faire un peu de place dans ta boite MP.:?

Edit2: et la ligne

Code:

If Target.Count > 1 Or Intersect(Target, Range("K11,M11,O11,Q11")) Is Nothing

Me semble poser problème, que veux-tu tester ??

En fait,

je fais un QCM où les cases sont cochables. Je te montre le code initial avec commentaire quand les cellules sont contigues, en deux blocs:

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Union(Range("B5:E10"), Range("J7:M20"))) Is Nothing Then Exit Sub 'si on clique ailleurs que dans la zone voulue, il ne se passe rien, et en l'occurrence, la zone voulue c'est B5:E10, et J7:M20. Ce que je voudrais faire en gros, c'est séparer chaque cellule d'une cellule (cf ma question initiale)'
Union(Range("B" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":M" & Target.Row)).ClearContents
Target = "X" ' lorsqu'on clique sur une des réponses 1,2,3 ou 4 du QCM, on place un X dans la case, et on supprime éventuellent les autres'
End Sub
 
 
Target = "X"
End Sub

Et c'est là dedans que je voudrais créer des cases non contigues.

31/08/2009, 12h11
Krovax

est ce que tu as testé mon code? celui de leforestier? qu'est ce qui ne va pas?
31/08/2009, 12h22
zamoht

pardon, je n'avais pas vu ton post,

ton code correspond bien à ce que je veux faire, mis à part qu'il manque une chose: lorsque je choisis une réponse, les autres doivent être décochées.
Je suppose que ça se change facilement.

Merci en tous cas.

Le code de Letailleur fonctionne, mais mon problème est de l'insérer dans le mien. Mais j'y travaille également!
31/08/2009, 12h36
Krovax

les autres? quelle autres toutes? celes de la colonne? de la ligne?
Essaye dêtr précis s'il te plais.
Mieux essaye de résoudre le problème toi même et en cas de souci tu nous montres ce que tu as fait ;) Comme ca on a l'impression de ne pas avoir juste servi a faire ton boulot mais de t'avoir aidé a progressé :ccool:
31/08/2009, 12h44
zamoht

quand je dis les autres, je parle de celles de la ligne.
31/08/2009, 12h50
LeForestier

???

Citation:

Imaginons que mon Union veuille regrouper des lignes 1 à 25 une cellule sur deux de manière discontinue.

donc tu veux travailler sur les colonnes !
or ton code..

Code:

Union(Range("B" & Target.Row & ":E" & Target.Row), Range("J" & Target.Row & ":M" & Target.Row)).ClearContents

Travail en ligne !!
Faudrait choisir !! ;)
31/08/2009, 13h04
zamoht

Citation:

Envoyé par zamoht

quand je dis les autres, je parle de celles de la ligne.

Je parle des autres cellules de la même ligne, donc je fais les effacements en colonnes, mais l'utilisateur travaille sur des lignes :aie:
31/08/2009, 13h07
LeForestier

Ont risque de tourner en rond pendant longtemps, tu pourrais pas mettre ton classeur en PJ.

si j'ai bien compris (sinon il faudra le classeur)
remplace

Code:

1
2
3
4
5
   If Target = "X" Then
      Target.ClearContents
   Else
      Target = "X"
   End If

par

Code:

1
2
range("K" & target.row & ",M" & target.row & ",O" & target.row & ",Q" & target.row).ClearContents
Target = "X"

par contre tu aurais pus essayer de le faire....

edit le code complet

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Count = 1 And (Target.Column = 11 Or Target.Column = 13 Or Target.Column = 15 Or Target.Column = 17) And _
Target.Row >= 11 And Target.Row <= 55 And Target.Row \ 2 <> Target.Row / 2 Then
Range("K" & Target.Row & ",M" & Target.Row & ",O" & Target.Row & ",Q" & Target.Row).ClearContents
Target = "X"
 
End If
End Sub

Tu avais lu ceci dans ton précédent sujet?

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Union(Range("B5:E10"),Range("J7:M20"))) Is Nothing Then Exit Sub
If Target.Column<=5 Then       '<=5 dans le tableau de gauche
    Range("B" & Target.Row & ":E" & Target.Row).ClearContents
ElseIf Target.Column >= 10 Then   '>=10 dans le tableau de droite
    Range("J" & Target.Row & ":M" & Target.Row).ClearContents
End If
 
Target = "X"
End Sub

Si tu veux généraliser???? pour plusieurs ranges et non à seulement 2?