Bonjour le forum!!
J'arrive à la fin d'un gros boulot sur excel, grâce à vous j'ai pu avancer brique par brique alors encore un grand merci à tous, je pense à dudule, pierrejean, bruno45 et beaucoup d'autres... Je pense que c'est bien de rappeler que l'on est reconnaissant.
Sinon, je finalise et j'aurai encore besoin de vos lumières.
J'alimente la première colonne d'un tableau par la recopie de la première colonne d'un autre tableau, pour ce faire j'utilise :
Le problème avec ce code c'est que lorsque je supprime une ligne sur le tableau source, la ligne crée se vide mais ne se supprime pas, vu que mon tableau est associé à un graphique sa me laisse des trous.
Donc j'ai résolu cela en cachant les lignes vides par ce code :
Cela fonctionne mais lorsque je rajoute une donnée dans le tableau source la ligne va bien se copiée dans le tableau de destination mais elle reste cachée,
Donc ma question comment ré affiché la ligne si elle n'est plus vide???
Merci d'avance pour vos réponses..
J'arrive à la fin d'un gros boulot sur excel, grâce à vous j'ai pu avancer brique par brique alors encore un grand merci à tous, je pense à dudule, pierrejean, bruno45 et beaucoup d'autres... Je pense que c'est bien de rappeler que l'on est reconnaissant.
Sinon, je finalise et j'aurai encore besoin de vos lumières.
J'alimente la première colonne d'un tableau par la recopie de la première colonne d'un autre tableau, pour ce faire j'utilise :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim l As Long
Application.ScreenUpdating = False
With Sheets("Salaire associé")
.Range("a11:a" & .Range("a65536").End(xlUp).Row).Clear
End With
With Sheets("ASSOCIES")
.Range(.Range("A7"), .Range("A7").End(xlDown)).Copy Destination:=Sheets("Salaire associé").Range("a11")
Application.ScreenUpdating = True
End With
End SubLe problème avec ce code c'est que lorsque je supprime une ligne sur le tableau source, la ligne crée se vide mais ne se supprime pas, vu que mon tableau est associé à un graphique sa me laisse des trous.
Donc j'ai résolu cela en cachant les lignes vides par ce code :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Salaire associé")
Application.ScreenUpdating = False
For iii = 2 To Range("b65536").End(xlUp).Row
If Cells(iii, 1) = "" Then Rows(iii).EntireRow.Hidden = True
Next iii
End With
Application.ScreenUpdating = True
End SubCela fonctionne mais lorsque je rajoute une donnée dans le tableau source la ligne va bien se copiée dans le tableau de destination mais elle reste cachée,
Donc ma question comment ré affiché la ligne si elle n'est plus vide???
Merci d'avance pour vos réponses..