Discussion :

[Haelyn]

Bonjour à tous,

je rencontre quelques difficultés pour un problème relativement simple je pense.
Pour plus de clarté, je met mon fichier test en pj.

Donc, je souhaite pour chaque onglet résultat de mon classeur, chercher la valeur en B1 (Numéro) dans le dernier onglet BDD.
Si je la trouve, alors je reporte chaque nom d'arrêt de la base BDD dans mes cellules en colonne A de mon onglet résultat, seulement si la cellule [arrêt ; colResultat] n'est pas vide.

c'est pas forcément clair donc j'ai mis un exemple de résultat voulu dans le dernier onglet.

A noter que l'onglet BDD, je le reçois dans cette forme là.
(Il est petit pour que je comprenne le fonctionnement de cette macro, mais en réalité il y a le triple de lignes / colonnes.)
Je ne peux donc pas le modifier.


J'ai volontairement effacé tous mes codes de macros que j'avais écrit pour éviter de comprendre le mic-mac que j'avais testé. Je pense qu'il est plus simple de reprendre à zéro.


J'espère que c'est assez clair

Merci d'avance

[rvtoulon]

Bonjour, une piste:
A l'activation de la feuille résultat je lance la macro de recherche. (code à mettre dans chaque feuille résultat).

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
Private Sub Worksheet_Activate()
Dim plage As Range, vval As String, i  As Long
vval = Range("B1")
i = 4
With Sheets("bdd")
Set plage = .UsedRange
For Each c In .Range(plage.Address)
 If c.Value = vval Then
    For Each cel In .Range(.Cells(1, c.Column), .Cells(c.Row, c.Column))
        If cel.Value = "x" Then
            Range("A" & i) = .Cells(cel.Row, 1).Value
            i = i + 1
        End If
    Next cel
 Exit For
 End If
Next c
 
End With
End Sub

En gros je recherche la plage utilisée dans la feuille Bdd puis je fait une première boucle de recherche de la valeur (25,102, etc...) dans cette plage
lorsque je trouve la valeur recherchée je recherche dans la colonne correspondante si il y a un 'x' si c'est le cas je récupère les données Arrêt que j'affiche dans ma feuille.

EDIT:
Ou alors ce sera plus rapide:
dans un module tu met ce code: (remarque j'ai modifié le code en utilisant la méthode 'Find' c'est beaucoup plus rapide, du coup il ne boucle que sur la colonne)

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
Sub recherche_valeur()
Dim vrech As Range, i  As Long
Application.ScreenUpdating = False
 
i = 4
 
Range("A" & i).CurrentRegion.ClearContents
 
With Sheets("bdd")
 
Set vrech = .UsedRange.Find(Range("B1").Value)
 
If Not vrech Is Nothing Then
 
 For Each c In .Range(.Cells(1, vrech.Column), .Cells(vrech.Row, vrech.Column))
     If c.Value = "x" Then
        Range("A" & i) = .Cells(c.Row, 1).Value
        i = i + 1
     End If
 Next c
 
End If
 
End With
 
Application.ScreenUpdating = True
 
End Sub

ensuite, toujours à l'activation de la feuille cette fois tu met: (dans chaque feuille)

Code :

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

1
2
3
Private Sub Worksheet_Activate()
recherche_valeur
End Sub