changer un nombre dans un formule string qui se répète de cellul Résolu/Fermé

Question

Bonjour, 

J'ai une cellule qui a comme formule ='# (5)'!CR41
#(5) appelle la page 5 de mon classeur
CR41 appelle la case rechercher

Voilà mon problème:

il faut que je change la page pour chaque cellule
donc le 5 doit devenir 6, le 6 le 7, etc.

j'aimerais le faire en incrémentation automatique. J'ai essayé plusieurs chose mais rien ne fonctionne car c'est la formule que je dois changer et non le résultat de la formule.

Je suis débutant en VBA. J'ai commencer il y a deux semaines. Donc svp si vous pouvez expliquez vos lignes de code, j'apprécierais beaucoup.

merci


Configuration: Windows 7 / Chrome 31.0.1650.57

Zoul67 · Answer

Bonjour,

évite VBA et utilise la fonction INDIRECT !
=INDIRECT(A1&"CR41") en mettant en A1 le nom de la feuille.

A+

Utilisateur anonyme · Answer

Bonjour, merci pour la réponse mais désolé, je ne sais pas quoi faire avec... Je mets quoi avant le = et comment j'incrémente en automatique? Je débute en VBA.

J'aimerais changer le numéro de page dans chaque cellule (mais pas la manière dont elle est inscrite). Il y a des centaines de cellules à changer. Chaque ligne comporte environ 50 cellules et j'aimerais pouvoir changer la page pour chaque cellule de chaque ligne. Une ligne est attribuée à une page. 

Merci!

michel_m · Answer

bonjour,
on peut utiliser des formules excel dans VBA, mais si on peut s'en passer...
a adapter

For cptr=5 to 7    Lig=2    cells(Lig,"A")=sheets(cptr).range("CR41")    Lig=Lig+1next 
 
 Michel

Utilisateur anonyme · Answer

Bonjour, merci pour les réponses rapides. Mais comme j'ai écris, je suis débutant donc c'est un peu du chinois pour moi.

Si je comprends, "cptr" change le chiffre en nombre ?
cells (Lig, "A") c'est quoi "Lig", "A" viens d'ou?
le Range n'est jamais le même, on peut le remplacer par "*"?

Dernière chose,  le chiffre n'est pas nécessairement 5 ou 7 ou 8, ça dépend de la page qui est appelée. Peut-on la aussi mettre "*"?

merci

Utilisateur anonyme · Answer

Bonjour, je n'ai toujours pas résolu mon problème. Donc je repose ma question. 

j'ai un fichier excel qui a 90 pages dans le quelle il y a des centaines de formule. Les formules se réfèrent sur plusieurs pages. Je dois changer dans une page, une des formules qui se retrouve dans chaque cellule d'une ligne. Il y a 90 cellule par ligne. La formule est la suivante: ='# (4)'!H$2

Dans la formule, je dois changer le chiffre entre parenthèse. Qui n'est pas nécessairement le même d'une cellule à l'autre. La première section de la formule appelle une page soit :#(4)

Donc, en clair, dans un fichier VBA, je veux changer un chiffre d'une formule qui se répète dans chaque cellule et qui change régulièrement. Ma connaissance du VBA grandi de jour en jour mais je ne trouve pas ça évident.à

merci de votre aide.

Utilisateur anonyme · Answer

Quelqu'un m'a donné cette formule qui je crois devrais fonctionner mais il me manque quelque chose pour que ça fonctionne.

formule = [c10].formula
ParentheseDeb = InStr(1, formule, "(", 1)
ParentheseFin = InStr(1, formule, ")", 1)
NumFeuille = Mid(formule, ParentheseDeb + 1, ParentheseFin - (ParentheseDeb + 1))

Est-ce que ParentheseDeb et parenthesefin doivent être des variables? Numfeuille, c'est aussi une variable? si oui, comment on écris cela?

merci

Frenchie83 · Answer

Bonjour
Oui, les termes "Formule, ParentheseDeb, ParentheseFin, NumFeuille" sont tous des variables.
Votre demande n'étant pas suffisamment claire aux yeux de tous, (pour vous, ça l'est suffisamment, mais vu de l'extérieur, ça ne l'est pas du tout). Je vous avais proposé de mettre un échantillon de votre fichier bien commenté (sans données personnelles) sur Cjoint.com pour que nous puissions bien en comprendre la structure, et ainsi vous fournir une réponse adapté, mais notre discussion a disparu du forum (une mauvaise manip sans doute).
Donc , je répète, si on ne veut pas tourner en rond, soit vous reformulez votre demande de façon qu'elle soit compréhensible par tous, soit vous déposez sur Cjoint.com un échantillon de votre fichier que vous aurez pris soin d'argumenté le plus clairement possible.
Ne vous inquiétez pas, dès que ce sera clair pour tout le monde, les réponses vont affluer.
Bonne journée.
cdllt

Utilisateur anonyme · Answer

Merci pour la réponse. J'ai trouvé la solution à mon problème. Il me manquait une ligne pour que ça fonctionne. Mais j'ai encore un autre problème du même genre. Plus simple cette fois je crois.

j 'ai une cellule avec comme valeur: CHOIX eq#2

je veux incrémenter le chiffre à la fin seulement en automatique et en VBA, pas en excel. Je n'y arrive pas et je ne trouve pas de tuto qui explique comment faire pour incrémenter un nombre dans un texte.

La solution est probablement très simple. Dans excel, avec recherche/replace, c'est très facile.

merci de votre aide.

Frenchie83 · Answer

Bonsoir
avec la cellule à incrémenter en A1
    Valeur = Range("A1").Value    PositionDiese = InStr(1, Valeur, "#", 1)    Range("A1").Value = Left(Valeur, 9) & CLng(Right(Valeur, Len(Valeur) - (PositionDiese))) + 1
cdlt

Changer un nombre dans un formule string qui se répète de cellul

9 réponses

Discussions similaires