Discussion :

[matipupuce]

Bonjour,

Je souhaite faire transférer des données mais je ne sais pas comment faire !
J'ai créé un fichier XL avec 20 onglets (mes classes - 1A-1B-...), dans chaque onglet j'ai :
colonne 1 "nom" Colonne 2 "prénom" colonne 3 "repas chaud" colonne 4 "abonnement" ...
De la colonne 3 à ... je note des montants lorsque les enfants m'ont payé et je voudrais, SI C'EST POSSIBLE !!! que lorsque je note un montant dans la colonne des repas chaud par exemple que le nom et le prénom de l'enfant qui a payé se note dans mon onglet 21.
Voilà, j'espère que vous comprenez ma demande et vous remercie d'avance pour votre aide.
Amicalement
Matipupuce

[Daniel.C]

Bonsoir,

Voici un classeur exemple avec trois feuilles et une feuille récapitulative nommée Récap. Il y a une macro dans le module "ThisWorkbook" :

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
25
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Ligne
    With Sheets("Récap")
        If Sh.Name <> "Récap" Then
            If Target.Column > 2 Then
                Application.EnableEvents = False
                For Each c In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
                    If c = Sh.Cells(Target.Row, 1) And c.Offset(, 1) = Sh.Cells(Target.Row, 2) Then
                        Ligne = c.Row
                        Exit For
                    Else
                        Ligne = 0
                    End If
                Next c
                If Ligne = 0 Then
                    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                End If
                    .Cells(Ligne, 1) = Sh.Cells(Target.Row, 1)
                    .Cells(Ligne, 2) = Sh.Cells(Target.Row, 2)
                    .Cells(Ligne, Target.Column) = Sh.Cells(Target.Row, Target.Column)
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

Si tu n'es pas familiarisée avec les macros, n'hésite pas à poser toutes questions te permettant d'adapter ce classeur au tien.

[matipupuce]

Bonjour Daniel,

Je suis désolée mais j'ai rien compris
Il faut dire que je suis néophyte en la matière et que tout ce que je sais, je l'ai appris en touchant en tous les boutons et en lisant des bouquins (pas très clair !)
Je ne comprend pas comment faire pour adapter ça à mon classeur car quand je clique dans les cases, je ne vois pas de formule, est-ce normal ? à moins que cela ne fonctionne pas avec une formule ? Tu me parles de macro, qu'est-ce que c'est ?
Je te joins mon fichier actuel pour que tu puisses voir mon travail.
En voyant le tableau que tu m'as envoyé, je vois que c'est exactement ça mais j'ai remarqué qu'il me manquait une information dont je ne t'avais pas parlé, y a-t-il moyen de savoir également la classe (qui est notée uniquement en onglet (1A-1B- 5C - ...) ?
D'avance merci pour ta patience
Frédérique

[Daniel.C]

Bonjour,

Tu me parles de macro, qu'est-ce que c'est ?

C'est un programme. Dans ton cas, il se déclenche quand tu entres une valeur dans un cellule à partir de la colonne C. J'ai adapté ton classeur et je suis désolé mais je vais te parler technique. Ton classeur est de type ".xlsx"; ce type de classeur n'admet pas les macros. Je l'ai donc enregistré au format ".xls". Je ne pense pas que ça change grand-chose dans ton cas. Malgré tout, si c'était le cas, dis-le moi. J'ai mis les résultats en Feuil12. Je ne me suis occupé que des feuilles de classe, c'est à dire un chiffre et une lettre. J'ai aussi ajouté la classe avec les autres infos. J'ai recopié les entêtes d'une feuille de classe en Feuil12.

[matipupuce]

Bonjour,
Je vais essayer de le faire, encore merci pour ton aide et si je ne m'en sort pas j'appelle au secours ! lol
Amicalement
Frédérique