XL 2010 Copier > coller uniquement valeur + 33

[Usine à gaz]

Bonjour à toutes et à tous,

Je reviens sur un sujet que je n'ai jamais réussi à résoudre et qui me pose vraiment un problème.
Dans notre boulot, nous copions, dans notre classeur excel, des informations sur le net :
- des numéros de téléphone,
- des textes,

Le souci est que nous avons besoin de coller sans modifier les formats des cellules de destinations.
Bien évidemment, vous me direz qu'il suffit de sélectionner "valeur" en cliquant sur coller.
C'est bien vrai

Mais voilà, cette tâche est très répétitive et les deux dames avec lesquelles je travaille se trompent souvent et voilà les formats des cellules modifiés (format et protection) .... et comme les feuilles sont protégées, cela m'oblige à chaque fois à déprotéger et re-formater mes cellules.

J'ai un code de je ne sais plus qui que je remercie au passage ... mais que je n'arrive pas à faire fonctionner.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application 'oblige coller uniquement valeur
  If .CutCopyMode Then
    .EnableEvents = False
    .Undo
    Selection.PasteSpecial xlPasteValues
    .OnUndo "", ""
    .OnRepeat "", ""
    .EnableEvents = True
  End If
End With
End Sub

Je précise que les informations sur le net

Bien sûr, j'ai encore besoin de votre aide précieuse et je vous en remercie sincèrement
Je joins un classeur test.

En vous souhaitant une très bonne fin de journée,
Amicalement,
Lionel,

 

[herve62]

Bonsoir
essaye de mettre cette SELEC :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j'ai fait un essai , cela ne modifie en Rien ta cellule d'arrivée ( format , coul fond, coul police ...)

 

[Usine à gaz]

Bonsoir Herve62,

Merci pour cette réponse si rapide. je teste et je te dis

 

[Usine à gaz]

Bonsoir
essaye de mettre cette SELEC :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j'ai fait un essai , cela ne modifie en Rien ta cellule d'arrivée ( format , coul fond, coul police ...)

Re-Bonsoir,

je ne sais pas où mettre ton code où quoi remplacer.
Important : ce n'est pas un copier d'excel à excel mais un copier des infos sur le net.

 

[belkacem_64]

Salut

essai

Sub iiPast()

Application.ScreenUpdating = False

With ActiveSheet
R = Val(.Cells(Rows.Count, 5).End(xlUp).Row)
.Unprotect ""
.Range("E9").Select
.PasteSpecial xlPasteValues

With Selection​

.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom

End With​

.Columns("E:E").EntireColumn.AutoFit
.Rows("9:" & R).EntireRow.AutoFit
.Protect ""
End With​

Application.ScreenUpdating = True

End Sub

 

[Usine à gaz]

Bonsoir Belkacem_64,
Merci pour ton code ... je teste et je reviens

 

[Usine à gaz]

Je mets ton code dans le code de la feuille ?

 

[herve62]

je viens de faire un test avec la macro double clic
cela a l'air de fonctionner , j'ai copié un bout de texte de ton message du forum > tu vas ensuite dans la zone de E9 à 20 ( modifiable)
tu double-Click

 

[belkacem_64]

voila le fichier

 

[Usine à gaz]

je viens de faire un test avec la macro double clic
cela a l'air de fonctionner , j'ai copié un bout de texte de ton message du forum > tu vas ensuite dans la zone de E9 à 20 ( modifiable)
tu double-Click

Bonsoir,
Merci pour cette nouvelle réponse.
J'ai testé mais je n'y arrive pas (voir classeur joint)
Le copier/coller a modifié les formats.
Amicalement,
Lionel,

 

[herve62]

Qu'ai je dit : Copié/collé ... ? NON
tu copies tes données de ou tu veux , et dans ta zone jaune : JUSTE DOUBLE CLICK
regarde le code tu comprendras

 

[Usine à gaz]

Bonsoir Herve62,

Effectivement, je n'avais pas compris ton code.
merci de m'avoir dirigé ..... je l'ai compris et ça marche

un grand merci à toi ainsi qu'à belkacem_64.
Amicalement,
Lionel,

 

[Usine à gaz]

Bonjour Heve62,
Bonjour à toutes et à tous,

Encore merci Herve pour ces codes qui fonctionnent parfaitement.
De plus, ça me solutionne un autre souci de copie.

En espérant ne pas abuser, j'ai encore deux soucis :
- Si valeur copiée est un numéro de téléphone, ton code peut-il ajouter le contenu de la cellule G7 devant ce numéro et ne pas le faire s'il s'agit d'un texte ?
- J'essaie également de coder pour que les espaces ne soient pas enlevés si c'est un texte qui est collé et je n'y arrive pas,

(Classeur joint)
Avec mes remerciements,
Amicalement,
Lionel,