Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

compléter une cellule avec un caractère

portgas

XLDnaute Nouveau
Bonjour,

J'ai essayé d'utiliser la fonction recherche, je suis à peu près sur que quelqu'un a déjà soumis ce problème mais bon..
Je souhaite compléter des cellules avec des espaces suivant la taille de la donnée que j'ai importé.
la taille de ma cellule est de 23 caractères.
J'ai essayé ceci:
Code:
Dim l As Long

l = 23 - Len(srcSheet.Cells(i, 3))
libelle = srcSheet.Cells(i, 3).Value
complibelle = Space(l)

libelle = libelle & complibelle

ou ceci

Code:
Dim l As Long
l = 23 - Len(srcSheet.Cells(i, 3))
libelle = srcSheet.Cells(i, 3).Value
complibelle = Rept(" ",l)

libelle = libelle & complibelle

Mais rien n'y fait.
Pour la première fonction, j'ai une erreur "invalid procedure call or argument"

Pour la deuxième, il ne me reconnait pas la formule.
Si quelqu'un peut m'aider.
 

pierrejean

XLDnaute Barbatruc
Re : compléter une cellule avec un caractère

bonjour portgas

Vois si tu peux t'inspirer de ceci

Avec un fichier exemple ,la solution aurait été plus directe ......
 

Pièces jointes

  • portgas.zip
    5.6 KB · Affichages: 66

GIBI

XLDnaute Impliqué
Re : compléter une cellule avec un caractère

Bonjour,

le code doit comporter une variable non défini (srcSheet par exemple

sinon écrit simplement
Cells(i, 3).Value = Cells(i, 3).Value & space(23 - Len(Cells(i, 3))

gibi
 

Robert

XLDnaute Barbatruc
Repose en paix
Re : compléter une cellule avec un caractère

Bonjour le fil, bonjour le forum,

Ton premier code fonctionne mais tu oublies d'actualiser la cellule à la fin avec :

Code:
srcsheet.Cells(i, 3).Value = libelle

Néanmois le code de GIBI est tout aussi efficace.
 

Discussions similaires

Réponses
0
Affichages
351
Réponses
3
Affichages
199
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…