VBA: Etirer une formule via VBA

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:

---

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

Bonjour

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

Voici ci qui devrait convenir :

Code:

---

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

---

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:

---

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.

Citation:

---

Envoyé par Menhir

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

---

J'ai trouvé :

Code:

---

1 2 3

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

---

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