Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

inputbox avec plage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jeffe
  • 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 !

S'inscrire

jeffe

XLDnaute Impliqué
bonjour le forum,
grâce à votre aide, j'ai réalisé un fichier qui fonctionne très bien, mais je souhaite l’améliorer un peut pour être utilisé par d'autres personnes.
je voudrais, par l’intermédiaire de 2 input box, que l'utilisateur du fichier puisse renseigner 2 plages de travail pour que la macro s’exécute.sur les bonnes plages
Pour le moment, ces plages sont écrites en dur dans la macro, je voudrais les rendre interactives.
merci
 

Pièces jointes

Trier par date Trier par votes
Re : inputbox avec plage

Bonsoir jeffe,

Une piste dans le code suivant:
Code: 
Sub Test()
Dim xrg As Range, s As String

Do
  Set xrg = Nothing
  On Error Resume Next
  Set xrg = Application.InputBox("Sélectionner une plage de cellule", Type:=8)
  On Error GoTo 0
Loop Until Not xrg Is Nothing

s = "La plage est sur la feuille '" & xrg.Parent.Name & "'" & vbLf & "Elle comporte "
s = s & xrg.Areas.Count & " zone(s) pour un total de " & xrg.Count
s = s & " cellules()." & vbLf & "L'adresse de la plage est: " & vbLf & xrg.Address(0, 0)
MsgBox s

End Sub

ou un code qui accepte l'annulation de la saisie :
Code: 
Sub Test2()
Dim xrg As Range, s As String

Set xrg = Nothing
On Error Resume Next
Set xrg = Application.InputBox("Sélectionner une plage de cellule", Type:=8)
On Error GoTo 0

If xrg Is Nothing Then
  MsgBox "Aucune zone choisie -> abandon"
  Exit Sub
Else
  s = "La plage est sur la feuille '" & xrg.Parent.Name & "'" & vbLf & "Elle comporte "
  s = s & xrg.Areas.Count & " zone(s) pour un total de " & xrg.Count
  s = s & " cellules()." & vbLf & "L'adresse de la plage est: " & vbLf & xrg.Address(0, 0)
  MsgBox s
End If

End Sub

Attention ! : l'utilisateur peut sélectionner une plage quelconque de cellules (contigües ou non - plage à plusieurs zones) y compris sur une autre feuille du classeur!. Ce sera à vous de vérifier que la plage sélectionnée est une plage correcte par rapport à ce que vous désirez pour votre macro.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : inputbox avec plage

Bonjour mapomme, le forum,
je viens de regarder ceque tu me proposes, c'est nikel, mais je n'arrive pas à intégrer comme je le voudrais: comment récupérer juste le numéro de colonne de la plage sélectionnée?
si je selectionne K17 à M32, je voudrais utiliser juste le K et le M pour redefinir ma plage
merci
 
Vote positif 0 Vote négatif
Re : inputbox avec plage

hello, je reviens après quelques tests infructueux, j'ai utilisé Rng.Column, je récupère bien le num de colonne, mais pas la lettre, dans mon cas, je n'aurai jamais plus de 20 colonnes possibles à sélectionner.
merci
 
Vote positif 0 Vote négatif
Re : inputbox avec plage

bonjour ,

Selon le trés bon code de MaPomme que je salue au passage ,

pour avoir par exemple 4 si l'on à sélectionné la colonne D, il suffit de faire :

Sub Test2()
Dim xrg As Range, s As String

Set xrg = Nothing
On Error Resume Next
Set xrg = Application.InputBox("Sélectionner une plage de cellule", Type:=8)
On Error GoTo 0

If xrg Is Nothing Then
MsgBox "Aucune zone choisie -> abandon"
Exit Sub
Else
s = xrg.Column
MsgBox s
End If

End Sub
 
Vote positif 0 Vote négatif
Re : inputbox avec plage

bien le bonjour,
merci, mais justement, le .column me donne le chiffre mais pas la lettre, donc je cherche à récupérer la lettre, ou adapter me macro pour utiliser le chiffre et pas la lettre. voici le petit bout de code que je voudrais rendre selectionable:
[ Range("K" & Lig & "😛" & Lig).ClearContents ' efface le contenu de la ligne selectionnée de la colone "Op1 àOp6"
Range("K" & Lig & "😛" & Lig).Interior.ColorIndex = xlNone]
je m'y perd avec les cells, range...
 
Vote positif 0 Vote négatif
Re : inputbox avec plage

Ouaiiii, merci de ton aide, je viens juste de poser ce que tu m'as répondu, nickel, je vais essayer d'aller vers mon résultat final.
je reviendrai peut être après mes prochains essais la semaine prochaine.
merci et bon WE à vous tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
201
AD74
A
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
473
tnion
T
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
825
AtTheOne
C
  • Résolu(e)
XL 2021 Userform impression + choix des feuilles
Réponses
8
Affichages
650
candido57
C
C
  • Question Question
XL 2016 Création d'un fichier Excel de planification d'équipe avec contraintes
Réponses
8
Affichages
929
fanfan38
O
  • Question Question
XL 2019 VBA
Réponses
10
Affichages
1 K
TooFatBoy
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
780
arnoldbrice19
A
K
  • Résolu(e)
Microsoft 365 Création d'une occurrence avec lignes vides
Réponses
8
Affichages
833
AtTheOne
T
  • Question Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
846
ThierryP
T
  • Question Question
XL 2016 Faire la synthese de plusieurs fichiers dans un seul
2
Réponses
18
Affichages
2 K
job75
D
  • Question Question
Remplacement plages de noms (autres que manuellement)
Réponses
4
Affichages
884
dany44
D
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
963
Dock91
D
C
  • Question Question
XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé
Réponses
12
Affichages
1 K
Calizarine
C
G
  • Résolu(e)
XL 2019 [Résolu] VBA inputbox sélection d'une plage de cellulle
Réponses
2
Affichages
1 K
grodep
G
EXCEL :: Effectuer des regroupements avec agrégations de données :: GROUPER.PAR
Réponses
1
Affichages
719
oguruma
1
  • Résolu(e)
Microsoft 365 effacement conditionnel d'une plage de cellules
Réponses
5
Affichages
551
1636alain
1
P
  • Question Question
Microsoft 365 Automatisation avec création de fichier et d'onglets en fonction des valeurs
2
Réponses
15
Affichages
2 K
pene
P
  • Résolu(e)
XL 2010 [RESOLU]Adapter Dimensions Shapes d'une plage
Réponses
7
Affichages
673
cathodique
L
  • Question Question
XL 2016 Recherche de partie de mot dans les cellules d'un tableau et extractions des résultats
2
Réponses
29
Affichages
2 K
Lorenzini
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…