Recherchev sous excel

[AZQ13]

Userform comment rentrer une donnée et la rechercher avec un userform

 

[vgendron]

Re : Ventiler par activité (Base de données) VBA

Hello
et bienvenu ici

pour débuter.....
place ce code pour le bouton de ton formulaire

Private Sub CommandButton1_Click()
nb = Sheets("BDD").Range("A65536").End(xlUp).Row
Sheets("BDD").Activate
Sheets("BDD").Range("$A$1:$F$9").AutoFilter Field:=3, Criteria1:=Activite.Value
Range("A2:F" & nb).SpecialCells(xlVisible).Select
Selection.Copy
   
   
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    ActiveSheet.Name = Activite.Value
    Sheets("BDD").Select
    ActiveSheet.Range("$A$1:$F$" & nb).AutoFilter Field:=3
    Application.CutCopyMode = False
    
End Sub

1) ne marchera que si les onglets sont inexistants.. il n'y a aucun test.... pour l'instant.. ;-)
2) peut TREEEEESS certainement se faire avec formule.. sans passer par le VBA

 

[vgendron]

Re : Ventiler par activité (Base de données) VBA

avec une évolution: test d'existence..

Private Sub CommandButton1_Click()
Sheets("BDD").Activate
nb = Sheets("BDD").Range("A65536").End(xlUp).Row

'on applique un filtre sur la colonne C - avec l'activité choisie
Sheets("BDD").Range("$A$1:$F$" & nb).AutoFilter Field:=3, Criteria1:=Activite.Value
Range("A2:F" & nb).SpecialCells(xlVisible).Select
Selection.Copy
   
   
'on recherche dans le classeur si l'onglet est déjà créé ou pas
dejacree = False
For Each ws In Worksheets
    If ws.Name = Activite.Value Then
        dejacree = True
        'et la. on fait quoi? on écrase?
    End If
Next ws
    If Not (dejacree) Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Activite.Value
    End If
    Sheets(Activite.Value).Activate
    ActiveSheet.Paste
    
    'on revient sur la BDD et on enlève le filtre
    Sheets("BDD").Select
    ActiveSheet.Range("$A$1:$F$" & nb).AutoFilter Field:=3
    Application.CutCopyMode = False
    
End Sub

 

[AZQ13]

Re : Ventiler par activité (Base de données) VBA

Impeccable vgendron, super rapide et efficace merci beaucoup

Juste 2 petits points supplémentaires :
- La feuille BDD doit rester intacte alors que là elle se modifie en même temps que la page créée
- Est-il possible de renommer le nom de la feuille avec l'activité ?

Grand grand merci !

 

[AZQ13]

Re : Ventiler par activité (Base de données) VBA

J'ai vu que l'onglet se renommait automatiquement merci bien pour ce point là

 

[vgendron]

Re : Recherchev sous excel

Hello

- La feuille BDD doit rester intacte alors que là elle se modifie en même temps que la page créée

Je ne comprend pas bien.. normalement, il n'y a qu'un filtre qui est appliqué en cours de macro et à la fin je le supprime..
donc la feuille BDD n'est pas modifiée.. ??