Discussion :

[Eric93]

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]

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".

[Eric93]

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]

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]

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]

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]

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

bonjour,

utilise l'éditeur de macros

@+

[LeForestier]

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

[wilfried_42]

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