OVH Cloud OVH Cloud

aide sur numero de ligne a renvoyer

4 réponses
Avatar
PJ
Bonjour,

Je cherche a recuperer un numero de ligne suivant une recherche de la valeur
inscrite dans une combobox = design_acc dans la colonne A.
En resume, si ma valeur design_acc est egale a "toto" je voudrais recupere
le numero de la ligne dans la colonne A ou "toto" apparait.

Merci de votre aide.

PJ

4 réponses

Avatar
Tchantchet
Bonsoir PJ,

Le numéro de ligne se récupère par Activecell.row
Je suppose que tu associes un code à ton combobox et donc tu
recherches dans ta plage de donnée la valeur TOTO au moyen de par
exemple

set PAGE1=Sheets("Feuil1")
With PAGE1.Range("a2:a5002")
Set C = .Find("TOTO", LookIn:=xlValues)
If Not C Is Nothing Then
FIRSTADDRESS = C.Address
Range(FIRSTADDRESS).Select
A = ActiveCell.Row : ' La ligne
B = ActiveCell.Column: ' La colonne
End If
End with

Je crois que ça devrait fonctionner.


Bonjour,

Je cherche a recuperer un numero de ligne suivant une recherche de la val eur
inscrite dans une combobox = design_acc dans la colonne A.
En resume, si ma valeur design_acc est egale a "toto" je voudrais recupere
le numero de la ligne dans la colonne A ou "toto" apparait.

Merci de votre aide.

PJ


Avatar
PJ
Merci de ton aide mais le HIC c'est que "toto" est un exemple. Je voudrais
pourvoir chercher toutes les valeurs de ma combobox

As-tu une autre idee?

Merci encore

PJ



Bonsoir PJ,

Le numéro de ligne se récupère par Activecell.row
Je suppose que tu associes un code à ton combobox et donc tu
recherches dans ta plage de donnée la valeur TOTO au moyen de par
exemple

set PAGE1=Sheets("Feuil1")
With PAGE1.Range("a2:a5002")
Set C = .Find("TOTO", LookIn:=xlValues)
If Not C Is Nothing Then
FIRSTADDRESS = C.Address
Range(FIRSTADDRESS).Select
A = ActiveCell.Row : ' La ligne
B = ActiveCell.Column: ' La colonne
End If
End with

Je crois que ça devrait fonctionner.


Bonjour,

Je cherche a recuperer un numero de ligne suivant une recherche de la valeur
inscrite dans une combobox = design_acc dans la colonne A.
En resume, si ma valeur design_acc est egale a "toto" je voudrais recupere
le numero de la ligne dans la colonne A ou "toto" apparait.

Merci de votre aide.

PJ






Avatar
Tchantchet
Eh bien oui, toujours la même; il suffit de remplacer toto par une
variable dans laquelle on aura placé précédemment la valeur
sélectionnée.

Set C = .Find(Variable, LookIn:=xlValues)


Merci de ton aide mais le HIC c'est que "toto" est un exemple. Je voudrais
pourvoir chercher toutes les valeurs de ma combobox

As-tu une autre idee?

Merci encore

PJ



Bonsoir PJ,

Le numéro de ligne se récupère par Activecell.row
Je suppose que tu associes un code à ton combobox et donc tu
recherches dans ta plage de donnée la valeur TOTO au moyen de par
exemple

set PAGE1=Sheets("Feuil1")
With PAGE1.Range("a2:a5002")
Set C = .Find("TOTO", LookIn:=xlValues)
If Not C Is Nothing Then
FIRSTADDRESS = C.Address
Range(FIRSTADDRESS).Select
A = ActiveCell.Row : ' La ligne
B = ActiveCell.Column: ' La colonne
End If
End with

Je crois que ça devrait fonctionner.


Bonjour,

Je cherche a recuperer un numero de ligne suivant une recherche de la valeur
inscrite dans une combobox = design_acc dans la colonne A.
En resume, si ma valeur design_acc est egale a "toto" je voudrais rec upere
le numero de la ligne dans la colonne A ou "toto" apparait.

Merci de votre aide.

PJ








Avatar
RGI
bonjour

comme ceci peut-être

Sub essai()
Feuil1.Range("A1:A500").Select
rech = UserForm1.ComboBox1.Text
On Error GoTo fin
x = Selection.Find(rech, , LookIn:=xlValues, LookAt:=xlWhole).Row
[a1].Select
MsgBox x
Exit Sub
fin:
MsgBox "cette valeur n'a pas été trouvée"
End Sub

salutations

RGI

Merci de ton aide mais le HIC c'est que "toto" est un exemple. Je voudrais
pourvoir chercher toutes les valeurs de ma combobox

As-tu une autre idee?

Merci encore

PJ



Bonsoir PJ,

Le numéro de ligne se récupère par Activecell.row
Je suppose que tu associes un code à ton combobox et donc tu
recherches dans ta plage de donnée la valeur TOTO au moyen de par
exemple

set PAGE1=Sheets("Feuil1")
With PAGE1.Range("a2:a5002")
Set C = .Find("TOTO", LookIn:=xlValues)
If Not C Is Nothing Then
FIRSTADDRESS = C.Address
Range(FIRSTADDRESS).Select
A = ActiveCell.Row : ' La ligne
B = ActiveCell.Column: ' La colonne
End If
End with

Je crois que ça devrait fonctionner.



Bonjour,

Je cherche a recuperer un numero de ligne suivant une recherche de la valeur
inscrite dans une combobox = design_acc dans la colonne A.
En resume, si ma valeur design_acc est egale a "toto" je voudrais recupere
le numero de la ligne dans la colonne A ou "toto" apparait.

Merci de votre aide.

PJ