Bonjour,
Je souhaiterais créer un bouton qui permettra de modifier une base de données d'une liste de choix.
La méthode que j'utilise est celle ci
J'appelle un userbox qui demande quel base de données sélectionner.
Ensuite je détermine sa position dans mon classeur et la sélectionne et la défini comme nouvelle référence ( a la place d'utilisé la cellule "A1" qui est de base)
pour ce faire j'utilise le code vba suivant :
Puis je redéfinis la base de donnée grace a la formule suivante :
J'aimerais d'abord savoir si une méthode plus simple existe? Et si oui c'est quoi?
Sinon si cette solution est bonne je suis bloqué en ce qui concerne la recherche de ma base de donné. J'espéré utilisé un méthode équivalente, en vba, aux fonctions recherche() et Index(). Mais je n'ai pas réussi a trouver :/ . Pouvez vous me montrer la voie qui mène au salut ?
Je vous joins mon fichier par la même occasion et je vous remercie
Je souhaiterais créer un bouton qui permettra de modifier une base de données d'une liste de choix.
La méthode que j'utilise est celle ci
J'appelle un userbox qui demande quel base de données sélectionner.
Ensuite je détermine sa position dans mon classeur et la sélectionne et la défini comme nouvelle référence ( a la place d'utilisé la cellule "A1" qui est de base)
pour ce faire j'utilise le code vba suivant :
Code:
ActiveCell.CurrentRegion.Name = "Base_de_données"
ActiveSheet.ShowDataForm
Puis je redéfinis la base de donnée grace a la formule suivante :
Code:
Set Fin = Range("A65536").End(xlUp)
ActiveWorkbook.Names.Add "Secteur", Range(Range("A2"), Fin) 'Definition du champs "Zone"
ThisWorkbook.Sheets("Evaluation du risque").Select
J'aimerais d'abord savoir si une méthode plus simple existe? Et si oui c'est quoi?
Sinon si cette solution est bonne je suis bloqué en ce qui concerne la recherche de ma base de donné. J'espéré utilisé un méthode équivalente, en vba, aux fonctions recherche() et Index(). Mais je n'ai pas réussi a trouver :/ . Pouvez vous me montrer la voie qui mène au salut ?
Je vous joins mon fichier par la même occasion et je vous remercie