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

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:

Raja

XLDnaute Accro
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.
 

Micke-31

XLDnaute Occasionnel
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

  • Déplace.xls
    31.5 KB · Affichages: 76
Dernière édition:

kikouyou

XLDnaute Junior
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

  • Copie de Déplace.xls
    40 KB · Affichages: 62

Discussions similaires

Statistiques des forums

Discussions
312 359
Messages
2 087 589
Membres
103 603
dernier inscrit
totoro94