[Résolu] Copier sans mise en forme

D

david84

XLDnaute Barbatruc

• 12 Novembre 2011

• #2

Re : Copier sans mise en forme

Bonjour,
1) il n'y a pas de feuille "renseignements"
2) Explique précisément quelle feuille tu veux copier, où tu veux la copier et quel est le résultat attendu (sans la mise en forme, avec les formules ou uniquement les valeurs,...).
A+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #3

Re : Copier sans mise en forme

Bonsoir David,

désolé je me suis trompé. La feuille c'est Enregistrements, le nom du magasinier et le poids doivent être copier dans la feuille Poids.
Si tu peut aussi y ajouter(dans le code) les formules que j'ai écrites dans Poids, ça serait mieux. Sinon je dois les étirer jusqu'à la fin.

A+ 😎

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2011

• #4

Re : Copier sans mise en forme

Bonjour

Pourquoi ne essayer de travailler avec
toto.value=titi.value
???

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #5

Re : Copier sans mise en forme

Bonsoir tbtf,

parce que tata.value n'a pas envie. 😛 MDR!!

Non... trève de plaisenteries, je sais que je me complique la vie parfois.


A+ 😎

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2011

• #6

Re : Copier sans mise en forme

Re

Si cela ne fonctionne pas.
Serait il possible de mettre à dispo le fichier modifié, svp???

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #7

Re : Copier sans mise en forme

Re tbft,

quel fichier modifié???

Il y a celui en PJ que j'ai mis.


A+ 😎

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2011

• #8

Re : Copier sans mise en forme

Bonsoir

As tu essayé ceci:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
Sheets(4).Range("F7").Select

If Not Intersect(Target, [F7]) Is Nothing Then
    With Sheets("Poids")
        Set x = .Range("C2:C65000").Find("", .Range("C65000"), xlValues, , 1, 1, 0)
                If Not x Is Nothing Then x.Value = Target.Value ' Target.Copy x
    End With
End If
Sheets(4).Range("F9").Select

If Not Intersect(Target, [F9]) Is Nothing Then
    With Sheets("Poids")
        Set x = .Range("D2:D65000").Find("", .Range("D65000"), xlValues, , 1, 1, 0)
                If Not x Is Nothing Then x.Value = Target.Value ' Target.Copy x
    End With
End If
End Sub

Ou je me suis encore planté de macro...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #9

Re : Copier sans mise en forme

Re tbft,

non tu ne t'es pas planté, c'est ok!

Merci encore pour ton aide.

Good Week 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #10

Re : Copier sans mise en forme

Ooooopppsss! Encore une chose.

Comment vider les celulles une fois qu'on a saisi?

Sorry!

A+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2011

• #11

Re : Copier sans mise en forme

Euh

Question con: quelle cellules doit t'on vider????

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #12

Re : Copier sans mise en forme

La F7 et la F9 de la feuille Renseignements.

A+ 😎

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2011

• #13

Re : Copier sans mise en forme

Bonsoir

Essaye cette version de fichier.

Dis moi ce que tu en pense.

 

Pièces jointes

• Interdire les doublons-1.xls

  56 KB · Affichages: 47

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Novembre 2011

• #14

Re : Copier sans mise en forme

Super tbft,

c'est tout à fait ça! 😉

Très bonne nuit et bon weekend. 😎

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 12 Novembre 2011

• #15

Re : Copier sans mise en forme

COOL

Content d'avoir put t'aider..
N'hésite pas à m'envoyer des messages.

Bon week end à toi

 

Vote positif 0 Vote négatif