[VBA] Access-> Excel Format de cellule [À faire]

**toflofr** · 31/07/2003, 09h33

Bonjour

j'utilise access pour la création d'un fichier excel, et les donnees s'affiche dans de nombreuse cellule. Dans une de mes tables se trouve une longue chaine de caractère, et je voudrai pouvoir apres chaque "=" faire un retour de ligne, et donc que la cellule et la ligne a laquelle elle appartient change de dimmension en hauteur.

Si vous avez des idées je les prend toute, Merci a vous.

**pitistef** · 31/07/2003, 09h57

Essaie d'utiliser la propriété WrapText de ta cellule :

Code :

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

1
2
 
  TonAppliExcel.TonWorkbook.TaWorkSheet.Range(TaCellule).WrapText=True

Cette propriété est l'équivalent vb de 'Renvoyer à la ligne automatiquement'

**toflofr** · 31/07/2003, 10h03

**pitistef** · 31/07/2003, 10h11

Si tu as Access 2000 ou XP, tu dois pouvoir t'en sortir avec la fonction Replace et l'utilisation du caractère de renvoie à la ligne (chr(10) je crois).
Au moment, d'inscrire ta chaine dans ta cellule excel, tu fais :

Code :

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

1
2
 
TonappliExcel.TonWorkBook.TaWorkSheet.Range(TaCellule)=replace(TaChaine,"=","=" & chr(10))

Je n'ai pas testé, mais je pense que ça pourrait résoudre ton problème.

**toflofr** · 31/07/2003, 10h15

j'utilise cette commande pour copier mes cellules, et la cellule qui me pose probleme est dedans.
Comment puis-je appliquer ta methode?

Code :

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

1
2
DoCmd.TransferSpreadsheet acExport, 0, _
    "Valeur_Commentaire_Gamme_Temp", strTargetFile, False, "D15:D26"

Merci de ton aide

**pitistef** · 31/07/2003, 10h35

Ce que tu peux faire, avant d'effectuer ton opération d'exportation vers Excel, c'est lancer une requête qui va formater comme tu le souhaites le champs qui te gêne dans ton tableau temporaire. Je suppose que si les données stokées dans ton tableau temporaire ont une sale tête (des caractères un peu particuliers), ce n'est pas trop gênant (à moins que tu n'aies besoin de les afficher?).
Donc tu effectues la requête suivante :

Code :

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

1
2
 
UPDATE [Valeur_Commentaire_Gamme_Temp] SET [TonChamp]=replace([TonChamp],""="",""="" & chr(10))

Ensuite tu effectues ton transferspreadsheet.

**toflofr** · 31/07/2003, 10h43

un erreur se produit sur la ligne de la requete

"Fonction replace non défini"

sur

Code :

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

DoCmd.RunSQL "UPDATE Valeur_Commentaire_Gamme_Temp SET [Commentaire]=replace([Commentaire],""="",""="" & chr(10))"

J'ai access 2000.

**Lucifer** · 31/07/2003, 11h00

Code :

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

DoCmd.RunSQL "UPDATE Valeur_Commentaire_Gamme_Temp SET [Commentaire]='" &  replace([Commentaire],""="",""="" & chr(10)) & "'"

**toflofr** · 31/07/2003, 11h23

Nvl erreur

"impossible de trouver le champ auquel il fait reference"
dans le code du post precedent

Ma table est "Valeur_Commentaire_Gamme_Temp"
et le champ est "Commentaire"

**pitistef** · 31/07/2003, 11h36

Bon, ben faut croire qu'elle n'existe pas sous Access 2000 alors...
Heu... on va devoir écrire une fonction qui fait la même chose alors.
Ouvre un module dans lequel tu insères le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public function replace(Byval Chaine1 As string,Byval Chaine2 As string, Byval Chaine3 as string)
Dim chainetemp as string
Chainetemp=""
While not(instr(Chaine1,Chaine2)=0)
   chainetemp=chainetemp & left(Chaine1,instr(Chaine1,Chaine2)-1) & Chaine3
   Chaine1=mid(Chaine1,instr(Chaine1,Chaine2)+1)
wend
replace=chainetemp
End Function

Je pense que ça devrait effectuer la même chose que replace...Mais il te faut utiliser la syntaxe que je t'ai donné et pas celle de Lucifer je pense.

**toflofr** · 31/07/2003, 11h41

j'ai creer un module nommé Replace.

et apres qu'est ce que je doit faire, car j'ai jamais utiliser les modules ?

j'ai repris ta formule et il me dit "Replace" Non defini dans l'expression

désoler je suis un

.

Merci enormement

**pitistef** · 31/07/2003, 11h49

Ne nomme pas ton module replace, nomme le module ou fonctions...
(je ne sais pas si Access ne va pas confondre ton module et ta fonction).De plus, j'ai oublié de préciser le type de Replace:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public function replace(Byval Chaine1 As string,Byval Chaine2 As string, Byval Chaine3 as string) As String
Dim chainetemp as string 
Chainetemp="" 
While not(instr(Chaine1,Chaine2)=0) 
   chainetemp=chainetemp & left(Chaine1,instr(Chaine1,Chaine2)-1) & Chaine3 
   Chaine1=mid(Chaine1,instr(Chaine1,Chaine2)+1) 
wend 
replace=chainetemp 
End Function

L'erreur il la mettait dans ton module?

**toflofr** · 31/07/2003, 11h54

le code est passez mais, ca na pas marcher ma chaine de caratcere est dans un cellule, et les lettre les une a la suite des autres sans saut de lignes..... il affiche des petit carree blanc dans excel

**toflofr** · 31/07/2003, 12h05

En fait excel affiche des petit carree, et quand je clique sur la barre de formule en haut il disparaisse et sont interpreter comme des retour a la ligne.

On tiens le bon bout.

Comment dire a excel d'interpreter ces carrees directement sans a avoir a clicquez dessus. Le tout par Access

**pitistef** · 31/07/2003, 12h05

Ah? je ne suis pas sûr du chr(10) que je t'ai proposé. (le caractère de saut de ligne est un de ceux compris entre 0 et 32 mais lequel?).
Sinon, en te contentant de remplacer "=" par "= ", ça ne fait pas les sauts de lignes où tu souhaites? (avec l'option passer à la ligne automatiquement)

**toflofr** · 31/07/2003, 12h09

YES !!!!! sa marche, mais car il ya toujours un mais, comment maitenant agrandir la cellule afin d'avoir toutes les informations qui s'affiche.

**pitistef** · 31/07/2003, 13h30

ça je crois pas que ce soit possible (c'est une option qui n'existe pas sous Excel pour autant que je sache). Tu devras le faire manuellement pour chaque colonne (dur!dur!).

**Maxence HUBICHE** · 31/07/2003, 13h36

Envoyé par pitistef

ça je crois pas que ce soit possible (c'est une option qui n'existe pas sous Excel pour autant que je sache). Tu devras le faire manuellement pour chaque colonne (dur!dur!).

C'est pas tout à fait exact...
La fonctionalité existe de 2 façons différentes.

1/tu actives ShrinkToFit sur les cellules. Cela diminue la taille du texte pour qu'il rentre dans la largeur de la cellule.

2/tu utilises AutoFit sur les colonnes/Lignes pour faire un ajustement automatique des tailles de ces dernières.

Choisir en fonction du résultat attendu.
Bien sûr, il vaut mieux faire un peu d'automation dans ce cas là !

**pitistef** · 31/07/2003, 13h42

ouais exact, j'avais jamais percuté que l'option autofit existait. Bon, c'est cool, je tâcherais de l'utiliser la prochaine fois que j'aurais de l'automation à faire.

**toflofr** · 31/07/2003, 14h26

MERCI

Code :

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

:merci:

[VBA] Access-> Excel Format de cellule [À faire]

VBA Access

Discussions similaires

Partager

Partager