Sélectionner une cellule après activation automatique d'une feuille

  • Initiateur de la discussion Initiateur de la discussion Micke-31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Micke-31

XLDnaute Occasionnel
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
 
Dernière édition:
Re : Sélectionner une cellule après activation automatique d'une feuille

Bonjour,

Je ne sais pas vraiment ce que tu veux faire. Sans ton fichier, impossible de comprendre ton besoin. Par contre ce qui n'est pas normal dans ton code, tu copies quelque chose mais tu colles nullpart. C'est normal que ça plante.
 
Re : Sélectionner une cellule après activation automatique d'une feuille

Bonjour,


Merci à vous, voila un exemple très épuré joint
En fait j'aimerai mettre à la suite dans une feuille préselectionnée en F1

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
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If
End Sub

A+
 

Pièces jointes

Dernière édition:
Re : Sélectionner une cellule après activation automatique d'une feuille

salut mike,

regarde ca!


je c po si g bien saisi ta demande mais....

le petit bout de code ds le module 1 te permet de coller dans la feuille de ton choix ds la liste active!

si c pas ca alors il faut bien détaillé ta demande


tcho
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour