Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la
deuxième pour insérer un commentaire, sur la même ligne de cette référence.
Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1)
Excel?
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
papou
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
Bonjour
Il s'agit de la méthode .Find.
Voici un exemple basic :
Sub trouve()
Dim Atrouve As Range
Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues,
searchorder:=xlByRows)
If Not Atrouve Is Nothing Then
MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation,
"Résultat"
Else: MsgBox "toto non trouvé dans la feuille": End If
End Sub
Cordialement
Pascal
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
eYoYIWtCFHA.3732@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la
deuxième pour insérer un commentaire, sur la même ligne de cette
référence.
Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1)
Excel?
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
Laurent
Bonjour,
Merci pour le code, mais une petite question si tu sais. En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais je suis pas vraiment calé en programmation vba... Sais-tu comment faire?
Merci Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
Bonjour,
Merci pour le code, mais une petite question si tu sais.
En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un
userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il
indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais
je suis pas vraiment calé en programmation vba...
Sais-tu comment faire?
Merci
Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
ugXBy02CFHA.1188@tk2msftngp13.phx.gbl...
Bonjour
Il s'agit de la méthode .Find.
Voici un exemple basic :
Sub trouve()
Dim Atrouve As Range
Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues,
searchorder:=xlByRows)
If Not Atrouve Is Nothing Then
MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation,
"Résultat"
Else: MsgBox "toto non trouvé dans la feuille": End If
End Sub
Cordialement
Pascal
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
eYoYIWtCFHA.3732@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et
la deuxième pour insérer un commentaire, sur la même ligne de cette
référence.
Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1)
Excel?
Merci pour le code, mais une petite question si tu sais. En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais je suis pas vraiment calé en programmation vba... Sais-tu comment faire?
Merci Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
papou
Bonjour Dans ce cas, à partir de l'exemple que je t'ai fourni, tu peux adapter avec quelque chose comme ça : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then Cells(Atrouve.Row +1,1).Value = Textbox1 Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Merci pour le code, mais une petite question si tu sais. En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais je suis pas vraiment calé en programmation vba... Sais-tu comment faire?
Merci Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
Bonjour
Dans ce cas, à partir de l'exemple que je t'ai fourni, tu peux adapter avec
quelque chose comme ça :
Sub trouve()
Dim Atrouve As Range
Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues,
searchorder:=xlByRows)
If Not Atrouve Is Nothing Then
Cells(Atrouve.Row +1,1).Value = Textbox1
Else: MsgBox "toto non trouvé dans la feuille": End If
End Sub
Cordialement
Pascal
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
eGikbk3CFHA.4052@TK2MSFTNGP15.phx.gbl...
Bonjour,
Merci pour le code, mais une petite question si tu sais.
En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via
un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto',
qu'il indique le contenu de la textbox en A5, sur la même ligne du
resultat. Mais je suis pas vraiment calé en programmation vba...
Sais-tu comment faire?
Merci
Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
ugXBy02CFHA.1188@tk2msftngp13.phx.gbl...
Bonjour
Il s'agit de la méthode .Find.
Voici un exemple basic :
Sub trouve()
Dim Atrouve As Range
Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues,
searchorder:=xlByRows)
If Not Atrouve Is Nothing Then
MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation,
"Résultat"
Else: MsgBox "toto non trouvé dans la feuille": End If
End Sub
Cordialement
Pascal
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
eYoYIWtCFHA.3732@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et
la deuxième pour insérer un commentaire, sur la même ligne de cette
référence.
Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1)
Excel?
Bonjour Dans ce cas, à partir de l'exemple que je t'ai fourni, tu peux adapter avec quelque chose comme ça : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then Cells(Atrouve.Row +1,1).Value = Textbox1 Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Merci pour le code, mais une petite question si tu sais. En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais je suis pas vraiment calé en programmation vba... Sais-tu comment faire?
Merci Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
Laurent
Merci c'est exactement ce qu'il me fallait!
Cldt Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Dans ce cas, à partir de l'exemple que je t'ai fourni, tu peux adapter avec quelque chose comme ça : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then Cells(Atrouve.Row +1,1).Value = Textbox1 Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Merci pour le code, mais une petite question si tu sais. En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais je suis pas vraiment calé en programmation vba... Sais-tu comment faire?
Merci Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
Merci
Laurent
Merci c'est exactement ce qu'il me fallait!
Cldt
Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%235JXYhCDFHA.3540@TK2MSFTNGP14.phx.gbl...
Bonjour
Dans ce cas, à partir de l'exemple que je t'ai fourni, tu peux adapter
avec quelque chose comme ça :
Sub trouve()
Dim Atrouve As Range
Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues,
searchorder:=xlByRows)
If Not Atrouve Is Nothing Then
Cells(Atrouve.Row +1,1).Value = Textbox1
Else: MsgBox "toto non trouvé dans la feuille": End If
End Sub
Cordialement
Pascal
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
eGikbk3CFHA.4052@TK2MSFTNGP15.phx.gbl...
Bonjour,
Merci pour le code, mais une petite question si tu sais.
En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via
un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto',
qu'il indique le contenu de la textbox en A5, sur la même ligne du
resultat. Mais je suis pas vraiment calé en programmation vba...
Sais-tu comment faire?
Merci
Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
ugXBy02CFHA.1188@tk2msftngp13.phx.gbl...
Bonjour
Il s'agit de la méthode .Find.
Voici un exemple basic :
Sub trouve()
Dim Atrouve As Range
Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues,
searchorder:=xlByRows)
If Not Atrouve Is Nothing Then
MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation,
"Résultat"
Else: MsgBox "toto non trouvé dans la feuille": End If
End Sub
Cordialement
Pascal
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
eYoYIWtCFHA.3732@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et
la deuxième pour insérer un commentaire, sur la même ligne de cette
référence.
Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1)
Excel?
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Dans ce cas, à partir de l'exemple que je t'ai fourni, tu peux adapter avec quelque chose comme ça : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then Cells(Atrouve.Row +1,1).Value = Textbox1 Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Merci pour le code, mais une petite question si tu sais. En fait, par exemple j'ai 'toto' en A4. J'aimerai faire une recherhce via un userform & textbox, çà c'est ok. Mais également, si il trouve 'toto', qu'il indique le contenu de la textbox en A5, sur la même ligne du resultat. Mais je suis pas vraiment calé en programmation vba... Sais-tu comment faire?
Merci Laurent
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il s'agit de la méthode .Find. Voici un exemple basic : Sub trouve() Dim Atrouve As Range Set Atrouve = Worksheets("Feuil1").Cells.Find("toto", LookIn:=xlValues, searchorder:=xlByRows) If Not Atrouve Is Nothing Then MsgBox "toto" & " a été trouvé en " & Atrouve.Address, vbInformation, "Résultat" Else: MsgBox "toto non trouvé dans la feuille": End If End Sub
Cordialement Pascal
"Laurent" a écrit dans le message de news:
Bonjour,
Je cherche à créer une appli vba avec userform contenant :
2 textbox. la première où l'on rentre la référence que l'on cherche, et la deuxième pour insérer un commentaire, sur la même ligne de cette référence. Et un bouton ok.
quelle est la formule pour trouver une donnée dans une feuille (Feuil1) Excel?
