Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("W12")) Is Nothing Then
If Target <> "OFF" Then
For L = 12 To 19
Cells(11 + Target, 35 + L - 12) = Cells(L, "AD")
Cells(11 + Target, 44 + L - 12) = Cells(L, "AF")
Cells(11 + Target, 53 + L - 12) = Cells(L, "AG")
Next L
End If
End If
Fin:
End Sub
La macro se déclenche sur une modification de W12.
bonjour sylvanu,
merci pour votre aide, c'est bien ce que je chercher à faire, je n'y parvenais pas avec l'éditeur de macro
es ce qu'il serai possible d'y ajouter ,si en w12 il y à RAZ les trois tableau on sont copier les données soit effacé ?
merci
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD