Copier avec PasteSpecial, sans sélectionner de cellules

[degap05]

Bonjour,

Dans le fil suivant:
"Marco Desactiver Macro puis Reactiver" (oui Marco au lieu de macro),

Il est question du même problème que je rencontre.
J'ai préféré créer une nouvelle discussion, plus explicite.
Dans la discussion citée il y a une réponse de "bhbh" qui correspond, mais je ne sais pas l'adapter à ma macro.


Merci de votre aide.

 

[kjin]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonjour,
C'est peu explicite quant au pb rencontré
Le lien vers le fil en question serait bienvenu plutôt que de nous laisser chercher
A+
kjin

 

[skoobi]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonjour kjin,
Re degap05,

d'autant plus que j'ai répondu au fil en question....

 

[kjin]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

re,
je viens de retrouver le fil
Si j'ai compris, essaies peut-être comme ceci

'....
With ActiveSheet.Range("A1:L43")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'colle les valeurs
End With
'....

Ce qui à priori revient au même que

'....
With ActiveSheet
.Range("A1:L43") = .Range("A1:L43").Value
End With
'....

Edit: Bonjour skoobi 🙂
A+
kjin

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonjour kjin, skoobi,


Je pense que vous avez répondu tous deux à mon problème.
J'essaie aussitôt.

Merci.

Salut

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir le forum, kjin, skoobi,

Je viens d'essayer. Vos 2 solutions fonctionnent, sauf que à l'arrivée le code est dans la feuille transmise 😕

Merci.

A+

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir le forum, kjin, skoobi,

J'ai eu des préconisations de solutions, mais sans résultat complet.

A savoir que les solutions envoi bien la feuille active, mais le code reste à l'intérieur. Pourtant dans ma macro originale le code n'était pas transmis ?

Peut-être une autre voie ?

Merci.

 

[kjin]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir,
Et si tu nous expliquais ce que tu souhaites et où est le pb, parce que pour ma part, je ne vois pas le rapport avec le sujet du fil ?!
A+
kjin

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir kjin,

Dans mon fichier de travail, j'ai la macro suivante (qui fonctionne):

Sub ColorDecolor(Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
Application.EnableEvents = False
Dim Lig, Couleur As Long, x As String
Dim C As Range, Plage As Range
Lig = Target.Row
'coloration de la ligne en cours
For Each C In Target
If C.Column > 2 And C.Column < 13 And C.Value <> "" Then
Range("B" & Lig).Value = "x"
Lig = C.Row
Set Plage = Range(Cells(Lig, "B"), Cells(Lig, "L"))
Plage.Interior.ColorIndex = 20
End If
'décoloration
If C.Column = 2 And C.Value = "" Then
Lig = C.Row
Set Plage = Range(Cells(Lig, "B"), Cells(Lig, "L"))
Plage.Interior.ColorIndex = 0
End If
Next
Application.EnableEvents = True
End Sub

Je désire envoyer par messagerie la feuille active, sans code, sans bouton.
Il semblerait que ce soit "select" qui pose problème. D'ou recherche d'une autre solution.

Merci.

 

[kjin]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Re,
Bon, eh bé on est pas arrivé !
Ce serait-y compliqué de simplifier ton fichier et de le joindre avec les lignes de codes !?
Tu dis vouloir envoyer la feuille active mais dans ta macro je vois que c'est le classeur entier dont il s'agit....
Tu fais un copier/coller des cellules sur elles-même, j'en déduits qu'elles doivent contenir des formules à la base (trop fort)...
Où donc est le bouton qui doit disparaître...
En attendant...
A+
kjin

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir,

Le code envoi mail est peut être totalement erroné.

Il s'agit d'envoyer soit la feuille active ou la plage A1:L43, sans code sans bouton. Uniquement les valeurs en cellules.

Merci de ta patience et de ton aide.

 

[kjin]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir,
Essaies comme ceci

Sub EnvoiFeuilleMail()
Dim VBC As Object
    ActiveSheet.Copy
    
    With ActiveWorkbook.VBProject
        For Each VBC In .VBComponents
            If VBC.Type = 100 Then
                With VBC.CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                .VBComponents.Remove VBC
            End If
        Next VBC
    End With
    
    With ActiveSheet
        .Shapes(1).Delete
        .Range("A1:L47").Value = .Range("A1:L47").Value
    End With
    
    ActiveWorkbook.SendMail "Degap@Degap.fr", "test" 'A adapter
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

A+
kjin

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonsoir,

Je te remercie.

Ton code fonctionne parfaitement.

Malgré mes informations incomplètes tu as résolu mon problème.🙂

Merci encore.

 

[degap05]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonjour, le forum, kjin,

J'espère que tu es présent sur le forum🙂,

En exécutant le code sur mon fichier de travail, il y a un blocage que je ne m'explique pas.
Lancer la macro sur la feuille "201".

Peux-tu regarder ?

Merci.

 

[kjin]

Re : Copier avec PasteSpecial, sans sélectionner de cellules

Bonjour,

Private Sub Worksheet_Activate()
Range("M12").Select
End Sub

Ce sont ces 3 lignes dans la feuille "201" qui mettent la zone, comme tu as des macros événementielles qui sont liées (activate, select, change...😱)
Ces 3 lignes n'étant pas d'un intérêt capital (d'autant qu'il n'y a rien en M12), il suffit de les supprimmer
Profites-en pour supprimer la colonne M lors de la copie en ajoutant la ligne bleue

With ActiveSheet
[COLOR="Blue"]    .Columns(13).Delete[/COLOR]
    .Shapes(1).Delete
    .Range("A1:L43").Value = .Range("A1:L43").Value
End With

A+
kjin