XL 2016 Code VBA

[Rosario.]

Bonsoir tous le monde,
Voici ma question : j'aimerais faire un copier coller de cellule d'une feuille à une autre feuille.
Voir explication sur fichier joint.

Merci pour vos retour.
Cordialement.
Voici le code que j'utise :

Sub rangecopy()
Range("I14").copy Feuil2.Range("C5")
End Sub

 

[mapomme]

Bonsoir @Rosario.

Essayez :

Feuil1.Range("C5")=Feuil2.Range("I14")

 

[Phil69970]

Bonjour @Rosario.
Edit : Bonjour mapomme

Je te propose :

Sub Copie()
Feuil1.[C5] = Feuil2.[I14]
End Sub

@Phil69970

 

[Rosario.]

Bonsoir messieurs, je viens d’essayer mais malheureusement, la couleur de la feuille ce met

 

[Phil69970]

@Rosario.

Nos 2 codes de mapomme et le mien font ce que tu as demandé c'est à dire copier coller sans la couleur.

@Phil69970

 

[Rosario.]

@Rosario.

Nos 2 codes de mapomme et le mien font ce que tu as demandé c'est à dire copier coller sans la couleur.

Regarde la pièce jointe 1105399

@Phil69970

 

[Rosario.]

Voici ce que j'ai le fichier avec les cases grises et noir c'est le fichier d'origine ou je dois coller les croix du tableau du dessous et en mettant le code j'ai la croix et la couleur avec cela m'enlève la case grise. Moi j'aimerai avoir ce résultat en PJ
Merci

 

[soan]

Bonjour Rosario, le fil,

ton fichier en retour ; sur "Feuil1", fais Ctrl e ➯ travail effectué. 🙂

Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim cel As Range
  Set cel = ActiveCell: Application.ScreenUpdating = 0
  [Feuil2!H14:K15].Copy: [B5].PasteSpecial -4163
  Application.CutCopyMode = 0: cel.Select
End Sub

soan

 

[Phil69970]

@Rosario. , Soan

Maintenant si tu veux recuperer la couleur de la cellule E5 par exemple je te propose ceci :

Sub Copie()
Feuil1.[C5] = Feuil2.[I14]
Feuil1.[C5].Interior.ColorIndex = Feuil1.[E5].Interior.ColorIndex
End Sub

@Phil69970

 

[Rosario.]

Bonsoir tous le monde,
Je vous remercie pour vos formules cela fonctionne. Je l'ai mis en pratique dans mon tableau. Voici la formule que j'ai utilisé :
Feuil5.[K27] = Feuil5.[U27]

Merci encore à : Soan ; Phi69970 ; Mapomme.....

​