Discussion :

[babybell]

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

[edelweisseric]

Bonsoir à tous
Bonsoir babybell

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='S2'!B27

pour la cellule B25 de la feuille 1 suffit.

Eric

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[Duddy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babybell]

Merci à toi et bonne soirée