problème de select case

Version imprimable

25/08/2009, 20h21
babybell

problème de select case

Bonjour amis du forum

Je bute sur une instruction VBA, que je n'arrive pas à comprendre 'Select Case'.
Je joins un extrait d'un fichier que je dois faire. Je ne sais pas comment regrouper dans la Feuil1 les chiffres des onglets S1 et S2.
J'arrive bien à le faire avec des if then..., mais c'est vraiment trop long.

Je sais que le principe de ma demande ne se fait pas, veuillez m'en excuser.

Merci pour votre aide
25/08/2009, 22h04
edelweisseric

Bonsoir à tous
Bonsoir babybell

Je ne comprend pas pourquoi tu veux passer par du VBA, alors qu'une simple formule du type :

Code:

='S2'!B27

pour la cellule B25 de la feuille 1 suffit.

Eric
25/08/2009, 22h13
Duddy
Bonsoir babybell,

Tu construis 2 tableaux comprenant chacun les zones à scruter :
Range("a1:h9") et tu le fais regarder chaque valeur de cellule du style :
Code:

1 2 3 For Each c in "ton tableau" call test next
Tu écris une procédure dans laquelle tu écris que les valeurs recherchées :
Code:

1 2 3 4 5 6 7 8 9 10 11 sub test select case c.value case is="ta recherche1" c.select ta variable=c.offset(1,0).value 'pour récupérer case is="ta recherche2" idem case 1 end select end sub
ensuite tu reportes dans ta feuille 1.

Je ne sais si tous les termes sont appropriés dans mon post, mais en résumé, voilà le schéma à mettre en place et que j'utiliserais avec mes modestes connaissances.
25/08/2009, 22h54
babybell

Merci de vos réponses, mais le tableau que j'ai joint n'était qu'un extrait.
J'ai 9 ou 10 onglets dans lesquels j'ai plus d'une centaine de lignes.
Je pensais qu'avec des select case, je pouvais aller rechercher les infos qui sont ou non dans les onglets, d'après des constantes qui ne sont pas toujours présentes, et que le nombre de valeurs n'est pas toujours le même aussi; donc je ne peux faire comme le suggère edelweisseric.

Bonjour,

Le nombre d'onglet n'a pas d'importance. Tu vas créer une boucle qui te permettra de lire les onglets les uns après les autres. A chaque fois que tu sélectionne un onglet tu paramètres un tableau en fonction des cellules utilisées ensuite tu les parcours comme je te l'ai vaguement écris.

Je ne sais pas si le nombre de "case is" est limité mais tu pourras y déterminer tes valeurs afin de pouvoir comptabiliser ce que tu recherches.

Bon courage et voici un exemple de j'ai eu besoin pour affecter une valeur à une variable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
      Select Case vMoisEnCours
 
      Case Is = "JANVIER"
           vMois(0) = "01" '& "/" & Year(Now)
 
      Case Is = "FEVRIER"
           vMois(0) = "02" '& "/" & Year(Now)
 
      Case Is = "MARS"
           vMois(0) = "03" '& "/" & Year(Now)
 
      Case Is = "AVRIL"
           vMois(0) = "04" '& "/" & Year(Now)
 
      Case Is = "MAI"
            vMois(0) = "05" '& "/" & Year(Now)
 
      Case Is = "JUIN"
            vMois(0) = "06" '& "/" & Year(Now)
 
      Case Is = "JUILLET"
           vMois(0) = "07" '& "/" & Year(Now)
 
      Case Is = "AOUT"
           vMois(0) = "08" '& "/" & Year(Now)
 
      Case Is = "SEPTEMBRE"
            vMois(0) = "09" '& "/" & Year(Now)
 
      Case Is = "OCTOBRE"
           vMois(0) = "10" '& "/" & Year(Now)
 
      Case Is = "NOVEMBRE"
           vMois(0) = "11" '& "/" & Year(Now)
 
      Case Is = "DECEMBRE"
           vMois(0) = "12" '& "/" & Year(Now)
 
      End Select

26/08/2009, 19h58
babybell

Merci à toi et bonne soirée