sélection d'une ligne en fonction de la valeur de la première cellule Résolu

Question

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...

un tout grand merci d'avance

Un tout grand merci d'avance

Jérôme

cnt · Accepted Answer

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

dedenet2 · Answer

Bonjour ,

Pour rechercher dans une colonne sur plusieures lignes ,
utilise "Find".
Utilise l'aide Excel
A++

Sélection d'une ligne en fonction de la valeur de la première cellule

2 réponses

Votre réponse

Discussions similaires