Discussion :

[phoque.r]

Je ne connais rien à excel, à part les fonctions vraiment basiques.

Je voudrais faire deux fichiers séparée mais liés, je précise:
-le premier prend les nouveaux inscrits de l'année et une case numérique: 0 s'il est refusé et 1 s'il est accepté
-le second archive tous les inscrits acceptés automatiquement, dès que la case est passée à un.

Est-ce possible?
Si oui, comment faire??

[Daranc]

Bonjour
Dans tes explications les classeur ne sont pas liés l'un est rempli avec l'autre
des classeurs liés lorsque que tu en ouvres un l'autre est ouvert pour les mettre en relation dans ton cas une consultation d'un classeur n'intervient pas sur l'autre
je pense que la solution passe par VBA une solution par formule serait de l'usine à gaz d'autre part les inscrit des années précédentes restent dans l'archive, ou l'archivage est annuel ?
Daranc

[Daranc]

bon un bricolage
la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Transfert()
Dim dep_cop As Integer
Dim nb_acc As Integer
Dim pose As Integer
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=ActiveCell.Offset(0, 8).Range("A1"), Order1:= _
        xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom
        dep_cop = Range("m1").Value
        nb_acc = Range("l1").Value
    Range("A" & dep_cop & ":H" & dep_cop + nb_acc).Select
    Selection.Copy
    Windows("archive.xls").Activate
    pose = Range("j1").Value
    Range("a" & pose + 1).Select
    ActiveSheet.Paste
    Windows("encour.xls").Activate
    For t = 1 To nb_acc
    Range("i" & dep_cop - 1 + t).FormulaR1C1 = "A"
    Next
range("a1").select
End Sub

en L1 du classeur encours =NB.SI(I:I;1)
en M1 du classeur encours =NB.SI(I:I;0)+2
en j1 du classeur Archives = nbval(a:a)

ceci mélange les pointeurs de cellule par formule et un bout de code pour la copie
tu peut l'appeler par un bouton poser sur la feuille encours
dans cette formulation le classeur archive doit être ouvert avec le classeur encour il est possible de le demander en automatique à l'ouverture d'encour
Cordialement
Daranc

[phoque.r]

je v tester. Je n'aurai surement pas le temps aujourd'hui, mais lundi oui

[Micky58]

Bonjour, le plus simple je crois serait de faire un classeur avec 2 fichiers reliés
1) fichier "1"avec les inscriptions et l'indication O ou N
2) fichier "2" avec les "Oui" seulement
par une formule toute simple: =si(Feuil1!B8=0;" ";Feuil1!A8) sur la feuille 2
et en indiquant les données de la personne en A8 et le O ou 1 en B8 dans mon exemple.
Bonne journée

[phoque.r]

La solution des deux feuilles ne me va pas: il me faut impérativement 2 fichiers
mais là j'ai un autre problème, je comprends pas trop comment faut utiliser la macro (je reprécise que je découvre toute cette partie de Excel)

[Daranc]

Bonjour
la macro est à lancer lorsque le fichier 1 est rempli
tu vas dans outils
macro
macros
dans la boite de dialogue apparait Transfert tu la sélectionne et tu fait exécuter
la mise en place d'un bouton sur la feuille avec la macro affectée à ce bouton simplifiera l'opération
Daranc