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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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.
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
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
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 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
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
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.
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
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
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.
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.