Voici mon souci :
a) Je cherche une valeur dans une plage de cellule (la colonne A)
b) dès qu'elle est trouvée, j'aimerais me positionner dessus car ensuite, je devrais insérer des données dans 10 colonnes à sa droite
Je sais trouver cette cellule mais je ne sais pas me positionner dessus (aevc activecell, je ne me positionne que sur la dernière cellule selectionée dans la feuille)
(j'ai fait quelques essais pour récupéer les adresses avec des msgbox)
comment faire ?
merci pour votre aide :
Private Sub modifier_Click()
Sheets("ListeClients").Select
Dim Msg As Integer
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Dim clientmodifie As String
clientmodifie = genre & " " & prenom & " " & nom
'on recherche à remplacer par le code client qui se situe dans la colonne A
L = Sheets("ListeClients").Range("A65536").End(xlUp).Row
Set Plage = Sheets("ListeClients").Range("a2:a" & L)
For Each Cell In Plage
'MsgBox L
'MsgBox Cell.Value
'MsgBox code_client
If Cell.Value = code_client Then
MsgBox Cell.Address
MsgBox Range(Cell.Address).Value
MsgBox ActiveCell.Address
Msg = MsgBox("Modifier la fiche de : " & Chr(10) & clientmodifie, vbYesNo, "Confirmer la modification ?")
If Msg = 6 Then
'********************
'il faut sélectionner la celulle trouvée pour coller la valeur d'un textbox code_client
'et c'est là que ça marche pas ...
'*********************
'Cell.Value.Offset(0, 0).Select
ActiveCell.Value = Val(code_client)
Else:
MsgBox "rien modifié"
Exit Sub
End If
Else
End If
Next Cell
Unload FicheClient_modification
FicheClient_modification.Hide
End Sub
