VBA Trouver la valeur supérieur dans un tableau
Bonjour,
Je suis novice en VBA et j'ai réussi avec un peu d'aide à écrire un morceaux de code qui serait sensé me retourner un code d'une vis dans un tableau, sauf que quand j'exécute mon code je ne reçois aucune valeur en retour.
Une âme charitable pourrait regarder vite fait et me dire ce que j'ai mal fait ?
Merci d'avance :)
En utilisant des msgbox je me rend compte que j'arrive bien à trouver les coordonnées nécessaires. Je pense que mon problèmes intervient au niveau du renvoie du code, peut être que j'ai mal déclaré les variables je sais pas.
Bonjour,
Une fois que tu trouves ta valeur, tu n'en fais rien.
Mets la dans une cellule excel par exemple en cellule J13 de 01 Engine-Engine support
en rajoutant celle ligne avant le End Sub
Sheets("01 Engine-Engine support").Cells(13, 10) = Hsv_Code
Code complet
Sub equiv()
Dim Hsv_Code As Variant
Hsv_Code = Sheets("01 Engine-Engine support").Cells(13, 10) 'Ca ca sert a rien la cellule est vide
With Sheets("HSV Data")
For i = 4 To 15
If .Cells(3, i) = Sheets("01 Engine-Engine support").Cells(31, 3) Then Exit For
Next i
For j = 4 To 22
If .Cells(j, 3) > Sheets("01 Engine-Engine support").Cells(31, 4) Then Exit For
Next j
End With
Hsv_Code = Sheets("HSV DATA").Cells(j, i).Value '
Sheets("01 Engine-Engine support").Cells(13, 10) = Hsv_Code 'Modification du code
End Sub