aide formulaire excel

[jessica.girard]

Bonjour
Ci joint un fichier excel sur lequel j'aurai besoin d'aide merci
il s'agit de faire un mini formulaire

Merci de votre aide
Jessica

 

[pierrejean]

Re : aide formulaire excel

bonsoir Jessica

vois si cela te convient

il suffit de modifier la reference en B1

 

[jessica.girard]

Re : aide formulaire excel

Bonjour Pierre Jean,

Je te remercie de ta réponse rapide. Cependant je n'arrive pas à ouvrir ton fichier avec les macros, il semblerait qu'il y ait un problème. Peux tu réessayer de me renvoyer le fichier que tu as préparé?
Merci beaucoup,

Jessica

 

[jessica.girard]

Re : aide formulaire excel

Pierre jean, C bon ca fonctionne merci beaucoup!
Par contre quelle est ta formule je ne la vois pas pour la reproduire sur d'autres fichiers...

Merci,
Jessica

 

[pierrejean]

Re : aide formulaire excel

bonjour jessica

il n'y a pas de formules mais 2 macros

l'une dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Call test
End Sub

l'autre dans le module

Sub test()
Sheets("FORMULAIRE").Range("A5:K" & Sheets("FORMULAIRE").Range("A65536").End(xlUp).Row).ClearContents
ligne = 5
With Worksheets("Base").Range("E2:E" & Worksheets("Base").Range("E65536").End(xlUp).Row)
Set c = .Find(Sheets("FORMULAIRE").Range("B1"), LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Base").Range("A" & c.Row & ":K" & c.Row).Copy Destination:=Sheets("FORMULAIRE").Cells(ligne, 1)
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Pour les integrer dans un autre fichier:

Outils> macro >Visual basic editor

ensuite Insertion > module

copier/coller test

puis en haut a gauche cliquer sur la feuille conernée

dans la liste deroulante de droite choisir Worksheet et change dans celle de gauche

Bon Courage