Discussion :

[gandalf20000000]

Bonjour,

Je suis en train de faire une macro pour rechercher une valeur dans un tableau.

Je suis en train de faire ca "A l'ancienne", et j'aimerais savoir s'il y aurait un moyen un peu plus propre..

Voici mon code (Fichier ci joint)

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
 
 Workbooks(currentfile).Sheets("TAUX DE VALIDATION").Activate
 
 
 Dim FT001TV, FT005TV, FT010TV, FT015TV, FT025TV, FT030TV, FT042TV, FT045TV, FT055TV, FT065TV, FT070TV, FT080TV, FT090TV As String
 Dim chercheTV As Range
 
Dim semTV As String
semTV = "Total " & Right(semaine, 2)
 
    Set chercheTV = Range("G7:IV7").Find(semTV, LookIn:=xlValues)
    chercheTV.Select
    Selection.Offset(2, 0).Select
'Note : la ca plante ^^ 
    If Range(Selection.xlToRight).Value = "FT001" Then
    FT001TV = Left(ActiveCell.Value * 100, 4) & "%"
    Else: selection.offset(1, 0).select
loop
    End If

etc.... pour chaque string
Merci d'avance

[jfontaine]

Bonjour,

Une variante

Code :

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

1
2
3
4
5
Dim intligne As Integer
 
intligne = Application.WorksheetFunction.Match("FT001", Range("G7:G22"), 0)
 
MsgBox Left(Application.WorksheetFunction.HLookup("Total 22", Range("G7:AQ22"), intligne, 0) * 100, 4) & "%"

Évidemment tu peux inclure le code de intligne à la place de la variable