Recuperer le numero de la ligne pour identifier des cases dans colonnes

Bonjour,

j'ai dans la colonne E des cases avec differentes string.

je voulais a chaque string dans la colonne E ( E3 , E4 , E5 ...) afficher ce qui exisite dans les cases des colonnes F , G , H et I selon la ligne ki varie selon mon choix de la case Ex.

le code que j'ai crée

Dim found As Boolean
Range("E3").Select
found = False
Do Until IsEmpty(ActiveCell)
If ActiveCell.Value = "string que je veux identifier" Then
found= True
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop

dim i as integer ( je ne sais pas comment lier i avec le numero de ligne !!??)

VR = Cells(i, 6)
VA = Cells(i, 7)
VP = Cells(i, 8)
VRE = Cells(i, 9)

If found = True

MsgBox "VR = " & VR & " / " & "VA = " & VA & " / " & "VP = " & VP & " / " & " VRE = " & VRE

Bonjour,

un exemple à adapter :

Sub Test()
Dim cellule As Range, i As Integer, réponse As String
For Each cellule In Range("E3:E" & Range("E" & Cells.Rows.Count).End(xlUp).Row)
    If Not IsEmpty(cellule) Then
        réponse = ""
        For i = 1 To 4
            réponse = réponse & cellule.Offset(0, i)
        Next
        MsgBox réponse
    End If
Next
End Sub

ThierryP

Merci ThierryP pour votre reponse mais ce n'est pas le resultat voulu.
le contenu de la case E3 ou bien E4 ou bien E5 ou bien E6 c'est à moi de choisir puis lancer le macro.

voila un exemple

pour chaque valeur (1, 2 ,3 ou 4) puis valider un msgbox affiche la valeur adequate dans la colonne F , G , H et I;

Si le choix de la liste deroulante etait valeur2 alors le msgbox affiche : 5000 , 2 , 20 , 200.

J'espere que j'ai bien decrit le pb.

Merci.

Re,

Problème bien posé est à moitié solutionné.....

Voici, à adapter :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
If Not Intersect(Target, [B3]) Is Nothing Then 'Ne s'exécute que si la cellule B3 est modifiée
    ligne = Range("E3:E6").Find(What:=Target, After:=Range("E3"), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
                    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
    VR = Cells(trouve, 6)
    VA = Cells(trouve, 7)
    VP = Cells(trouve, 8)
    VRE = Cells(trouve, 9)
    MsgBox "VR = " & VR & " / " & "VA = " & VA & " / " & "VP = " & VP & " / " & " VRE = " & VRE
End If
End Sub