Menu

VBA_Erreur méthode Select

- - Dernière réponse : Mike-31
Messages postés
16862
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 février 2019
- 11 févr. 2019 à 18:44
Bonjour
Je suis débutante en VBA et j'ai une erreur méthode Select sur le code ci-dessous. Merci d'avance pour votre aide !!!

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("C4")) Is Nothing Then
Rows("4:4").Select
Selection.Copy
Sheets("Feuil3").Select
Rows("5:5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

End Sub
Afficher la suite 

Votre réponse

1 réponse

Messages postés
16862
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 février 2019
5037
0
Merci
Bonsoir,

place ce bout de code dans un Module
Sub Macro2()
Rows("4:4").Copy
Sheets("Feuil3").Select
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

et dans les propriétés de ta feuille colle ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C4")) Is Nothing Then
Call Macro2
End If
End Sub

Commenter la réponse de Mike-31