Selectionner un onglet par inputbox

Résolu/Fermé

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 29 déc. 2017 à 09:56
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 29 déc. 2017 à 14:09

Salut les amis
j'essaie de créer une macro qui pour but d'importer des données d'un autre classeur vers ma feuille "cant" mais le classeur qui se trouve dans mon bureau a plusieurs feuille : A1,A2 ,A3 ,A4 .........
je veux ajouter une inputbox qui me propose le nom de la feuille ( a la place du code : Sheets("A1").Activate) au lieu de modifier manuellement le code de A1 à A2 ............

voila la macro

Sub importA1()
Application.ScreenUpdating = False
Dim Fich As String, cd,
Fich = Application.GetOpenFilename
Workbooks.Open (Fich)

Sheets("A1").Activate

cd = ActiveSheet.Range("a1:AB48")
ActiveWorkbook.Close
Sheets("cant").Activate
Range("a1:AB48") = cd
End Sub

cordialement

A voir également:

Selectionner un onglet par inputbox
Rouvrir un onglet fermé - Guide
Onglet privé - Guide
Sélectionner texte pdf - Guide
Sélectionner une extension d'un fichier qui s'ouvre avec un traitement de texte - Guide
Fichier ODT avec Word : ouvrir, modifier, enregistrer - Guide

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
29 déc. 2017 à 10:22

Bonjour,

en ajoutant ce bout de code

Dim resultat As String
    resultat = InputBox("Texte ?", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
    If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
       Sheets(resultat).Activate
    End If

en début de ton code tu suspends le rafraichissement écran
Application.ScreenUpdating = False

avant ton End sub il faut le rétablir
Application.ScreenUpdating = True

déclare ta variable cd
Dim Fich As String, cd As Variant

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
29 déc. 2017 à 10:38

Merci Mike-31 le code marche très bien maintenant

Réponse 2 / 2

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
29 déc. 2017 à 14:09

Re,

Alors je passe le statut de la discussion en résolu
Bonne fin d'année

Discussions similaires

Onglet disposition Excel ne s'affiche pas

Edge ouvir les onglets avec Google moteur de recherche

Selection de toutes lignes contenant un mot

Zut, l'onglet a planté... !

Sélection de toutes les images d'un document d'un coup

Discussions similaires

Newsletters