XL 2016 Code VBA

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Mai 2021

• #2

Bonsoir @Rosario.

Essayez :

Code:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Mai 2021

• #3

Bonjour @Rosario.
Edit : Bonjour mapomme

Je te propose :

VB:

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

@Phil69970

 

Vote positif 0 Vote négatif

R

Rosario.

XLDnaute Nouveau

• 13 Mai 2021

• #4

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

 

Dernière édition: 13 Mai 2021

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Mai 2021

• #5

@Rosario.

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



@Phil69970

 

Vote positif 0 Vote négatif

R

Rosario.

XLDnaute Nouveau

• 13 Mai 2021

• #6

Phil69970 à dit:

@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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

Rosario.

XLDnaute Nouveau

• 13 Mai 2021

• #7

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 13 Mai 2021

• #8

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

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Mai 2021

• #9

@Rosario. , Soan

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

VB:

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

@Phil69970

 

Vote positif 0 Vote négatif

R

Rosario.

XLDnaute Nouveau

• 13 Mai 2021

• #10

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

​

 

Vote positif 0 Vote négatif