bonjour à tous,
voici mon petit problème.
je réalise une macro qui recherche une donnée "MON 037" en colonne D
une fois la cellule trouvée ma macro renvoie en "K10" le résultat de la colonne B avec le mode offset(0,-2)
code ci-dessous
jusque la j'ai réussi, mais je voudrais faire évoluer le code pour plus de souples.
admettons que le résultat de la recherche ce trouve en colonne D je veux quand même ecrire en "K10" la colonneB et du coup offset(0,-2) ne marche plus
que pouvais vois me proposer à la place du offset()
merci de votre aide
voici mon petit problème.
je réalise une macro qui recherche une donnée "MON 037" en colonne D
une fois la cellule trouvée ma macro renvoie en "K10" le résultat de la colonne B avec le mode offset(0,-2)
code ci-dessous
Code:
Sub test()
Dim R As Range, Rligne As String, R2 As String, designation As String
Set R = Cells.Find(what:="MON 037", LookAt:=xlPart)
If R Is Nothing Then
MsgBox ("Non Trouvé")
Exit Sub
End If
designation = R.Offset(0, -2).Value
Range("K10").Select
Selection.Value = designation
End Sub
jusque la j'ai réussi, mais je voudrais faire évoluer le code pour plus de souples.
admettons que le résultat de la recherche ce trouve en colonne D je veux quand même ecrire en "K10" la colonneB et du coup offset(0,-2) ne marche plus
que pouvais vois me proposer à la place du offset()
merci de votre aide