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

demarcj · 11 Mars 2009

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

JNP · 11 Mars 2009

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

Bonjour Demarcj ,

demarcj à dit:
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...

quelquechose comme celà ne t'irais pas, en limitant à ta colonne clef primaire ?

Code:

MsgBox (Range("A1:Z100").Find("Gateau").Row)

Bonne journée

demarcj · 11 Mars 2009

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

j'ai placé la ligne que vous m'avez conseillé dans ma macro ça marche presque...

le seul soucis restant c'est qu'il me sélectionne systématiquement le ligne 1 et pas la ligne de ma clef primaire...

mais je sens que j'y suis presque...

voici ma macro actuelle

Private Sub num_Change()
Range("A1").Select
If Range("A:A").Find(num.Value) Then
prenom.Value = ActiveCell.Offset(0, 3).Range("A1").Value
End If
End Sub

déjà un tout grand merci

Jérôme

JNP · 11 Mars 2009

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

Re ,
Normal, tu sélectionnes A1 au début, puis plus rien... Essaie

Code:

Cells(Range("A:A").Find(num.Value).row, 1).Select

Bon courage

demarcj · 11 Mars 2009

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

GENIAAAAAAL

un tout grand merci...

encore un tout petit truc cependant...

le N° qu'il prend n'est pas celui de ma clef primaire mais le N° de la ligne...

Private Sub num_Change()
Range("A1").Select
Cells(Range("A:A").Find(num.Value).Row, 1).Select
prenom.Value = ActiveCell.Offset(0, 3).Range("A1").Value
End Sub

mais s'il n'y a que ça comme soucis...

Merci

merci merci merci

JNP · 11 Mars 2009

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

Re ,

demarcj à dit:
le N° qu'il prend n'est pas celui de ma clef primaire mais le N° de la ligne...
Cells(Range("A:A").Find(num.Value).Row, 1).Select ' Sélectionne la cellule de ta clef primaire.
prenom.Value = ActiveCell.Offset(0, 3).Range("A1").Value ' Pourquoi A1 ? ActiveCell correspond à la cellule de ta clef primaire... A supprimer.

Bon courage

skoobi · 11 Mars 2009

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

Bonjour Jean Noël , demarcj,

Attention: pour ne pas avoir de surprise avec la propriété Find, il faut renseigner systématiquement certains arguments:
Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

Notes

Les paramètres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucun paramètre pour ces arguments lors du prochain appel de la méthode, les paramètres enregistrés sont utilisés. Le fait de définir les paramètres de ces arguments modifie les paramètres de la boîte de dialogue Rechercher, ce qui a pour effet de changer les paramètres enregistrés qui sont utilisés lorsque vous ne spécifiez pas les arguments. Pour éviter toute ambiguïté, définissez ces arguments de façon explicite chaque fois que vous utilisez cette méthode.

Personnellement, je précise systématiquement LookIn, LookAt.
Bonne journée.

demarcj · 11 Mars 2009

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

merveilleux merci à tous...

juste encore une seconde si je veux installer un spinboutton pour descendre d'une ligne à l'autre sur une autre variable qu'une valeur chiffrée (par exemple le nom)

Private Sub SpinButton1_SpinDown()

End Sub

Private Sub SpinButton1_SpinUp()

End Sub

je ne sa

demarcj · 11 Mars 2009

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

merveilleux...

c'est parfais... ça marche du tonnère...

j'ai adapter pur utiliser une autre variable que le n° pour plus de facilité...

est qu'il est possible dans cette zone d'y ajouter un spinbutton et de faire défiler la liste dans ma textbox ou pas...

un truc du style Private Sub SpinButton1_SpinDown()
...
End Sub

Private Sub SpinButton1_SpinUp()
n0m.Value = ActiveCell.Offset(1, 0).Range("C1") + Offset(1, 0)
End Sub

demarcj · 11 Mars 2009

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

pour le spinbutton j'ai trouvé par contre je viens de me rendre compte qu'il ne me permet plus d'entrer une nouvelle valeur pour le nom

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

demarcj

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

demarcj

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

demarcj

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

demarcj

XLDnaute Nouveau

demarcj

XLDnaute Nouveau

demarcj

XLDnaute Nouveau

Discussions similaires