Bonjour le Forum,
Depuis un petit moment je bloque sur un code simple que j’ai écrit sous plusieurs formes avec des variables, sans etc, tous mes codes plantent et je ne vois pas.
Le but est simple, en E1, j’ai une liste de validation avec Oui et Non
En F1 une liste de validation Feuil2, Feuil3 etc …
Lorsque je sélectionne Oui en E1
La première cellule non vide colonne A est sélectionnée et en situation Copier
La feuille sélectionnée en F1 s’active normalement, ensuite il m’est impossible en VBA de sélectionner une cellule ou d’utiliser un code pour sélectionner la première cellule non vide de la page activée. Ci-dessous mon code épuré
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E1") = "Oui" Then
Range("A200").End(xlUp).Copy
Sheets(Sheets("Feuil1").Range("F1").Value).Activate
Range("A200").End(xlUp).Select
ActiveSheet.Paste
End If
End Sub
Merci à tous ceux qui prendrons le temps de regarder mon problème
Depuis un petit moment je bloque sur un code simple que j’ai écrit sous plusieurs formes avec des variables, sans etc, tous mes codes plantent et je ne vois pas.
Le but est simple, en E1, j’ai une liste de validation avec Oui et Non
En F1 une liste de validation Feuil2, Feuil3 etc …
Lorsque je sélectionne Oui en E1
La première cellule non vide colonne A est sélectionnée et en situation Copier
La feuille sélectionnée en F1 s’active normalement, ensuite il m’est impossible en VBA de sélectionner une cellule ou d’utiliser un code pour sélectionner la première cellule non vide de la page activée. Ci-dessous mon code épuré
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E1") = "Oui" Then
Range("A200").End(xlUp).Copy
Sheets(Sheets("Feuil1").Range("F1").Value).Activate
Range("A200").End(xlUp).Select
ActiveSheet.Paste
End If
End Sub
Merci à tous ceux qui prendrons le temps de regarder mon problème
Dernière édition: