Copier une zone de texte dans une autre feuil quand celle ci est active
Phil
-
Phil -
Phil -
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
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
3 réponses
-
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 devisSheets("Devis").Activate
-
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 -
