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