Bonjour,
Je souhaite copier automatiquement, lors de la saisie, les cellules de la feuille 2 sur la feuille 1
du même document.
Merci
Lien du document : https://we.tl/t-xor4pS880R
Posté le Bonjour Feurouge,
vu ta demande, tu as inversé les 2 chiffres du titre de ton sujet. ;)
ton fichier en retour : https://www.cjoint.com/c/MJrwx3Yzyv0
sur Feuil2, fais plusieurs essais : saisie d'un montant dans une des cellules de la plage B3:F14 ;
et aussi suppression d'un montant avec la touche Suppression ; dans les 2 cas, ça sera
répercuté de Feuil2 sur Feuil1 : écriture ou effacement d'un montant. :)
fais Alt F11 pour voir le code VBA ; puis fais Alt F11 pour revenir sur Excel.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code VBA du module de Feuil2 (10 lignes) :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If Not Intersect(Target, [B3:F14]) Is Nothing _
Then Worksheets("Feuil1").Range(.Address) = .Value
End With
End Sub
rhodo
Posté le -
Bonsoir, Merci, mais quelle est la procédure ? SVP – 18 octobre 2023, 00:30
@Feurouge
j'ai ajouté la procédure dans mon post précédent ;
je te laisse faire plusieurs essais. ;)
si besoin, tu peux demander une adaptation ou
des infos complémentaires. :)
rhodo
-
bonjour rhodo, Un grand merci pour votre réponse. C'est sympa. Question subsidiaire est-ce réalisable sans passer par du VBA ? plus simplement avec une/des fonctions ? Cordialement – 18 octobre 2023, 09:27
Bonjour Feurouge,
autre fichier : https://www.cjoint.com/c/MJsn4DxqLh0
sur Feuil1, formule de B3 : =Feuil2!B3 ; j'ai étiré cette formule à droite jusqu'en F3 ;
puis j'ai étiré les 5 formules de B3:F3 vers le bas jusqu'en ligne 14 ; ça fait donc
60 formules en tout (pour B3:F14).
rhodo