VBA_Erreur méthode Select
Skaw
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 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
A voir également:
- La méthode select de la classe range a échoué
- Please select boot device ✓ - Forum BIOS
- Méthode Select de la classe Range ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection - Forum VB / VBA
- Input signal out of range - Forum Ecran
- 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 Réseaux sociaux
1 réponse
Bonsoir,
place ce bout de code dans un Module
et dans les propriétés de ta feuille colle ce code
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
