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 IfPour 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 🙂
Dernière modification par un modérateur: