VBA_Erreur méthode Select

Fermé

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

La méthode select de la classe range a échoué
Reboot and select proper boot device - Forum Windows
Classez ces fichiers de la plus petite taille (1) à la plus grande (4). - Forum Bases de données
Dans le code de la page, modifiez la couleur de fond de la classe .pix. un code de 4 chiffres doit apparaître dans la grille. lequel ? ✓ - Forum Programmation
Telechargement du firmware a echoue - Forum Box et Streaming vidéo
L'accès a la carte sd a échoué 3ds - Forum Jeux vidéo

1 réponse

Réponse 1 / 1

Mike-31 Messages postés 18335 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 septembre 2024 5 095
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

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

input signal out of range

Aide Please select boot device

Discussions similaires

Newsletters