Modife code pour copier uniquement les valeurs

[alain62]

Bonsoir à vous tous,
voilà donc je cherche à modifier ce code pour copier/coller uniquement les valeurs...

Merci à ceux qui se pencheront sur ma demmande.

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 Destination:=Worksheets("5008").Range("B" & x)
    End If
End sub

 

[Grand Chaman Excel]

Re : Modife code pour copier uniquement les valeurs

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

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

 

[alain62]

Re : Modife code pour copier uniquement les valeurs

Bonjour Grand Chaman Excel,

ça ne fonctionnne pas, je joins un fichier

merci

 

[Efgé]

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:

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

Cordialement

 

[alain62]

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

 

[Efgé]

Re : Modife code pour copier uniquement les valeurs

... elles ne réapparaissent nulle part.

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

 

[alain62]

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

 

[alain62]

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

 

[Efgé]

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