Discussion :

[Raphael13]

Bonjour à tous et à toutes,

petite question : je voudrais créer une macro qui, dans une cellule donnée (disons B2), insére le texte d'une autre cellule (disons C3) SAUF le premier caractère.


A tous ceux qui peuvent me proposer des solutions : soyez précis et complet, svp (non pas que je sois exigeant mais par contre, tres nul en VBA d'où un manque d'automatisme et de vocabulaire ^^)

D'avance merci,

[Minick]

Salut,

Pourquoi utiliser une macro??

Utilises ceci en B2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(C3;NBCAR(C3)-1)

++
Minick

[Raphael13]

j'ai besoin d'utiliser une macro car je ne veux pas que cela se declenche directement (un certain nombre d'action sont à mener avant).

pour être plus prècis, le texte contenu dans C3 ressemble à cela :

.='050 MENSUEL'!E17

Le probleme est qu'au debut, cette feuille n'existe pas (050 MENSUEL) : elle doit etre importée, modifiée, corrigée,....

Donc je ne peux pas mettre directement la formule (car dans ce cas, pb de reference).
De plus, je voudrais cette organisation car elle est plus simple à modifier pour des gens comme moi. Si les élements varient, il suffit de modifier une cellule (C3) et non pas une macro (illisible pour moi et le commun des mortels)

voila pourquoi je voulais utiliser une macro (organisation des actions plus simple et evolution simple à faire).

[LeForestier]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Var = ".='050 MENSUEL'!E17"
Var2 = Mid(Var,2)

A+

[Minick]

Re,

OK, utilise ceci alors.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub DelFirstCharInC3ToB2()
    Range("B2").Value = Mid(Range("C3").Value, 2)
End Sub

Apres a toi de voir comment tu vas le lancer...

++
Minick

[Raphael13]

Merci à tous les deux vous venez de me permettre de finir mon travail dans les temps !!!!!

[Lynx92260]

Bonjour

La solution consite à tout d'abord formater la première cellule B2 au format texte comme ca la formule n'est jamais executer

Puis par vba il suffit activer la formule de la cellule c2 le code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        Range("C2").FormulaLocal = Range("B2").Text

Voilà la solution

pensez à mettre