Sub ActiverCellule(var_id_client as String)
For Each cellule In Sheet("table adresse contact").Cells
If cellule.Value = var_id_client Then
cellule.Activate
Exit Sub
End If
Next
End Sub
Option Explicit
Dim cellule as Range
Re,
Sa ne fait pas la sélection voulue
For i = 2 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = var_id_client Then
var_name_client = Range("B" & i).Offset(0, 1).Value
var_num_tel = Range("B" & i).Offset(0, 2).Value
var_mail = Range("B" & i).Offset(0, 3).Value
End If
Next
For i = 2 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = var_id_client Then
var_nom_contact = Range("B" & i).Offset(0, 1).Value
var_Num_contact_tel = Range("B" & i).Offset(0, 4).Value
var_mail_contact = Range("B" & i).Offset(0, 7).Value
End If
Next
Range("B" & i).Offset(0, 4).Value
Range("B" & i).Offset(0, 7).Value
Dépassement de capacité
var_nom_contact = Range("B" & i).Offset(0, 1).Value
var_Num_contact_tel = Range("B" & i).Offset(0, 4).Value
var_mail_contact = Range("B" & i).Offset(0, 7).Value
For i = 2 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = var_id_client Then
var_nom_contact = Range("B" & i).Offset(0, 1).Value
var_Num_contact_tel = Range("B" & i).Offset(0, 4).Value
var_mail_contact = Range("B" & i).Offset(0, 7).Value
End If
Next