VBA_Erreur méthode Select

Fermé

Skaw - 11 févr. 2019 à 15:56
Mike-31 Messages postés 18355 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 janvier 2025 - 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

A voir également:

1 réponse

Réponse 1 / 1

Mike-31 Messages postés 18355 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 janvier 2025 5 111
11 févr. 2019 à 18:44

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

Discussions similaires

VBA Methode range a échouée

"L'indice n'appartient à la sélection" + VBA

input signal out of range

Erreur 1004 : Méthode 'Range' de l'objet '_Worksheet' a échoué

Aide Please select boot device