Discussion :

[Mr l'Ashanti]

Bonsoir forum.
J'ai créé deux feuilles sur lesquelles comportent deux tableaux. La première feuille sert à la saisie des données et la deuxième à l' exportation des données.

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
Sub modifier4()
 
 
Set f = Sheets("classe6e1")
    Set g = Feuil9
    If T_ligne_4 <> "" Then
    i = T_ligne_4
        If MsgBox("Voulez vous modifier" & "  " & T_nom_4 & " " & T_prenoms_4 & "?", _
        vbQuestion + vbYesNo, "Confirmation ") <> vbYes Then Exit Sub
 
            f.Range("AR" & i) = T_matricule_4
            f.Range("AS" & i) = T_nom_4
            f.Range("AT" & i) = T_prenoms_4
 
            'modification de la liste exportée 
	    'tableau commençant à la ligne 10 
 
            g.Range("R" & i + 9) = f.Range("AR" & i)
            g.Range("S" & i + 9) = f.Range("AS" & i)
 
Else
        MsgBox (" Aucun nom sélectionné"), vbExclamation, "Sélectionné Nom"
    End If
end sub
 
Private Sub BT_Supprimer_4_Click()
 
    Set f = Sheets("classe6e1")
 
    If T_ligne_4 <> "" Then
    i = T_ligne_4
        If MsgBox("Voulez vous supprimer" & " " & T_nom_4 & " " & T_prenoms_4 & " " & "de la liste?", _
            vbQuestion + vbYesNo, "Confirmation") <> vbYes Then Exit Sub
            f.ListObjects("Tab_6e4").ListRows(i - 1).Delete
	Else
   MsgBox " Aucun nom sélectionné ", vbExclamation, "Sélection de Noms"
end if
 end sub

Ce code me permet de modifier la première feuille et la deuxième en utilisant la récupération de la ligne du tableau de la première feuille ''f''.
Lorsque je modifie une donnée de la première feuille, celle ci s'effectue aussi via le tableau de la deuxième feuille.
Je souhaiterais qu'en supprimant une donnée dans le tableau de la première feuille ''f'' , la suppression s'effectue aussi dans la deuxième feuille .
J'ai essayé avec

Code :

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

g.Listobjects("Liste6e1").ListRows((i+9)-1).Delete

mais un message d'erreur s'affiche : l'indice n'appartient pas à la sélection.
J'ai tourné et revu d'autres exemples de codes mais toujours le même message.
J'espère être plus explicite dans ma demande.

[Mr l'Ashanti]

Bonjour forum.
Je reformule ma demande pour plus de clarté.
Je souhaiterais faire correspondre la suppression d'une ligne du tableau 1 sur la première feuille et la ligne du tableau 2 sur la deuxième feuille.
En d'autres termes, lorsque une ligne du tableau 1 est supprimée , la même donnée qui se trouve dans le tableau 2 aussi se supprime.
Pour le moment , je réussis à le faire avec les modifications comme dans le précédent poste. C'est la suppression qui cause problème.
Merci bien à vous de m'aider.
Bonne journée cordialement.

[ARTURO83]

Bonjour,

Question: Feuil9, c'est son nom?
Sinon remplacez

Code :

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

Set g = Feuil9

par

Code :

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

Set g = sheets("Feuil9")

Cdlt

[Mr l'Ashanti]

Merci pour votre réponse rapide.
La feuille même se nomme '' Liste6e". Feuil9 c'est le nom initial qu'excel octroie à la feuille.

[ARTURO83]

Alors pourquoi ne pas déclarer:

Code :

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

set g=sheets("Liste6e")

Ensuite

Code :

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

ListRows((i+9)-1)

pourquoi pas

Code :

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

ListRows(i+8)

[Mr l'Ashanti]

Toujours le même message.

Code :

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

1
2
set g=Sheets("Liste6e")
g.Listobjects("Liste6e1").ListRows(i + 8).Delete

Et on surligne ce code.