Discussion :

[Mr l'Ashanti]

rebonjour.

j'ai 4 tableaux sur une meme feuille qui represente 4 trimestres scloaires. je duplique les noms et prenoms, classe et sexe du premier tableau dans les 3 autres tableaux. mais concernant les notes j'utilse la modification des lignes.
ceci etant: quand je supprime la ligne du premier tableau et je la duplique rien ne se passe mais quand je saisie d'autres données cela se déroule correctement.
ma préoccupation: je voudrais traduire ce langage en vba si c'est possible
si la derniere ligne du tableau1 sur la feuille excel est exemple 4 alors on supprime toutes les lignes des 3 autres tableaux jusqu' a la ligne du tableau1.

[Invité]

ma préoccupation: je voudrais traduire ce langage en vba si c'est possible

Bonjour,

Créez une macro :

• Enregistrez les séquences souhaitées.
• Arrêtez la macro.
• Regardez ce que vous obtenez dans la macro dans l'éditeur VBA.
• Modifiez là pour l'adapter à tous les cas de figure.

[Mr l'Ashanti]

Bonjour,

Créez une macro :

• Enregistrez les séquences souhaitées.
• Arrêtez la macro.
• Regardez ce que vous obtenez dans la macro dans l'éditeur VBA.
• Modifiez là pour l'adapter à tous les cas de figure.

si la derniere ligne du tableau1 sur la feuille excel est exemple 4 alors on supprime toutes les lignes des 3 autres tableaux jusqu' a la ligne du tableau1.

je l'ai essayé et je ne trouvais pas l'adaptation exacte ce pourquoi j'ai posté. neammoins merci pour votre guide. je continue de chercher la solutoin exacte...

[Invité]

je l'ai essayé et je ne trouvais pas l'adaptation exacte ce pourquoi j'ai posté

Dans ce cas, il serait peut-être plus clair de mettre un fichier exemple avec votre code et des commentaires.

[Mr l'Ashanti]

voici un exemple du fichier .
sur l'autre fichier j'utilise une listbox

[Invité]

En admettant que vous ayez mis à jour le tableau 1, le code ci-dessous placé dans un module standard supprime les 3 autres tableaux et en régénère trois autres sur le modèle du premier :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
Sub TestCopierListObject()
 
    CopierListObject Sheets("Feuil1")
 
End Sub
 
Sub CopierListObject(ByVal FeuilleTableaux As Worksheet)
 
Dim I As Integer
Dim MonTableau As ListObject
Dim MaColonne As Long
Dim NbColonnes As Long
 
    With FeuilleTableaux
 
         If .ListObjects.Count > 1 Then
 
           For I = .ListObjects.Count To 2 Step -1
               .ListObjects(I).Delete
           Next I
 
           Set MonTableau = .ListObjects(1)
 
           NbColonnes = MonTableau.ListColumns.Count
           MaColonne = NbColonnes + 2
 
           For I = 1 To 3
               MonTableau.Range.Copy Destination:=.Cells(1, MaColonne)
               MaColonne = MaColonne + NbColonnes + 1
           Next I
 
           Set MonTableau = Nothing
 
         End If
 
    End With
 
End Sub

[Mr l'Ashanti]

c'est exact mais dans le cas ou les notes saisies sont difféentes pour les 4 trimestres si je supprimes les 3 autres tableaux et je copie le premier ça fausse les moyennes générales annulles des élèves.
je vous envoie le fichier original

[Mr l'Ashanti]

voici le fichier original

[Invité]

voici le fichier original

Testez ce code :

Le soucis, c'est que vous avez des homonymies de 2 types :

- Les élèves ont le même nom et sont dans la même classe.
- Les élèves ont le même nom et dans des classes différentes.

Il vous faut travailler sur une colonne contenant les triplets nom,prénom, classe et éventuellement un autre caractère s'il y a deux élèves de même nom dans la même classe.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
Option Explicit
 
 
Sub TestCopierListObject()
 
    MettreAJourListObject Sheets("rapport")
 
End Sub
 
Sub MettreAJourListObject(ByVal FeuilleTableaux As Worksheet)
 
Dim I As Integer, J As Integer
Dim MaColonne As Long, NbColonnes As Long
Dim AireEleves As Range, CelluleEleves As Range
Dim AireTableau As Range, CelluleTableau As Range
Dim Continuer As Boolean
 
    With FeuilleTableaux
 
         Set AireEleves = .ListObjects(1).ListColumns(1).DataBodyRange
 
         If .ListObjects.Count > 1 Then
 
 
           ' Cas des ajouts
           For I = 2 To 4
               Set AireTableau = .ListObjects(I).ListColumns(1).DataBodyRange
 
               For Each CelluleEleves In AireEleves
                   Continuer = True
 
                   For Each CelluleTableau In AireTableau
                      If CelluleEleves = CelluleTableau Then Continuer = False
                   Next CelluleTableau
 
                   If Continuer = True Then
                     With .ListObjects(I)
                           .ListRows.Add
                           .ListRows(.ListRows.Count).Range(1, 1) = CelluleEleves
                      End With
                   End If
 
               Next CelluleEleves
 
               Set AireTableau = Nothing
 
           Next I
 
 
           ' Cas des suppressions
           For I = 2 To 4
               Set AireTableau = .ListObjects(I).ListColumns(1).DataBodyRange
 
               For J = AireTableau.Count To 1 Step -1
                   Continuer = True
                   For Each CelluleEleves In AireEleves
                      If CelluleEleves = AireTableau(J) Then Continuer = False
                   Next CelluleEleves
 
                   If Continuer = True Then
                     With .ListObjects(I)
                           .ListRows(J).Delete
                      End With
                   End If
 
               Next J
 
               Set AireTableau = Nothing
 
           Next I
 
          ' Tri des tableaux
           For I = 1 To 4
 
                With .ListObjects(I)
                      .Sort.SortFields.Clear
                      .Sort.SortFields.Add Key:=.ListColumns(1).DataBodyRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                      With .Sort
                           .Header = xlYes
                           .MatchCase = False
                           .Orientation = xlTopToBottom
                           .SortMethod = xlPinYin
                           .Apply
                      End With
                End With
          Next I
 
 
 
         End If
 
    End With
 
End Sub

[Mr l'Ashanti]

ici en cote d'ivoire nous pouvons avoir plus de 5 eleves ayant les memes noms dans une meme classe. ce pourquoi j'ai opté pour le doublage.
je vais tester votre code et vous faire un feedback. ce fichier un fichier beta c'est pourquoi je teste toutes les éventualités qu'ils peuvent y avoir.

[Mr l'Ashanti]

apres reflexion sur le code
vous avez inseré l'autre procédure sur le tri. j'avais pensé à ça et aussi sur la recherche des noms et classes