Macro - ajout demande plage de recherche

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion plopla
  • 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
P

plopla

XLDnaute Nouveau
Bonjour,
Je vous écris car je suis confronté à un problème que je ne parviens pas a résoudre:

J'ai fait une macro pour remplir automatiquement des fiches de renseignements sur des produits. Ma première feuille a les informations concernant tous les produits et les feuilles suivantes sont les fiches (une fiche par feuille).

J'aimerais qu'au cours de l’exécution de la macro elle me demande dans quelle zone chercher les informations dont elle a besoin, notamment pour calculer le nombre de valeurs, la moyenne, le min, le max et l’écart type; et qu'elle me demande dans quelle ligne sont les informations dont elle a besoin pour le nom de l’élément, la quantité, la date 2 et la version.

J'ai joint le fichier contenant la macro et les données en question; je tiens à préciser que je suis pas expert en vba...

J'espère que vous pourrez m'aider,
Merci d'avance
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Macro - ajout demande plage de recherche

Bonjour ,

Voici une méthode avec inputbox

Code: 
Sub Selection_InputBox_Multi_Zones()
'Selection de plusieurs zones avec touche CTRL
Dim Adresse_Zone As String
Dim Zones As Range, Sous_Zone As Range
 
 On Error Resume Next
 Set Zones = _
        Application.InputBox("Selection d'une ou plusieurs plages avec la touche CTRL:", _
           "Multi_plage test", Selection.Address(0, 0), Type:=8)
    On Error GoTo 0
    If Zones Is Nothing Then Exit Sub
    For Each Sous_Zone In Zones.Areas
        Adresse_Zone = Adresse_Zone & Chr(10) & Sous_Zone.Rows.Count _
           & " dans ligne " & Sous_Zone.Address(0, 0)
    Next Sous_Zone
    MsgBox "Plage: " & Zones.Areas.Count & ", " & _
        "Lignes: " & Zones.Rows.Count & Adresse_Zone
End Sub
 
Vote positif 0 Vote négatif
Re : Macro - ajout demande plage de recherche

Bonjour,

Merci pour cette réponse, mais je ne parviens pas à la faire fonctionner. Probablement parce que je ne l’insère pas correctement dans ma macro.
Comment dois-je adapter ma macro pour rajouter l'inputbox ?

Merci beaucoup pour votre aide
 
Vote positif 0 Vote négatif
Re : Macro - ajout demande plage de recherche

Bonjour,
Merci pour le fichier.
J'ai modifié le code pour qu'il fonctionne sur n'importe quelle feuille et j'ai rajouté le code pour remplir les autres cases. Mais je ne parviens pas à faire fonctionner les fonctions de la moyenne, le min, le max et l’écart type et NB.
Pouvez vous me dire quelles modifications je dois faire svp

Merci d'avance

Code: 
Sub Exemple()
Dim phrase1 As String
Dim phrase2 As String
Dim phrase3 As String
Dim phrase4 As String
Dim phrase5 As String
Dim phrase6 As String
Dim Parametres As String
Dim strSheetName As String

strSheetName = ActiveSheet.Name
 phrase1 = "Choisir l'élément"
 phrase2 = "Choisir la date 1"
 phrase3 = "Choisir la version"
 phrase4 = "Choisir la date 2"
 phrase5 = "Choisir la quantité"
 phrase6 = "Choisir les valeurs"
 
 Sheets("Feuil1").Select
 Range("A26").Select
 Parametres = Selection_InputBox_Multi_Zones(phrase1)
 Parametres = ActiveSheet.Name & "!" & Parametres
 Sheets(strSheetName).Range("C7").Formula = "=" & Parametres
 
 Parametres = Selection_InputBox_Multi_Zones(phrase2)
 Parametres = ActiveSheet.Name & "!" & Parametres
 Sheets(strSheetName).Range("C8").Formula = "=" & Parametres
 
 Parametres = Selection_InputBox_Multi_Zones(phrase3)
 Parametres = ActiveSheet.Name & "!" & Parametres
 Sheets(strSheetName).Range("C9").Formula = "=" & Parametres
 
 Parametres = Selection_InputBox_Multi_Zones(phrase4)
 Parametres = ActiveSheet.Name & "!" & Parametres
 Sheets(strSheetName).Range("C10").Formula = "=" & Parametres
 
 Parametres = Selection_InputBox_Multi_Zones(phrase5)
 Parametres = ActiveSheet.Name & "!" & Parametres
 Sheets(strSheetName).Range("E18").Formula = "=" & Parametres
 
 Parametres = Selection_InputBox_Multi_Zones(phrase6)
 Parametres = ActiveSheet.Name & "!" & Parametres
 Sheets(strSheetName).Range("H18").Formula = "=COUNT" & Parametres
 Sheets(strSheetName).Range("E19").Formula = "=AVERAGE" & Parametres
 Sheets(strSheetName).Range("G18").Formula = "=MIN" & Parametres
 Sheets(strSheetName).Range("E20").Formula = "=MAX" & Parametres
 Sheets(strSheetName).Range("G20").Formula = "=STDEV" & Parametres
 
End Sub

Function Selection_InputBox_Multi_Zones(Message As String) As String
'Selection de plusieurs zones avec touche CTRL
Dim Adresse_Zone As String, Adresses As String
Dim Zones As Range, Sous_Zone As Range
 
 On Error Resume Next
 Set Zones = _
        Application.InputBox("Selection d'une ou plusieurs plages avec la touche CTRL:" _
          & Chr(10) & Message, "Multi_plage test", Selection.Address(0, 0), Type:=8)
    On Error GoTo 0
    If Zones Is Nothing Then Exit Function
    For Each Sous_Zone In Zones.Areas
        Adresse_Zone = Adresse_Zone & Chr(10) & Sous_Zone.Rows.Count _
           & " dans ligne " & Sous_Zone.Address(0, 0)
        Adresses = Adresses & IIf(Adresses <> "", "," & Sous_Zone.Address(0, 0), Sous_Zone.Address(0, 0))
    Next Sous_Zone
  'Affichage désactivé pour cette utilissation
'    MsgBox "Plage: " & Zones.Areas.Count & ", " & _
        "Lignes: " & Zones.Rows.Count & Adresse_Zone
    Selection_InputBox_Multi_Zones = Adresses
End Function
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro - ajout demande plage de recherche

Bonsoir ,

en tous cas , cela fait plaisir de t'aider , tu essaies d'avancer et ça c'est top.

Voilà , avec une premiére simplification ,

Mais avec une boucle et des tableaux de variables l'on pourrait faire plus court ...

Code: 
Sub Exemple()
Dim phrase1 As String, phrase2 As String, phrase3 As String, phrase4 As String
Dim phrase5 As String, phrase6 As String, Parametres As String
Dim strSheetName As String

 strSheetName = ActiveSheet.Name
 phrase1 = "Choisir l'élément"
 phrase2 = "Choisir la date 1"
 phrase3 = "Choisir la version"
 phrase4 = "Choisir la date 2"
 phrase5 = "Choisir la quantité"
 phrase6 = "Choisir les valeurs"
 
 Sheets("Feuil1").Select
 Range("A26").Select
 Parametres = ActiveSheet.Name & "!" & Selection_InputBox_Multi_Zones(phrase1)
 Sheets(strSheetName).Range("C7").Formula = "=" & Parametres
 
 Parametres = ActiveSheet.Name & "!" & Selection_InputBox_Multi_Zones(phrase2)
 Sheets(strSheetName).Range("C8").Formula = "=" & Parametres
 
 Parametres = ActiveSheet.Name & "!" & Selection_InputBox_Multi_Zones(phrase3)
 Sheets(strSheetName).Range("C9").Formula = "=" & Parametres
 
 Parametres = ActiveSheet.Name & "!" & Selection_InputBox_Multi_Zones(phrase4)
 Sheets(strSheetName).Range("C10").Formula = "=" & Parametres
 
 Parametres = ActiveSheet.Name & "!" & Selection_InputBox_Multi_Zones(phrase5)
 Sheets(strSheetName).Range("E18").Formula = "=" & Parametres
 
 Parametres = ActiveSheet.Name & "!" & Selection_InputBox_Multi_Zones(phrase6)
 
 Sheets(strSheetName).Range("H18").Formula = "=COUNT(" & Parametres & ")"
 Sheets(strSheetName).Range("E19").Formula = "=AVERAGE(" & Parametres & ")"
 Sheets(strSheetName).Range("G19").Formula = "=min(" & Parametres & ")"
 Sheets(strSheetName).Range("E20").Formula = "=MAX(" & Parametres & ")"
 Sheets(strSheetName).Range("G20").Formula = "=STDEV(" & Parametres & ")"
 
End Sub

Function Selection_InputBox_Multi_Zones(Message As String) As String
'Selection de plusieurs zones avec touche CTRL
Dim Adresse_Zone As String, Adresses As String
Dim Zones As Range, Sous_Zone As Range
 
 On Error Resume Next
 Set Zones = _
        Application.InputBox("Selection d'une ou plusieurs plages avec la touche CTRL:" _
          & Chr(10) & Message, "Multi_plage test", Selection.Address(0, 0), Type:=8)
    On Error GoTo 0
    If Zones Is Nothing Then Exit Function
    For Each Sous_Zone In Zones.Areas
        Adresse_Zone = Adresse_Zone & Chr(10) & Sous_Zone.Rows.Count _
           & " dans ligne " & Sous_Zone.Address(0, 0)
        Adresses = Adresses & IIf(Adresses <> "", "," & Sous_Zone.Address(0, 0), Sous_Zone.Address(0, 0))
    Next Sous_Zone
  'Affichage désactivé pour cette utilissation
'    MsgBox "Plage: " & Zones.Areas.Count & ", " & _
        "Lignes: " & Zones.Rows.Count & Adresse_Zone
    Selection_InputBox_Multi_Zones = Adresses
End Function
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro - ajout demande plage de recherche

Merci beaucoup !

J'ai encore un petit souci. La première feuille des documents avec les quels je travaille ne s'appelle pas toujours Feuil1. Comment faire pour que la macro travaille avec les données de la première feuille et non pas avec celle de la feuille qui s'appelle "Feuil1".

Actuellement j'ai ça:
Sheets("Feuil1").Select

Merci d'avance
 
Vote positif 0 Vote négatif
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

W
  • Résolu(e)
XL 2016 Par clic·droit en colonne A modifier le contenu de colonne R
Réponses
9
Affichages
168
TooFatBoy
TooFatBoy
pompaero
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
dysorthographie
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
925
dysorthographie
dysorthographie
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
193
AtTheOne
AtTheOne
P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
778
cathodique
cathodique
P
  • Question Question
XL 2019 Macro VBA SOMME.SI.ENS
Réponses
2
Affichages
132
sylvanu
sylvanu
Jiheme
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
206
fanch55
fanch55
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
250
AtTheOne
AtTheOne
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
647
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
681
Max
M
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
291
fanch55
fanch55
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
444
chris63
C
M
  • Question Question
Microsoft 365 Utilisation de la fonction Array
Réponses
13
Affichages
446
vgendron
vgendron
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
203
fanch55
fanch55
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
288
CS49
C
F
  • Question Question
XL 2016 Recherche multi classeurs
Réponses
5
Affichages
286
mromain
mromain
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
200
sylvanu
sylvanu
Calvus
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
412
p56
p56
A
  • Question Question
Autres EXCEL 2024-Formule complexe - demande d'aide - solution
Réponses
1
Affichages
496
Dranreb
Dranreb
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
TooFatBoy
Retour