Copier automatiquement dans la même feuille

[maval]

Bonjour,

Je recherche un code vba pour copier automatiquement dans la même feuille les cellules "J3:K200" vers les cellules "C3: D200" en sachant que les cellules ont des formules.

Je vous remercie de votre aide

Cordialement

Maval

 

[youky(BJ)]

Re : Copier automatiquement dans la même feuille

Salut bien,
[C3: D200].value=[J3: K200].value
Code à placer dans un évènement de la page
Sans fichier à toi de voir
Bruno

 

[Papou-net]

Re : Copier automatiquement dans la même feuille

Bonsoir Maval,
Bonsoir Bruno,

Bruno : je ne pense pas que ta solution convienne, car la copie effectuée ne concerne que les valeurs et non les formules.

Par contre, tu as raison : un petit bout de fichier aiderait sûrement à répondre.

Maval : tu ne dis pas si la copie des formules doit adapter les adresses de cellules ou si elles doivent être conservées ?

A +

Cordialement.

 

[maval]

Re : Copier automatiquement dans la même feuille

Bonsoir Papou-Net, Bruno,

Oui elles doivent être conservées!

Je vous remercie et vous souhaite une bonne soirée

Max

 

[youky(BJ)]

Re : Copier automatiquement dans la même feuille

Bonsoir tous,
Je persiste et signe, mon code ne colle que des valeurs . . . .
Mis un bouton je pense que tu sauras trouver le code pour l'événement
Bruno


Edit :::toujours pas compris si c'est que les valeurs ou les formules qu'il faut copier

 

[Papou-net]

Re : Copier automatiquement dans la même feuille

RE :

Bruno, je crois bien que ce sont les formules qui doivent être copiées, en conservant les adresses des cellules. Il suffit donc de modifier ton code comme ceci :

Private Sub CommandButton1_Click()
[C3: D12].Formula = [J3: K12].Formula
End Sub

Sinon, Max ne tardera pas à nous le faire savoir.

Cordialement.

 

[Papou-net]

Re : Copier automatiquement dans la même feuille

RE :

Ci-joint, copie du fichier avec macro événementielle.

Cordialement.

 

[maval]

Re : Copier automatiquement dans la même feuille

Re,

Merci beaucoup c'est Nickel
Bonne soirée

@+
Max

 

[maval]

Re : Copier automatiquement dans la même feuille

Re Papou net,

Je viens de m'apercevoir que j'ai oublié de dire une chose importante j'ai les colonnes "C3: D200"qu'il sont protéger pour ne pas modifier. Comment peut on mettre dans le code suivant un ActiveSheet.Unprotect / ActiveSheet.Protect ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("J3:K200"), Target) Is Nothing Then
  Range("C3:D200").Formula = Range("J3:K200").Formula
End If
End Sub

Merci d'avance

Max

 

[Papou-net]

Re : Copier automatiquement dans la même feuille

RE :

Tu pourrais écrire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("J3:K200"), Target) Is Nothing Then
  Me.Unprotect "xxx"  
  Range("C3:D200").Formula = Range("J3:K200").Formula
  Me.protect "MotdePasse"  
End If
End Sub

Mais le plus simple serait de créer une procédure événementielle à l'ouverture du fichier dans le module ThisWorkbook.

Ex :

Private Sub Workbook_Open()
Feuil1.Protect "xxx", userinterfaceonly:=True
End Sub

Le paramètre userinterfaceonly protège la feuille contre les modifications de l'utilisateur mais autorise celles générées par les macros. Si tu veux protéger d'autres feuilles, tu peux utiliser une boucle pour y parvenir.

Bien entendu, tu adaptes le nom de la feuille (Feuil1) et le libellé du mot de passe (xxx) à ta convenance.

Cordialement.

 

[maval]

Re : Copier automatiquement dans la même feuille

Bonjopur Papou-net,

Je te remercie j'ai adopter le code avec "le paramètre userinterfaceonly" que je ne connaissez absolument pas!

Bonne journée

@+

Max