Copier une zone de texte dans une autre feuil quand celle ci est active Fermé

Question

Bonjour Forum,

un petit souci de code ci dessous 
celui ci fonctionne très bien des lors que je me trouve sur la feuil "Devis"

mais je voudrais qu'il fonctionne quand je suis sur la feuil "FACTURE" à chaque fois ça bug !

le bouton CommandButton4_Click() est placé dans un userform.
merci pour votre aide


Private Sub CommandButton4_Click()

Dim Sh As Shape

ActiveSheet.Shapes.Range(Array("Auto")).Select
    
    Sheets.Shapes("Devis").Copy
    Selection.Copy
    Sheets("FACTURE").Select
    Range("B53").Select
    ActiveSheet.Paste

Range("i1").Select
End Sub


Configuration: Windows / Firefox 66.0

jordane45 · Answer

Bonjour,

Tu dis que ça ne fonctionne pas quand tu es sur une autre feuille.
Ne serait-ce pas parce que tu sélectionnes les cellules dans la feuille "active" ?

ActiveSheet.
 
Il faudrait donc que tu commences par activer la feuille devis

Sheets("Devis").Activate

Phil · Answer

Bonjour jordane & forum,
Merci pour ta réponse
réponse tardive car panne électrique .

effectivement ça fonctionne quand la feuil devis est active.
mais ce n'est pas ce que je veux.
que j'active ou non la feuil devis n'y change rien.
elle active ici non ?  lors de la selection de la zone texte
Sheets("Devis").Activate.Shapes.Range(Array("Auto")).Select

Phil · Answer

desolé jordane mais ça ne fonctionne pas !

Copier une zone de texte dans une autre feuil quand celle ci est active

3 réponses

Discussions similaires