[Résolu] Copier sans mise en forme

[Lone-wolf]

Bonsoir le Forum,

J'ai trouvé ce code de Pierrot, pour copier des données d'une feuille à une autre, à la suite. Le problème c'est qu'il copie aussi la mise en forme des celulles de la feuille mère.

La feuille mère est Enregistrements, l'autre est Poids.
Attention, dans la feuille Poids il y a des formules sous Numéro et Date !

C'est possible un coup de main? Merci d'avance.


A+ 😎

 

[david84]

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+

 

[Lone-wolf]

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+ 😎

 

[tbft]

Re : Copier sans mise en forme

Bonjour

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

 

[Lone-wolf]

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+ 😎

 

[tbft]

Re : Copier sans mise en forme

Re

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

 

[Lone-wolf]

Re : Copier sans mise en forme

Re tbft,

quel fichier modifié???

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


A+ 😎

 

[tbft]

Re : Copier sans mise en forme

Bonsoir

As tu essayé ceci:

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

 

[Lone-wolf]

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 😎

 

[Lone-wolf]

Re : Copier sans mise en forme

Ooooopppsss! Encore une chose.

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

Sorry!

A+

 

[tbft]

Re : Copier sans mise en forme

Euh

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

 

[Lone-wolf]

Re : Copier sans mise en forme

La F7 et la F9 de la feuille Renseignements.

A+ 😎

 

[tbft]

Re : Copier sans mise en forme

Bonsoir

Essaye cette version de fichier.

Dis moi ce que tu en pense.

 

[Lone-wolf]

Re : Copier sans mise en forme

Super tbft,

c'est tout à fait ça! 😉

Très bonne nuit et bon weekend. 😎

 

[tbft]

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