Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changer de destination...

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 !

olibelle0101

XLDnaute Occasionnel
Bonjour à tous.
Je vient de trouver une macro qui fonctionne à merveille.
Mais seulement sur la meme feuille.
Comment faire pour que la ligne se recopie
sur un autre classeur automatiquement ??? (Calcul1;Feuil1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 9 And LCase(Target.Value) = "olivier" Then
Set dest = [N65536].End(xlUp).Offset(1, 0)
Range("A" & Target.Row & ":L" & Target.Row).Copy dest
dest.Value = Val(dest.Offset(-1, 0).Value) + 1
End If
Application.EnableEvents = True
End Sub

Je vous souhaite une bonne journée.
A+
 
Re : Changer de destination...

Bonjour

essaies

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 9 And LCase(Target.Value) = "olivier" Then
Set dest = workbooks("calcul1").sheets("feuil1").range("N65536").End(xlUp).Offset(1, 0)
Range("A" & Target.Row & ":L" & Target.Row).Copy dest
dest.Value = Val(dest.Offset(-1, 0).Value) + 1
End If
Application.EnableEvents = True
End Sub
 
- 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

Discussions similaires

Réponses
15
Affichages
820
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
9
Affichages
509
Réponses
4
Affichages
596
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…