Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour merguez,
ajoute .Value,
par exemple:
Dim cellule1 As Range, cellule2 As Range Set cellule1 = Range("A1") Set cellule2 = Range("A2") cellule1 = Application.Rept("a", 1100) cellule2.Value = cellule1.Value
isabelle
Le 2011-03-01 06:15, merguez07 a écrit :
Bonjour à tous,
Voilà dans une cellule j'ai un texte qui dépasse 255 caractères. Pas de pb il s'affiche correctement
Par contre si en vba j'affecte la valeur de cette cellule vers une autre, j'obtiens dans la nouvelle cellule une belle série de dièse
en vba j'utilise le code
set cÎllule avec plus de 255 caractère nouvelle cellule= c
je suis en excel 2000
Comment contourner le pb ?
bonjour merguez,
ajoute .Value,
par exemple:
Dim cellule1 As Range, cellule2 As Range
Set cellule1 = Range("A1")
Set cellule2 = Range("A2")
cellule1 = Application.Rept("a", 1100)
cellule2.Value = cellule1.Value
isabelle
Le 2011-03-01 06:15, merguez07 a écrit :
Bonjour à tous,
Voilà dans une cellule j'ai un texte qui dépasse 255 caractères. Pas
de pb il s'affiche correctement
Par contre si en vba j'affecte la valeur de cette cellule vers une
autre, j'obtiens dans la nouvelle cellule une belle série de dièse
en vba j'utilise le code
set cÎllule avec plus de 255 caractère
nouvelle cellule= c
Dim cellule1 As Range, cellule2 As Range Set cellule1 = Range("A1") Set cellule2 = Range("A2") cellule1 = Application.Rept("a", 1100) cellule2.Value = cellule1.Value
isabelle
Le 2011-03-01 06:15, merguez07 a écrit :
Bonjour à tous,
Voilà dans une cellule j'ai un texte qui dépasse 255 caractères. Pas de pb il s'affiche correctement
Par contre si en vba j'affecte la valeur de cette cellule vers une autre, j'obtiens dans la nouvelle cellule une belle série de dièse
en vba j'utilise le code
set cÎllule avec plus de 255 caractère nouvelle cellule= c
je suis en excel 2000
Comment contourner le pb ?
merguez07
Merci isabelle mais même avec value cela ne marchait pas
en grattant je me suis rendu compte que c'était le format de la cellule qu'il fallait passer en standard et non en texte
merci
Le 01.03.2011 16:31, isabelle a écrit :
Dim cellule1 As Range, cellule2 As Range Set cellule1 = Range("A1") Set cellule2 = Range("A2") cellule1 = Application.Rept("a", 1100) cellule2.Value = cellule1.Value
Merci isabelle mais même avec value cela ne marchait pas
en grattant je me suis rendu compte que c'était le format de la cellule
qu'il fallait passer en standard et non en texte
merci
Le 01.03.2011 16:31, isabelle a écrit :
Dim cellule1 As Range, cellule2 As Range
Set cellule1 = Range("A1")
Set cellule2 = Range("A2")
cellule1 = Application.Rept("a", 1100)
cellule2.Value = cellule1.Value
Merci isabelle mais même avec value cela ne marchait pas
en grattant je me suis rendu compte que c'était le format de la cellule qu'il fallait passer en standard et non en texte
merci
Le 01.03.2011 16:31, isabelle a écrit :
Dim cellule1 As Range, cellule2 As Range Set cellule1 = Range("A1") Set cellule2 = Range("A2") cellule1 = Application.Rept("a", 1100) cellule2.Value = cellule1.Value