VBA_Erreur méthode Select
Skaw
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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
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
1 réponse
-
Bonsoir,
place ce bout de code dans un ModuleSub 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
