Bonjour,
Dans le fichier excel ci-joint je cherche à raccourcir un groupe de macro. Mon problème est que 15 feuilles de ce fichier envois des lignes vers 6 autres feuilles en fonction du choix fait dans une liste déroulante. Une fois les données traitées sur une de ces 6 feuilles la ligne est renvoyée à la feuille expéditrice.
Voici le code que j'utilise:
Pour les 15 premières feuilles. Ce code est répété 6 fois
Pour les 6 autres feuilles le code sera répété 15 fois.
J'ai peur que celà ralentisse fortement l'exécution du fichier, d'autant que 21 personnes l'utiliseront et parfois simultanément.
Merci pour vos idées
Dans le fichier excel ci-joint je cherche à raccourcir un groupe de macro. Mon problème est que 15 feuilles de ce fichier envois des lignes vers 6 autres feuilles en fonction du choix fait dans une liste déroulante. Une fois les données traitées sur une de ces 6 feuilles la ligne est renvoyée à la feuille expéditrice.
Voici le code que j'utilise:
Pour les 15 premières feuilles. Ce code est répété 6 fois
Code:
If Target.Value = "Jocelyne 01" Then
With Sheets("Jocelyne")
ligvide = .Range("b65536").End(xlUp).Row + 1
.Cells(ligvide, 2) = Target.Offset(0, -5).Value
.Cells(ligvide, 3) = Target.Offset(0, -4).Value
.Cells(ligvide, 4) = Target.Offset(0, -3).Value
.Cells(ligvide, 5) = Target.Offset(0, -1).Value
.Cells(ligvide, 8) = Range("a1").Value
End With
ActiveWorkbook.Save
End If
Pour les 6 autres feuilles le code sera répété 15 fois.
J'ai peur que celà ralentisse fortement l'exécution du fichier, d'autant que 21 personnes l'utiliseront et parfois simultanément.
Merci pour vos idées
Pièces jointes
Dernière modification par un modérateur: