bonjour, je cherche à sélectionner une ligne pour me premettre d'aller rechercher les informations des différentes colonnes et les reprendre dans un Userform...
j'utilise une macro pour encoder à partir d'un formulaire vers Excel...
Sub Entrée()
FormEncodage.Hide
Range("c1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveCell.Value = "oui"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = FormEncodage.nom
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = FormEncodage.prenom
Unload FormEncodage
Load FormEncodage
FormEncodage.Show
End Sub
et j'aimerai s'il s'agit juste d'une modification de la base de donnée réimplanter les informations dans le formulaire à partir de la base de donnée en utilisant le même principe
Private Sub num_Change()
If num.Value = ...
prenom.Value = ActiveCell.Offset(0, 3)
End If
End Sub
et donc ce que je cherche à faire c'est de sélectionner la ligne dans laquelle se trouve le "num" d'encodage identique à celui entré dans mon formulaire...
Bonsoir
les '' Range("A1") " ne servent à rien
ActiveCell.Offset(0, 1).Range("A1").Select
pour être plus simple faire comme suite
Sub Entrée()
FormEncodage.Hide
Range("c2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Value = "oui"
ActiveCell.Offset(1, 0).Value = FormEncodage.nom
ActiveCell.Offset(1, 1).Value = FormEncodage.prenom
Unload FormEncodage
Load FormEncodage
FormEncodage.Show
End Sub
Pour chercher un item dans la Base
Dim x As Range
Range(Cells(2, 3), Cells(2, 3).End(xlDown)).Select
Set x = Selection.Find("???")
x.Select