XL 2016 Code VBA

Rosario.

XLDnaute Nouveau
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
 

Pièces jointes

  • VBA.xlsx
    14.8 KB · Affichages: 12

Phil69970

XLDnaute Barbatruc
@Rosario.

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

1620860421320.png


@Phil69970
 

Rosario.

XLDnaute Nouveau
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 Image3.pngImage2.png
 

soan

XLDnaute Barbatruc
Inactif
Bonjour Rosario, le fil,

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

VB:
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
 

Pièces jointes

  • VBA.xlsm
    20.9 KB · Affichages: 4

Rosario.

XLDnaute Nouveau
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.....

 

Discussions similaires

Réponses
2
Affichages
578

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec