Fonction Excel en VB

**Eric93** · 17/12/2007, 12h30

Bonjour,

Je dévute en Visual Basic, et je cherche comment appliquer en VB les fonctions du menu Excel, existe t-il une doc ?

Par exemple je cherche les fonctions suivantes :

Comment fusionner plusieurs cellules d'une même ligne
Comment Ajuster la largeur d'une colonne à la taille du contenu des cellules
Comment appliquer le format texte à une colonne

Merci de votre aide

**fred65200** · 17/12/2007, 12h35

bonjour,

utilise l'éditeur de macros

Outils / Macro / Nouvelle macro

Lorsque tu as terminé, clique sur le petit carré.

Alt + F11 pour visualiser le code et essayer de le comprendre.

cordialement

EDIT je te déconseille la fusion de cellule qui est souvent source de problème par la suite, si tu peux, utilise "Centrer sur plusieurs colonnes".

**wilfried_42** · 17/12/2007, 12h39

bonjour

je ne sais pas s'il y a un doc pour cela, mais l'aide excel est assez complete

regarde pour la fusion : application.union(.......,.,..,...,.,.,.,.)

pour la largeur : columns(x).width = yyyyyyy

pour le format : Range("B1").entirecolumn.NumberFormat = "@"

Bonne jornée

**Eric93** · 17/12/2007, 12h42

Merci de me répondre,

En fait j'ai déja écrit un script qui lis un fichier texte et qui avec une rupture permettant de ranger les données dans différente feuilles excel.

Je me suis juste aidé de l'aide pour débuter en VB car je connais d'autres langage.

Maintenant je souhaite juste mettre en forme mes feuilles et cellules comment je le ferais à la main sous excel, mais je ne retrouve pas les fonctions désirés qui sont classées par ordre alphabétique dans l'aide.

Comment retrouver la fonction VB correspondant à une option du menu, en l'occurence je ne trouve pas les 3 actions définis plus haut

**fred65200** · 17/12/2007, 12h46

re

si tu utilises l'éditeur de macro, tu auras après simplification

Code :

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

1
2
3
4
5
6
7
8
9
 
'ajustement de la largeur des colonnes A à C
    Columns("A:C").EntireColumn.AutoFit
 'fusion des cellules
 Range("A24:H24").Merge
  'centrage sur plusieurs colonnes
  Range("A25:H25").HorizontalAlignment = xlCenterAcrossSelection
' format texte
  Range("A26:H26").NumberFormat = "@"

environ 3 minutes en prenant son temps.

cordialement

**Alqualonde** · 17/12/2007, 12h47

Bonjour,

As-tu essayé ce que t'a pas proposé Fred65200 ? Pour moi c'est la meilleure solution pour (re)trouver des fonctions VB qui font ce qu'on applique habituellement "à la main" dans Excel. (et a fortiori pour ton cas)

**Eric93** · 17/12/2007, 12h59

Merci beaucoup

J'ai appliqué le code suivant qui marche bien :

Code :

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

1
2
3
 
Worksheets(feuille).Columns(col).NumberFormat = "@"
Worksheets(feuille).Columns(col).EntireColumn.AutoFit

ou feuille et col sont des variables.

Pour le merge, comment l'utiliser avec une variable ? je veux fusionner les cellules de la ligne 1, de la colonne 1 à la colonne n_col (nombre de colonnes)

Merci d'avance

Sinon j'ai pas bien compris comment retrouver un code VB à partir d'une option du menu Excel, sans avoir à poster pour chaque fonction

**fred65200** · 17/12/2007, 13h04

re

Code :

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

1
2
3
Worksheets(feuille).Range(cells(1,1),cells(1,n_col)).HorizontalAlignment = xlCenterAcrossSelection
'ou si tu y tiens
'Worksheets(feuille). Range(cells(1,1),cells(1,n_col)).merge

EDIT je t'invite à relire ce post

Envoyé par fred65200

bonjour,

utilise l'éditeur de macros

@+

**Eric93** · 17/12/2007, 13h26

Merci pour ces réponses rapides,

Tous marche, par contre je n'ai pas bien compris ton premier poste, comment utiliser l'éditeur de macro, désolé.

Tu m'as dis :

Outils / Macro / Nouvelle macro

Lorsque tu as terminé, clique sur le petit carré.

Alt + F11 pour visualiser le code et essayer de le comprendre.

Lorsque j'ai terminé quoi ? j'ai pas bien pigé

**LeForestier** · 17/12/2007, 13h27

Envoyé par Eric93

Sinon j'ai pas bien compris comment retrouver un code VB à partir d'une option du menu Excel, sans avoir à poster pour chaque fonction

Code :

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

1
2
Worksheets(feuille).Columns(col).NumberFormat = "@"
Worksheets(feuille).Columns(col).EntireColumn.AutoFit

Comme dit plus haut, avec l'éditeur de macro tu à des mot de syntaxe dans la macro et pour avoir, par exemple tout les renseignement sur 'NumberFormat ' dans le code tu double clic dessus pour le sélectionner (en bleu en principe) et ensuite tu tape F1

**fred65200** · 17/12/2007, 13h30

re

Si tu es sur Excel avant 2007, tu vas dans le menu Outils, tu descends jusqu'à Macro et nouvelle macro

une boite de dialogue s'affiche, clique sur OK
à partir de ce moment, tout ce que tu fais sur Excel est enregistré.

Clique sur le petit carré bleu pour arrêter l'enregistrement.

Vas dans l'éditeur Visual Basic (Alt + F11) pour voir la macro que tu viens d'enregistrer..

Si tu es sur Excel 2007 il faut Afficher l'onglet Développeur (ce n'est pas obligatoire mais plus aisé pour la suite)
Bouton Office / Options Excel (en bas à droite)
Rubrique Standard, coche la troisième case Afficher l'onglet Développeur dans le ruban.
Dans l'onglet Développeur, clique sur Enregistrer une macro etc.
@+

**Eric93** · 17/12/2007, 13h38

Je suis sur Excel 2003,

Ok, je viens de capter, il fallais retourner sur excel et faire les actions puis retourner sur la macro pour voir le code. Je vais pouvoir faire les action Excel sans passer des heures dans l'aide à chercher.

Merci beaucoup, il me reste plus qu'a trouver le petit carré bleu, lol. Il est ou sur Excel ou sur l'editeur de macro ?

**fred65200** · 17/12/2007, 13h44

re

si tu enregistres une macro, tu vas voir le petit carré bleu sur EXCEL.

Si tu as obtenu une réponse à ce post, n'oublie pas de cliquer sur Résolu.

Cordialement

**Eric93** · 17/12/2007, 14h44

Désolé, je vois pas de carré bleu et effectivement, tout ce que je fais sur excel s'enregistre dans la macro, je peux pas désactiver l'éditeur de macro.

Il est ou le carré ? je dois être aveugle