Macro recherche sur Excel
samiaymane
-
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai créer une base de donnée sur excel, dans chaque feuille, il y a des informations concernant des étudiants et cette feuille est surnommée du nom de l'étudiant. Dans la première feuille je voudrais mettre une case où on peut taper le nom de l'étudiant à chercher. J'ai un problème avec ça, je n'ai pas trouver de fonction mais je suppose qu'il y a un macro qui répond à mes besoins.
Merci pour votre aide.
J'ai créer une base de donnée sur excel, dans chaque feuille, il y a des informations concernant des étudiants et cette feuille est surnommée du nom de l'étudiant. Dans la première feuille je voudrais mettre une case où on peut taper le nom de l'étudiant à chercher. J'ai un problème avec ça, je n'ai pas trouver de fonction mais je suppose qu'il y a un macro qui répond à mes besoins.
Merci pour votre aide.
A voir également:
- Macro recherche sur Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Comment trier par ordre alphabétique sur excel - Guide
2 réponses
Bonjour,
Ouvir VBA Alt+F11
double click Feuil1
Copier le code ci-dessous
Changez les cellules et plage de celllules pour vos besoins.
Ici nom feuille dans cellule A1. Validation par entrer ou click surune autre cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'si plus d'une cellule selectionnee----> sortie
If Target.Count > 1 Then Exit Sub
'cellule A1
If Range("A1").Value <> "" Then
Onglet = Range("A1").Value
Onglet1 = ""
For x = 2 To Sheets.Count
If Sheets(x).Name = Onglet Then
Onglet1 = Onglet
Exit For
End If
Next
If Onglet1 <> "" Then
'Plage de cellules a copier
Worksheets(Onglet1).Range("A1:D20").Copy
'cellule de depart
Worksheets("Feuil1").Range("A2").Select
ActiveSheet.Paste
Else
'Message si Onglet inéxistant
retval = MsgBox("Attention: " & Chr(13) & Onglet & Chr(13) & " Inéxistant!", vbCritical)
End If
'RAZ A1 Feuil1
Range("A1").Value = ""
End If
End Sub
Ouvir VBA Alt+F11
double click Feuil1
Copier le code ci-dessous
Changez les cellules et plage de celllules pour vos besoins.
Ici nom feuille dans cellule A1. Validation par entrer ou click surune autre cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'si plus d'une cellule selectionnee----> sortie
If Target.Count > 1 Then Exit Sub
'cellule A1
If Range("A1").Value <> "" Then
Onglet = Range("A1").Value
Onglet1 = ""
For x = 2 To Sheets.Count
If Sheets(x).Name = Onglet Then
Onglet1 = Onglet
Exit For
End If
Next
If Onglet1 <> "" Then
'Plage de cellules a copier
Worksheets(Onglet1).Range("A1:D20").Copy
'cellule de depart
Worksheets("Feuil1").Range("A2").Select
ActiveSheet.Paste
Else
'Message si Onglet inéxistant
retval = MsgBox("Attention: " & Chr(13) & Onglet & Chr(13) & " Inéxistant!", vbCritical)
End If
'RAZ A1 Feuil1
Range("A1").Value = ""
End If
End Sub
Salut,
Pas besoin de code VBA, regarde le fichier joint qui à partir de la feuille Liste Elève il est possible d'afficher sur n'importe quelle feuille ses données, de la feuille Photos_Elèves d'afficher sa photo et des feuilles matières ses notes sur la feuille Récap et cela à partir d'un numéro sélectionné ou saisi en A2.
Suivant ses besoins, il est possible d'ajouter des feuilles matières
Le téléchargement prendra quelques minutes du au poids du fichier qui contient des photos
http://dl.free.fr/getfile.pl?file=/6xOGqGmw
Pas besoin de code VBA, regarde le fichier joint qui à partir de la feuille Liste Elève il est possible d'afficher sur n'importe quelle feuille ses données, de la feuille Photos_Elèves d'afficher sa photo et des feuilles matières ses notes sur la feuille Récap et cela à partir d'un numéro sélectionné ou saisi en A2.
Suivant ses besoins, il est possible d'ajouter des feuilles matières
Le téléchargement prendra quelques minutes du au poids du fichier qui contient des photos
http://dl.free.fr/getfile.pl?file=/6xOGqGmw
