Discussion :

[Judel1993]

Bonjour a tous,

Je rencontre le probleme suivant: je dois envoyer des tableurs via des chats, et si je ne rajoute pas des espaces apres les cellules de la colonne A qui ont un nombre de caracteres inférieur a 13, (dans le chat) toutes les colonnes se décalent, et il faut ensuite les remettre en ordre (chronophage, pénible, repetitive).

En résumé, je cherche a avoir la formule suivante (=IF(LEN(Zw)<13;Zw & " ";Zw) dans les cellules de la colonne A, w étant la ligne mentionner.

Ca fait approximativement ce code, mais je ne sais pas comment faire varier le w dans la formule

Code :

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

1
2
3
    For w = 2 To 250
            Cells(w, 1).Value= "IF(LEN(Zw)<13;Zw & "       ";Zw)
    Next w

Je ne sais pas si je suis clair, n'hésitez pas a me poser des questions.

Merci d'avance

[ylemasson]

Bonjour

En fait vous mélangez les valeurs et les formules dans votre code.

Voici ci qui devrait convenir :

Code :

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

1
2
3
    For w = 2 To 250
            Cells(w, 1).value= iif(len( Cells(w, 1).value)<13, Cells(w, 1).value & "       "; Cells(w, 1).value)
    Next w

[Menhir]

Premièrement, pour mettre une formule dans une cellule, on n'utilise pas Value mais Formula (ça parait assez logique).

La formule transmise à Formula est une simple chaine de caractère et doit donc être construite comme telle.

Mais ton principe de base ne fonctionne pas : on ne peut pas mettre dans une cellule une formule faisant référence à la valeur qu'elle contient elle-même.

Le bon code serait

Code :

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

1
2
3
    For w = 2 To 250
            If Len(Cells(w, 1).Value) < 13 Then Cells(w, 1).Value = Cells(w, 1).Value + Space(13 -Len(Cells(w, 1).Value))
    Next w

Mais il est possible qu'il y ait une solution plus simple que de passer par Space.

[Menhir]

Mais il est possible qu'il y ait une solution plus simple que de passer par Space.

J'ai trouvé :

Code :

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

1
2
3
    For w = 2 To 250
            Format(Cells(w, 1).Value) = Format(Cells(w, 1).Value), "!@@@@@@@@@@@@@")
    Next w

[Judel1993]

Merci a tous,

J'ai finalement utilisé la version de Menhir, mais celle incluant Space, puisqu'elle me permet de touit moduler selon mon besoin.

Merci a vous deux pour cette aide tres précieuse! Je place avec plaisir cette discussion en Résolue