Supprimer les "" d'un string

J'ai une série de texte dans un tableau, et j'aimerais que dans la colonne de gauche du texte, y apparaisse le résultat de cette variable (qui à le même nom que le texte de la cellule).

En fait, j'aimerais lire la cellule de texte, et faire quelque chose comme :

Range("A1").value = Variable qui à le même nom que la valeur (c'est à dire sans les "")

(C'est assez compliqué à expliquer en fait, j'espère que vous m'avez compris)...;)

Merci

peux-tu illustrer par un exemple.

Merci

Je ne vois pas comment tu peux faire ca.

Le mieux serait de créer un tableau de variable ou tu trouverais dans dans une dimension le libelle et dans une autre dimension la valeur.

bonjour

je n ai pas tt compris a ta demande ...
pour remplacer les "" utilise la fonction replace

je pense que j'ai compris de quoi tu parle, mais c'est pas forcément clair, comme c'est une explication pour CP de VBA, tu m'excuseras si je me trompe
je pense que tu as un soucis pour écrire ta variable parce que tu l'écris comme suit

Code:

---

1 2 3

variable = "brutus" Range("A1").value = "variable"

---

pour la clarté de l'explication, je ne vais pas employer le mot variablesinon on vas se perdre

Code:

---

1 2 3

u = "brutus" Range("A1").value ="u"

---

le premier u est le nom de la variable
le "brutus" est la valeur texte de la variable
le "u" est une erreur car il donne a la cellule A1 la valeur texte u
si tu l'écris

Code:

---

Range("A1").value = u

---

la valeur écrite en cellule A1 sera brutus sans guillemet

bonjour à tous,

de ce que j'en ai compris

Supprimer les guillemets dans une chaîne

Code:

---

1 2 3 4 5 6 7

Sub SupprGuillemets() Dim maStr As String maStr = Replace(Range("B1"), """", "") Range("A1") = maStr 'ou tout simplement ' Range("A1") = Replace(Range("B1"), """", "") End Sub

---

cordialement

J'ai l'impression que ce que Korleone recherche c'est mettre en A1 la valeur de la variable qui a le meme nom que la valeur de la cellule B1

Peux tu nous dire si c'est ca Korleone

Tout d'abord, merci de vos réponses.
@ jfontaine : C'est bien ce que je cherche à faire

En fait, voici un exemple.

En A1, j'ai un texte, par exemple : "Spielberg"
En A2, j'ai "Hitchcock"
En A4, j'ai "Truffaut"
En A5, j'ai "Antonioni"
...

J'aimerais dans la cellule B1 avoir la variable Spielberg
en B2 la variable Hitchcock
...

Donc, pour mon code, j'aimerais lire les valeurs de la colonne A (une par une), puis, dans la colonne à gauche, afficher le résultat de la variable du même nom.

(Pour info, les variables sont déjà définies dans le code Visual Basic).

J'espère que vous m'avez compris :oops:

Malheureusement, a part passer par un tableau, je ne vois pas comment faire.

Peutêtre pourrais tu en début de procédure en chargeant une a une les variables de l'application.

en fait tu veux te servir du nom spielberg comme d'une variable qui s'appelerai spielberg
dans ce cas tu écris :
en a1 : Spielberg
et dans ton code tu écris
spielberg = "spielberg"
ou bien
spielberg = range("a1").value
ou bien si tu tien a l'écrire aussi en B1
dans B1 tu écris la formule =A1
ou bien par le code, tu vas pouvoir écrire range
B1 = spielberg
ce qui vas te donner

Code:

---

1 2 3

spielberg = "spielberg" 'ou bien spielberg = range ("a1").value range B1 = Spielberg

---

En fait, ce n'est pas ça que je veux faire, je veux lire le texte en A1, par exemple "Spielberg", et en B1, écrire le résultat de la variable (par exemple 15).

Mais "Spielberg" n'est pas forcément en "A1", et c'est pourquoi, je voulais lire la valeur de chaque ligne sous forme de texte, et ensuite, grâce à la fonction Offset(0,1), écrire le résultat de la variable.

(PS : Il y a environ 150 lignes, et faire des conditions serait un peu trop long)

En tout cas, merci de vos réponse, ça à pas l'air évident. Dommage, ça m'aurais fait gagner du temps

bonjour,

Je pense que ce que tu veux n'est pas sorcier.
Le plus dur est de comprendre ce que tu veux.
D'où sors tu 15.

Ma boule de cristal est en réparation.

Une macro à adapter

Code:

---

1 2 3 4 5 6 7 8

Sub Liste() Dim derli As Integer, i As Integer derli = Columns(1).Find("*", , , , , xlPrevious).Row For i = 1 To derli Cells(i, 2) = Len(Cells(i, 1)) 'à défaut de savoir ce que tu veux, le nombre de caractères Next i   End Sub

---

Je ne vois toujours pas le rapport avec le titre.

cordialement