VBA - Commandbutton
Résolu/Fermé
Tehani_t
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
-
14 juil. 2010 à 01:42
Tehani_t Messages postés 240 Date d'inscription mercredi 14 juillet 2010 Statut Membre Dernière intervention 20 décembre 2011 - 16 juil. 2010 à 01:11
Tehani_t Messages postés 240 Date d'inscription mercredi 14 juillet 2010 Statut Membre Dernière intervention 20 décembre 2011 - 16 juil. 2010 à 01:11
A voir également:
- Vba commandbutton
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Vba dépassement de capacité ✓ - Forum Excel
6 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
949
14 juil. 2010 à 02:48
14 juil. 2010 à 02:48
Re le forum
Voila un exemple : Recherche_VBA.xls
Mytå
Voila un exemple : Recherche_VBA.xls
Mytå
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
15 juil. 2010 à 23:08
15 juil. 2010 à 23:08
Je ne comprend pas ce qui ne te convient pas !
La macro de Mytå répond exactement à la demande que tu as exprimé dans ton poste du 14 jui 2010 à 03:14 !
Soit plus explicite dans ton expression de besoin, évite les « ou je ne sais quoi »,
précise ce que tu appelle « surbrillance », c'est pas nous qui allons deviner.
La macro de Mytå répond exactement à la demande que tu as exprimé dans ton poste du 14 jui 2010 à 03:14 !
Soit plus explicite dans ton expression de besoin, évite les « ou je ne sais quoi »,
précise ce que tu appelle « surbrillance », c'est pas nous qui allons deviner.
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
15 juil. 2010 à 23:25
15 juil. 2010 à 23:25
Est-ce cela que tu veux ?
Private Sub CommandButton1_Click()
Dim Message, Title, Default, MyValue
Dim C As Object, Lig_Trouve As Integer
' Définit le message.
Message = "Entrez le matricule a rechercher"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
If MyValue = "" Then Exit Sub
'cherche l'occurence dans la colonne A de la Base
Set C = Sheets("Base").Columns(1).Find(MyValue, LookIn:=xlValues, lookat:=xlWhole)
'Si elle est trouvée, sélectionne la ligne du tableau
If Not C Is Nothing Then
Sheets("Base").Select
Sheets("Base").Rows(C.Row).Select
End If
End Sub
Tehani_t
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
21
16 juil. 2010 à 00:58
16 juil. 2010 à 00:58
ohlala ok !!!
je voulais seulement que selon le matricule saisi, si celui ci existe dans "base" que la ligne correspondante sois mise en évidence (focus, en couleur, en gras, bref). Et j'ai testé avec le code de Myta, mais il n'y a eu aucun résultat.
Lorsque je lancais le programme, on me demandait bien de saisir le matricule mais c'est tout !
je voulais seulement que selon le matricule saisi, si celui ci existe dans "base" que la ligne correspondante sois mise en évidence (focus, en couleur, en gras, bref). Et j'ai testé avec le code de Myta, mais il n'y a eu aucun résultat.
Lorsque je lancais le programme, on me demandait bien de saisir le matricule mais c'est tout !
Tehani_t
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
21
16 juil. 2010 à 01:11
16 juil. 2010 à 01:11
et oui c'est ce que je voulais Merci !
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
949
Modifié par Mytå le 14/07/2010 à 01:56
Modifié par Mytå le 14/07/2010 à 01:56
Salut le forum
Un début de piste
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Un début de piste
'cherche l'occurence dans la colonne J
Set c = Columns(10).Find(Ta_Valeur, LookIn:=xlValues)
'Si elle est trouvé, renseigne Lig_Trouve avec le N° de ligne
If Not c Is Nothing Then Lig_Trouve = c.Row
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Tehani_t
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
21
14 juil. 2010 à 02:24
14 juil. 2010 à 02:24
Merci pour ta réponse !
la 2eme ligne de code est censé faire quoi ?
la 2eme ligne de code est censé faire quoi ?
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
949
Modifié par Mytå le 14/07/2010 à 03:24
Modifié par Mytå le 14/07/2010 à 03:24
Re Tehani
Remplace mon code par celui-ci
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Remplace mon code par celui-ci
Private Sub CommandButton1_Click()
Dim Message, Title, Default, MyValue
Dim C As Object, Lig_Trouve As Integer
' Définit le message.
Message = "Entrez le matricule a rechercher"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "1" ' Définition la valeur par défaut.
Sheets("Base").Range("A1").CurrentRegion.Interior.ColorIndex = xlNone
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
'cherche l'occurence dans la colonne A de la Base
Set C = Sheets("Base").Columns(1).Find(MyValue, LookIn:=xlValues)
'Si elle est trouvé, renseigne le tableau
If Not C Is Nothing Then
With Sheets("Base")
.Range(.Cells(C.Row, 1), .Cells(C.Row, 3)).Interior.ColorIndex = 3
End With
End If
End Sub
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
949
Modifié par Mytå le 15/07/2010 à 23:14
Modifié par Mytå le 15/07/2010 à 23:14
Re le forum
Remplace
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Remplace
.Range(.Cells(C.Row, 1), .Cells(C.Row, 3)).Interior.ColorIndex = 3Par
.Range(.Cells(C.Row, 1), .Cells(C.Row, 3)).SelectEt supprime la ligne
Sheets("Base").Range("A1").CurrentRegion.Interior.ColorIndex = xlNone
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Tehani_t
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
21
16 juil. 2010 à 01:05
16 juil. 2010 à 01:05
Voila ce que j'ai mis et encore merci pour ton aide !!!
val = Sheets(7).Cells(i, 1).Value
If val = matricule Then
MsgBox ("Le matricule existe bien")
Worksheets(7).Select
ActiveSheet.UsedRange.Rows(i).Select
n = 1
Else
MsgBox ("Le matricule n'existe pas !")
n = 0
End If
val = Sheets(7).Cells(i, 1).Value
If val = matricule Then
MsgBox ("Le matricule existe bien")
Worksheets(7).Select
ActiveSheet.UsedRange.Rows(i).Select
n = 1
Else
MsgBox ("Le matricule n'existe pas !")
n = 0
End If
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
949
16 juil. 2010 à 01:05
16 juil. 2010 à 01:05
Re le forum
Tehani, tes matricules à touver sont bien sur la feuille "Base" en Colonne A
Si ce n'est pas le cas, modifie la ligne
Change le 1 de Columns par l'équivalent de ta colonne (B=2, C=3 ...)
Mytå
Tehani, tes matricules à touver sont bien sur la feuille "Base" en Colonne A
Si ce n'est pas le cas, modifie la ligne
'cherche l'occurence dans la colonne A de la Base
Set C = Sheets("Base").Columns(1).Find(MyValue, LookIn:=xlValues, lookat:=xlWhole)
Change le 1 de Columns par l'équivalent de ta colonne (B=2, C=3 ...)
Mytå
14 juil. 2010 à 03:14
En tout cas merci pour ton aide !