macro direct ok, par bouton bloque

  • Initiateur de la discussion Initiateur de la discussion phil69
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

phil69

XLDnaute Occasionnel
bonjour le forum


j'ai une macro qui fonctionne bien si je la déclanche en direct(outil/macro)

par contre si je l'integre dans une commandebouton elle bloque
macro direct ok
Sub commande_ancv_exterieur()
Range("T6").Value = Range("B2").Value
Range("V6").Value = Range("O2").Value
Range("W6").Value = Range("O3").Value
Range("T6:W6").Select
Selection.Copy
Sheets("ancvexterieur").Select
Range("A200").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("saisie").Select
Range("h2").Select
End Sub
macro commandebouton
Private Sub CommandButton4_Click()
Range("T6").Value = Range("B2").Value
Range("V6").Value = Range("O2").Value
Range("W6").Value = Range("O3").Value
Range("T6:W6").Select
Selection.Copy
Sheets("ancvexterieur").Select
Range("A200").End(xlUp).Offset(1, 0).Select (elle bloque sur cette ligne)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("saisie").Select
Range("h2").Select
End Sub

merci

phil69
 
Re : macro direct ok, par bouton bloque

Bonjour phil69,

d'après ce que je vois, ton code se trouve dans une Feuille.
La sélection (ou activation) d'une autre feuille dans le code d'une feuille pose parfois problème.
le mieux serait de mettre la macro commande_ancv_exterieur dans un module et dans la feuille en question de mettre :

Code:
Private Sub CommandButton4_Click()
commande_ancv_exterieur 
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
597
Réponses
10
Affichages
792
Réponses
2
Affichages
400
Réponses
17
Affichages
1 K
Retour