Modife code pour copier uniquement les valeurs

Grand Chaman Excel

XLDnaute Impliqué

• 11 Mai 2013

• #2

Re : Modife code pour copier uniquement les valeurs

Bonsoir,
Pas de fichier pour tester.... peut-être comme ça :

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim Carb As Boolean
   Carb = False

   If Target.Column = 8 And Target(1) = "Carburant" Then
      If Target(1).Offset(0, 1) = "5008" Then Carbu = True
   ElseIf Target.Column = 9 And Target(1) = "5008" Then
      If Target(1).Offset(0, -1) = "Carburant" Then Carbu = True
   End If
   If Carbu Then
      x = Sheets("5008").Range("B" & Rows.Count).End(xlUp).Row + 1
      Worksheets("Voiture").Range("B" & Target.Row & ":G" & Target.Row).Copy
      Worksheets("5008").Range("B" & x).PasteSpecial xlPasteValues
   End If
End Sub

 

Vote positif 0 Vote négatif

A

alain62

XLDnaute Nouveau

• 11 Mai 2013

• #3

Re : Modife code pour copier uniquement les valeurs

Bonjour Grand Chaman Excel,

ça ne fonctionnne pas, je joins un fichier

merci

 

Pièces jointes

• Classeur test.xlsm

  20.8 KB · Affichages: 39
• Classeur test.xlsm

  20.8 KB · Affichages: 41
• Classeur test.xlsm

  20.8 KB · Affichages: 43

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 11 Mai 2013

• #4

Re : Modife code pour copier uniquement les valeurs

Bonjour alain62, Grand Chaman Excel
Si il ne s'agit que de récupérer les valeurs, ceci devrait faire l'affaire:

VB:

Worksheets("5008").Range("B" & x & ":G" & x).Value = _
         Worksheets("Voiture").Range("B" & Target.Row & ":G" & Target.Row).Value

Cordialement

 

Vote positif 0 Vote négatif

A

alain62

XLDnaute Nouveau

• 11 Mai 2013

• #5

Re : Modife code pour copier uniquement les valeurs

Bonjour Efgé

Alors ça efface les valeurs qui devaient être copiées et elles ne réapparaissent nulle part.

Merci

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 11 Mai 2013

• #6

Re : Modife code pour copier uniquement les valeurs

alain62 à dit:

... elles ne réapparaissent nulle part.

Cliquez pour agrandir...

Si si , elles réapparaissent sur la feuille 5008
Cordialement

 

Vote positif 0 Vote négatif

A

alain62

XLDnaute Nouveau

• 11 Mai 2013

• #7

Re : Modife code pour copier uniquement les valeurs

Re,

effectivement autant pour moi.

est-il possible d'empêcher en plus qu'il ne copie la mise en forme originale (police, taille, couleur police)?

Merci

 

Vote positif 0 Vote négatif

A

alain62

XLDnaute Nouveau

• 11 Mai 2013

• #8

Re : Modife code pour copier uniquement les valeurs

Efgé

Bon ben en fait avec un premier essai il copiait la mise en forme et maintenant ça a l'air d'être tout bon.

Merci beaucoup à toi

Bon week

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 11 Mai 2013

• #9

Re : Modife code pour copier uniquement les valeurs

Re
Ma proposition ne copie rien, ni police ni couleur , rien que les valeurs.
Ce sont tes cellules de destinations qui ont conservées les mise en formes précédentes.
Supprime les et tout rentrera dans l'ordre.
Cordialement

 

Vote positif 0 Vote négatif