Question sur une macro excel
Dernière réponse : dans Programmation
Bonjour,
Voilà j'ai créé une macro pour rechercher des infos dans une base de données.
La voici
'Permet d'effacer toutes les infos qui sont dans le formulaire avant de recommencer une nouvelle saisie.
With Recherche_
.NNO.Value = ""
.Designation.Value = ""
.Ref_Fab.Value = ""
.NNOtxt.Value = False
.Designationtxt.Value = False
.Ref_Fabtxt.Value = False
.Designation.Visible = True
.Ref_Fab.Visible = True
.NNO.Visible = True
End With
'faire apparaître la boite
Recherche_.Show
Application.ScreenUpdating = False
Sheets("Matériels").Visible = True
Sheets("Matériels").Select
ActiveSheet.Unprotect Password:="sanglier"
Range("cc1").Value = Recherche_.NNO.Value
Range("CC2").Value = Recherche_.Designation.Value
Range("CC3").Value = Recherche_.Ref_Fab.Value
If Recherche_.NNO.Value <> "" Then
GoTo Line1
End If
If Recherche_.Designation.Value <> "" Then
GoTo line2
End If
If Recherche_.Ref_Fab.Value <> "" Then
GoTo line3
End If
Line1:
Columns(8).Find(Range("CC1").Value, LookIn:=xlValues).Select
GoTo Line4
line2:
Columns(7).Find(Range("CC2").Value, LookIn:=xlValues).Select
GoTo Line4
line3:
Columns(7).Find(Range("CC2").Value, LookIn:=xlValues).Select
GoTo Line4
Line4:
End Sub.
Comment fonctionne cette macro => On clic sur un bouton et un UserForm apparaît. On choisit ce que l'on veut rechercher comme données, puis on valide. L'info est bien trouvée, mais par contre elle ne s'affiche pas à l'écran. Si je bouffe de cellule grâce aux flèches du clavier là l'info apparaît. Je n'ai pas réussi à trouver la commande qu'il me faut pour qu'elle apparaîsse automatiquement. Quelqu'un pourraît m'aider?! Si ce que j'ai écris est bien clair, bien sur![;)]( ";)")
Je sais, je sais, il existe un module [CTL+F] pour rechercher des infos, mais il commence par la fin de la base de données, et je ne sais pas comment faire pour qu'l commence par le début.
Merci beaucoup pour votre aide
Voilà j'ai créé une macro pour rechercher des infos dans une base de données.
La voici
Citation :
Sub Recherche()'Permet d'effacer toutes les infos qui sont dans le formulaire avant de recommencer une nouvelle saisie.
With Recherche_
.NNO.Value = ""
.Designation.Value = ""
.Ref_Fab.Value = ""
.NNOtxt.Value = False
.Designationtxt.Value = False
.Ref_Fabtxt.Value = False
.Designation.Visible = True
.Ref_Fab.Visible = True
.NNO.Visible = True
End With
'faire apparaître la boite
Recherche_.Show
Application.ScreenUpdating = False
Sheets("Matériels").Visible = True
Sheets("Matériels").Select
ActiveSheet.Unprotect Password:="sanglier"
Range("cc1").Value = Recherche_.NNO.Value
Range("CC2").Value = Recherche_.Designation.Value
Range("CC3").Value = Recherche_.Ref_Fab.Value
If Recherche_.NNO.Value <> "" Then
GoTo Line1
End If
If Recherche_.Designation.Value <> "" Then
GoTo line2
End If
If Recherche_.Ref_Fab.Value <> "" Then
GoTo line3
End If
Line1:
Columns(8).Find(Range("CC1").Value, LookIn:=xlValues).Select
GoTo Line4
line2:
Columns(7).Find(Range("CC2").Value, LookIn:=xlValues).Select
GoTo Line4
line3:
Columns(7).Find(Range("CC2").Value, LookIn:=xlValues).Select
GoTo Line4
Line4:
End Sub
Comment fonctionne cette macro => On clic sur un bouton et un UserForm apparaît. On choisit ce que l'on veut rechercher comme données, puis on valide. L'info est bien trouvée, mais par contre elle ne s'affiche pas à l'écran. Si je bouffe de cellule grâce aux flèches du clavier là l'info apparaît. Je n'ai pas réussi à trouver la commande qu'il me faut pour qu'elle apparaîsse automatiquement. Quelqu'un pourraît m'aider?! Si ce que j'ai écris est bien clair, bien sur
Je sais, je sais, il existe un module [CTL+F] pour rechercher des infos, mais il commence par la fin de la base de données, et je ne sais pas comment faire pour qu'l commence par le début.
Merci beaucoup pour votre aide
Autres pages sur : question macro excel
Lassé par la pub ? Créez un compte
Dons si j'ai bien tout compris ça donne:
Lassé par la pub ? Créez un compte
- Contenus similaires :
