Discussion :

[pilounet54]

bonjour je souhaite rajouter ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.PasteSpecial Paste:=xlPasteValues

mais cela ne fontionne pas sur ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each c In Range("plagevaleur")
        If c.Text = "inférieur" Then
            Sheets("Bilan").Rows(c.Row).Copy
'
            Sheets("inférieur").Activate
            Sheets("inférieur").Range("A" & CStr(Sheets("inférieur").UsedRange.Row + Sheets("inférieur").UsedRange.Rows.Count)).Select
            Sheets("inférieur").Paste
        End If
    Next

es que vous pouvez m'aider" je souhaite pas copier les formules"

[Jean-Philippe André]

salut,

un exemple de pastespecial dans la
http://excel.developpez.com/faq/inde...t#CopieComment

l'adaptation à ton cas est toute trouvée

[mercatog]

Pas satisfait par le sujet ici?

[pilounet54]

Pas satisfait par le sujet ici?

si je mets le code dans un classeur vide cela fonctionne mais si je le mets "dans mon usine" cela bug a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues

je sais pas et pour l'instant pas comprendre

[mercatog]

Et qu'est ce que ton classeur a de particulier? Quel est le message d'erreur? As tu des cellules fusionnées?

[pilounet54]

erreur d'exécution 1004 la methode pastespecial de la classe range a echoué
pas de cellule fusionne
pour l'intant je doit avoir 60 pages de code mais rien de particulier

[mercatog]

Tu peux écrire la partie du code où l'erreur se produit (je dis bien la partie du code et non seulement la ligne)

Utilise tu les Select/Activate?

Ou bien ta feuille est protégée

[pilounet54]

jai des colonnes protege
je suis sur un bouton

merci pour ton experience

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
''''''''''''''protection plage''''''''''''''''''
                If Not Intersect(Target, Range("plageMNOPQ")) Is Nothing Then
                    MsgBox "acces interdit pour tout le monde"
                    Application.EnableEvents = False
                    Range("A1").Select
                    Application.EnableEvents = True
                End If

[mercatog]

Alors on va faire des questions/réponses illimités?
Si ta feuille de destination est protégée, tu ne peux pas y coller des données.
Est ce que manuellement tu peux copier/coller entre tes feuilles?

Si le code fonctionne dans un classeur vierge, tu dois diagnostiquer ce qu'a ton classeur de particulier.

[pilounet54]

je viens de rajouter dans le code ceci et sa fonctionne en te remerciant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Application.CutCopyMode = False

meerci bonne soirée