copier coller spécial qui pose problème

[pascal21]

bonjour à tous
j'ai un tableau avec certaines cellules qui sont fusionnées
avec l'enregistreur de macro
je tente de copier/coller sur une nouvelle feuille ce tableau
donc je commence par un collage spécial format
pas de problème
ensuite je fais un collage spécial valeurs
et là ça me mets que ça ne peut pas modifier les cellules fusionnées (??????)
qu'est-ce que je ne vois pas qui est tellement simplissime que je ne le voit pas
merci

 

[dionys0s]

Re : copier coller spécial qui pose problème

Bonjour Pascal.

Il me semble qu'il faut faire l'inverse.
d'abord les valeurs, puis le format.

Bonne journée ^^

 

[Efgé]

Re : copier coller spécial qui pose problème

Bonjour pascal21, dionys0s,
Juste une idée en passant par ici. Si tu copie et le format et les valeurs, pourquoi ne pas copier ta feuille d'origine?
Cordialement

 

[dionys0s]

Re : copier coller spécial qui pose problème

Bonjour Efgé

Bonjour pascal21, dionys0s,
Juste une idée en passant par ici. Si tu copie et le format et les valeurs, pourquoi ne pas copier ta feuille d'origine?
Cordialement

Pour supprimer les formules et alléger le fichier peut-être ?

 

[Efgé]

Re : copier coller spécial qui pose problème

Re
Je pensai à ça:

[COLOR=blue]Sub[/COLOR] Test()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
[COLOR=blue]With[/COLOR] Sheets(Sheets.Count).UsedRange
    .Copy
    .PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = [COLOR=blue]False[/COLOR]
    .Cells(1, 1).Select
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[pascal21]

Re : copier coller spécial qui pose problème

bonjour à tous
c'est ce que je pensais, tellement simplissime que je ne le vois pas
fallait bien copier les valeurs et le format ensuite
merci à tous

 

[dionys0s]

Re : copier coller spécial qui pose problème

Yeah ! J'ai aidé un Barbatruc !
😎

Bonne journée à tous ^^

 

[pascal21]

Re : copier coller spécial qui pose problème

re
tu sais dionysos je suis devenu Barbatruc surtout grâce aux nombreuses questions que j'ai pu poser depuis mon inscription
mais ça n'enlève rien à ton mérite d'avoir ciblé le problème tout de suite
ça "con" mais je n'y avais pas pensé
quoi qu'il en soit, j'ai maintenant une autre question
j'aimerais inclure dans ces nouvelles feuilles la possibilité que l'onglet prenne la valeur de la cellule B3
le simple

name =range("B3").value

après le code de copie, semble inactif

 

[dionys0s]

Re : copier coller spécial qui pose problème

Re

Je pense que comme ceci ça devrait le faire :

For i = 1 to Sheets.Count

Sheets(i).Select

Dim Nom as String

NouveauNom = Range("B3").Value
ActiveSheet.Name = NouveauNom

next i

Non testé.

Good day !