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
A voir également:
- La méthode select de la classe range a échoué
- L'accès a la carte sd a échoué 3ds - Forum Jeux vidéo
- La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
- Méthode Select de la classe Range ✓ - Forum VB / VBA
- Input signal out of range - Forum Ecran
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
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
