Je voudrais ventiler les données qui se trouvent dans la feuille "idconel" vers les autres feuilles qui seront créées par une boucle. La sélection des feuilles se fera à partir de la derniere colonne de la feuille "idconel". Dans cette colonne figurent le noms des feuilles vers lesquelles les données doivent être ventilées.
L'idée ici est à chaque fois qu'une nouvelle donnée est enregistrée dans la feuille "idconel", ici la feuille-source, qu'on efface les données déjà ventilées avant faire faire un nouveau collage pour assurer la mise à jour.
Pour celà nous avons réalisé le code ci-dessous mais le problème est que non seulement les données ne sont pas ventilées la feuille source "idconel" s'effacent.
Ci-joint le fichier
Merci
DJISA
L'idée ici est à chaque fois qu'une nouvelle donnée est enregistrée dans la feuille "idconel", ici la feuille-source, qu'on efface les données déjà ventilées avant faire faire un nouveau collage pour assurer la mise à jour.
Pour celà nous avons réalisé le code ci-dessous mais le problème est que non seulement les données ne sont pas ventilées la feuille source "idconel" s'effacent.
Ci-joint le fichier
VB:
Dim j As Integer
Dim Lastrow As Integer
Dim DerniereLigne As Integer
Sub ventilation()
Application.ScreenUpdating = False
For j = 5 To 7
Sheets(j).Select
Lastrow = Range("C2000").End(xlUp).Row
For i = Lastrow To 5 Step -1
Sheets(j).Select
Rows(i).Select
Selection.Delete Shift:=xlUp
Next i
Sheets("idconel").Select
DerniereLigne = Range("C2000").End(xlUp).Row
For k = 5 To DerniereLigne
Sheets("idconel").Select
If Sheets(j).Name = Cells(k, 15).Value Then
Rows(k).Select
Selection.Copy
Sheets(j).Select
Lastrow = Range("C2000").End(xlUp).Row + 1
Cells(Lastrow, 1).Select
ActiveSheet.Paste
End If
Next k
Next j
Sheets("idconel").Select
Application.CutCopyMode = False
Application.ScreenUpdating = TrueMerci
DJISA