Manque bout ligne code après find
Bonjour à tous,
J'ai une ligne de code qui me permet de trouver le chiffre 57 dans une base de donnée.
Mon problème serait de trouver la valeur de la première case de toute la colonne contenant 57.
Exemple : J'ai mon 57 en B322 , j'aimerais qu'il me donne la valeur de B1, si j'ai mon 57 dans C1662 j'aimerais qu'il me donne la valeur C1
Voici mon code pour l'instant :
Dim numéro As Integer 'permet de trouver un 57
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
numéro = 57
Set celluletrouvee = Range("G2:L437").Find(numéro, LookIn:=xlValues)
If celluletrouvee Is Nothing Then
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col) ===>C'est la que je veut faire une modif, J'aimerais que le Msgbox soit ("Trouvé : Valeur de la première ligne de la colonne)
End If
End Sub
Je ne souhaite pas partager le programme pour qu'on me propose d'autres améliorations (Je l'aime bien comme sa et après sa me perturbe je comprend plus rien
En esperant avoir été clair!
Merci d'avance
Max
Bonjour...EUh ca doit être ceci
msgbox Cells(1,celluletrouvee.column)Bonjour
Bonjour Force Rouge
Pour préciser la proposition de Force Rouge :
MsgBox "(Trouvé : " & Cells(1, celluletrouvee.Column) & ")"Bye !
Salutation gmb, merci de veiller au grain !