Probleme de filtration et de localisation
rookie_3362
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
bonjours, je suis novice dans excel j'ai des ressource limitee et j'ai besoin d'aide donc voila mon probleme j'ai un fichier excel avec une base de donne que je veux filtrer et localiser les obsolete\hm\Reworrk \EBT\APT avec VBA j'ai fais un userforum et j'ai creer des bouton et textebox j'ai fais des recherche sur internet pour la programmation mais j'ai toujours un probleme dans la compliation
A voir également:
- Probleme de filtration et de localisation
- Google maps localisation maison - Guide
- Localisation whatsapp - Guide
- Ma localisation - Guide
- Maps localisation gps - Guide
- Family link localisation - Télécharger - Guide protection
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peux-tu décrire ton problème de compilation?
Option Explicit
Private Sub CommandButton1_Click()
ObsoletePN
End Sub
Sub ObsoletePN()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, Obsolete As String
'********* à adapter ***********
'affectation de valeurs aux variables :
'on cherche le mot
Valeur_Cherchee = TextBox1.Text
'dans la première colonne de la feuille active
Set PlageDeRecherche = ActiveSheet.Columns(2) 'colonne B
'*******************************
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
obsoleteTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
'ici, traitement pour le cas où la valeur est trouvée
obsoleteTrouvee = Trouve.Obsolete
End If
MsgBox obsoleteTrouvee
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub
Private Sub CommandButton2_Click()
Old HM
End Sub
Sub Cherche_HM()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, obsoleteTrouvee As String
'********* à adapter ***********
'affectation de valeurs aux variables :
'on cherche le mot
Valeur_Cherchee = TextBox2.Text
'dans la première colonne de la feuille active
Set PlageDeRecherche = ActiveSheet.Columns(4) 'colonne D
'*******************************
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
obsoleteTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
'ici, traitement pour le cas où la valeur est trouvée
obsoleteTrouvee = Trouve.Obsolete
End If
MsgBox obsoleteTrouvee
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub
Option Explicit
Private Sub CommandButton1_Click()
ObsoletePN
End Sub
Sub ObsoletePN()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, Obsolete As String
'********* à adapter ***********
'affectation de valeurs aux variables :
'on cherche le mot
Valeur_Cherchee = TextBox1.Text
'dans la première colonne de la feuille active
Set PlageDeRecherche = ActiveSheet.Columns(2) 'colonne B
'*******************************
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
obsoleteTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
'ici, traitement pour le cas où la valeur est trouvée
obsoleteTrouvee = Trouve.Obsolete
End If
MsgBox obsoleteTrouvee
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub
Private Sub CommandButton2_Click()
Old HM
End Sub
Sub Cherche_HM()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, obsoleteTrouvee As String
'********* à adapter ***********
'affectation de valeurs aux variables :
'on cherche le mot
Valeur_Cherchee = TextBox2.Text
'dans la première colonne de la feuille active
Set PlageDeRecherche = ActiveSheet.Columns(4) 'colonne D
'*******************************
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
obsoleteTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else
'ici, traitement pour le cas où la valeur est trouvée
obsoleteTrouvee = Trouve.Obsolete
End If
MsgBox obsoleteTrouvee
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub
PS:ce dernier code je me suis inspirer d'une autre personne dans commentcamarche qui as le meme probleme que le mien
et, bien sûr, expliquer ton problème!