Improbable ??

[Jocelyn]

Bonjour le forum

Il me semble improbable d'avoir une réponse, mais certain ici font préparer le café par excel. LOL

Bon voilà ce que je cherche.

J'ai plusieurs tableaux (Listes de prix).
L'orsque je lis un tableau, ma ligne est recherché par le nom de l'article.

Or, je ne peut pas changer le nom de l'article, sinon, mes macros VBA ne fonctionneront plus.

J'aimerais, dans la mesure du possible, me fair un UserForm qui me permetterais de remplacer le nom de l'article.

J'usque-là, ça va.

Mais cette macro devra aussi remplacer tout les noms de tous les modules VBA par le nouveau nom.

Je n'imagine même pas de quel façon construire cette macro.

Est-ce que quelqu'un aurait une petite idée ou un exemple déjà construit.

Merci à l'avance.

 

[Denis]

Bonjour Jocelyn et le Forum
ne désespère pas ! Tous le monde est occupé de connecter la cafetière sur com2 (ça marche pas c'est sur com1)
revenons à ton problème.
Il me semble beaucoup plus simple de remplacer tes nom d'article dans tes codes par une variable.
cette variable tu la déclares Public dans un module et tu peux lui attribuer le nom de l'article que tu désires
Elle reste valable pour tous tes modules et tous tes USF.
Si tu changes le nom d'un article, il ne te reste qu' a réattribuer ta variable
Je pense que c'est le + simple
Bon courage et à +
Denis

 

[Jocelyn]

Bon café

Salut Denis et les autres

Chaque article est en soit une différente variable qui passe différent modules. Exemple: si tel article, THEN ...

Ton idée n'est quand même pas bête.

Ça me fait quand même penser que si le nom change, je pourrais crée un module qui assigne le vieux nom au nouveau.
Acticle nouveau = ancien nom

Je vais quand même attendre voir si de meillieurs idées sortiraient.

A plus tard

 

[ChTi'160]

Salut "jocelyn" et "Denis"
je pense que comme le dit Denis
tu affectes à ta variable la propriété text de ton combobox ou d'une InputBox et tu remplaces dans ta procédure le nom du produit par la variable qui pourra ainsi prendre toutes les valeurs
Ex
Dim NomProduit as string
Dim cel as Range
set NomProduit=Combobox1.text'affecte la valeur à la variable
For Each cel in Range("A1:A20")
If cel.Value=NomProduit Then
ou via un InputBox
NomProduit=inputBox("Tapez un Article",Selection,..................'la personne tape le nom du produit à rechercher
For Each cel in Range("A1:A20")
If cel.Value=NomProduit Then
à voir ,ceci n'est pas une procédure en sois mais un bout d'essai
A+++
Jean Marie

 

[Jocelyn]

Merci à vous

Jean Marie, je vais essayé ça.

C'est pas encore clair dans ma tête, mais je vais comprendre en l'esseyant.

J'aime mieux ça que des variables public avec lesquels ont fini par perdre le contrôle.

Je vais peut-être y parvenir avec ses deux idées.

Tourlou!