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

Fermé

Phil - 29 avril 2019 à 14:48
Phil - 29 avril 2019 à 19:51

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

A voir également:

Copier une zone de texte dans une autre feuil quand celle ci est active
Zone telechargement - Guide
Copier une vidéo youtube - Guide
Copier texte pdf - Guide
Combien y a-t-il de bateaux dans la zone de 1500 pixels de large et 500 pixels de haut à partir du coin supérieur gauche de cette image ? - Forum Graphisme
Ci card ✓ - Forum TV & Vidéo

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38156 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 4 mai 2024 4 655
29 avril 2019 à 15:02

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

Réponse 2 / 3

Phil
29 avril 2019 à 17:59

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

jordane45 Messages postés 38156 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 4 mai 2024 4 655
29 avril 2019 à 18:01

Non
il faut le faire sur deux lignes

Sheets("Devis").Activate
Sheets("Devis").Shapes.Range(Array("Auto")).Select

Réponse 3 / 3

Phil
29 avril 2019 à 19:51

desolé jordane mais ça ne fonctionne pas !

Discussions similaires

Dessiner avec son clavier et avec des lettres

Formule Excel : "SI" une cellule contient un mot, alors ?

Vidéo : comment changer sa zone géographique ?

copie de texte

Message d'erreur "Pas de module CI"

Discussions similaires

Newsletters