Exportation donnees d'une page de saisie excel a sa page convenable

[Tzmed]

Bonjour ,

J'ai une base de données Excel d'inscriptions aux formations dans une feuille appelé 'page de saisie' , et d'autres feuilles Excel , chaque feuille représente un groupede formation . Je voudrais a chaque fois que je saisis dans la feuille de saisie , les données aillent directement vers la feuille de son groupe de formation convenable .

Je vous remercie infiniment .

 

[DoubleZero]

Re : Exportation donnees d'une page de saisie excel a sa page convenable

Bonjour à toutes et à tous,

Bienvenue sur XLD,Tzmed.

Pourrait-on disposer du fichier de travail, dépourvu de donnée confidentielle ?

A bientôt 🙂

 

[Tzmed]

Re : Exportation donnees d'une page de saisie excel a sa page convenable

Bonjour à toutes et à tous,

Bienvenue sur XLD,Tzmed.

Pourrait-on disposer du fichier de travail, dépourvu de donnée confidentielle ?

A bientôt 🙂

Re Bonjour ,
Vous trouverez ci-joint le fichier Excel demandé .
Je vous remercie encore une fois , c'est très gentil.

 

[camarchepas]

Re : Exportation donnees d'une page de saisie excel a sa page convenable

Bonsoir,

un petit code VBA evénementiel dans l'onglet inscription et hop :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig As Long
Dim Feuille As String
If Target.Column = 4 Then
If Range("A" & Target.Row) <> "" And Range("B" & Target.Row) <> "" And Range("C" & Target.Row) <> "" And Range("D" & Target.Row) <> "" Then
Select Case Target
Case "B"
Feuille = "GROUPE BERTRAND"
Case "H"
Feuille = "GROUPE HENRI "
Case "S"
Feuille = "GROUPE SIMON "
End Select
End If
End If
If Feuille <> "" Then
 Derlig = Sheets(Feuille).Range("A" & Rows.Count).End(xlUp).Row + 1
 Range("A" & Target.Row & ":C" & Target.Row).Copy Destination:=Sheets(Feuille).Range("A" & Derlig & ":C" & Derlig)
End If
End Sub