Récupérer le nom d'une feuille inputbox
Résolu/Fermé
A voir également:
- Récupérer le nom d'une feuille inputbox
- Compte piraté facebook comment le recuperer - Guide
- Recuperer video youtube - Guide
- Recuperer message whatsapp - Guide
- Comment récupérer une adresse mail - Guide
- Nom de l'adresse - Forum Réseaux sociaux
3 réponses
yg_be
Messages postés
22190
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
8 décembre 2023
1 413
4 janv. 2021 à 10:42
4 janv. 2021 à 10:42
bonjour,
peut-être:
peut-être:
option explicit ' ... dim Deletedata as string, onglet as worksheet DeleteData = InputBox("Sélectionnez une feuille Valeur Min", "ValeurMin") set onglet = Sheets(DeleteData) onglet.[a1]="ceci est l'onglet "+onglet.name
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 733
4 janv. 2021 à 10:46
4 janv. 2021 à 10:46
Bonjour,
Voici :
Voici :
Option Explicit Sub Essai() Dim iVar As Variant, MaFeuille As Worksheet iVar = InputBox("Saisir le nom de la feuille Valeur Min", "ValeurMin") If StrPtr(iVar) = 0 Then MsgBox "Vous avez annulé", vbCritical + vbOKOnly, "Annulation utilisateur" ElseIf iVar = vbNullString Then MsgBox "Aucune saisie", vbCritical + vbOKOnly, "Pas de saisie utilisateur" Else Set MaFeuille = getSheetByName(CStr(iVar), ThisWorkbook) If Not MaFeuille Is Nothing Then MsgBox MaFeuille.Name End If End If End Sub Function getSheetByName(Name As String, Optional Wb As Workbook) As Object 'Pierre Fauconnier 'https://www.developpez.net/forums/blogs/27262-pierre-fauconnier/b8231/vba-excel-verifier-quune-feuille-existe-classeur-trouver-feuille-nom-classeur/ Dim sh As Object, Counter As Long If Wb Is Nothing Then Set Wb = ActiveWorkbook Counter = 1 Do While Counter <= Wb.Sheets.Count And getSheetByName Is Nothing If StrComp(Wb.Sheets(Counter).Name, Name, vbTextCompare) = 0 Then Set getSheetByName = Wb.Sheets(Counter) Counter = Counter + 1 Loop End Function