[excel]Récupérer la dère ligne ou autre..

**kenny49** · 25/07/2006, 16h10

bonjour,

Je voudrais qu'à partir d un tableau excel dont je ne connais pas la taille pouvoir a l aide d une macro faire en sorte de modifier la largeur des cellules et pour certaines colonnes centrer le contenu.
J'ai le début de la solution, puisqu'en enregistrant une macro et en selectionnnant le nom des champs je peux modifier la largeur des cellules.
Le pb se pose pour centrer le contenu de certaines colonnes (ce sera tjs les memes colonnes). Effectivement, pour pouvoir centrer le contenu des cellules de ces colonnes il faut sélectionner toutes les cellules et puis avec des clics ordonner le centrement. Le probleme est qu'il faaut connaitre la dèrniere ligne sélectionnée pour pouvoir effectuer ce centrement.

Voici le code généré: (si vous pensez que je fais fausse route signalez le merci)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub macroLargeur()
'
' macroLargeur Macro
' Macro enregistrée le 25/07/2006 par 
'
    Columns("B:B").ColumnWidth = 33.57
    Columns("A:A").ColumnWidth = 15.57
    ActiveWindow.SmallScroll Down:=51
    Columns("C:C").ColumnWidth = 14.14
' il faut selectionner la dere cellule ( en ordonnée ie le N° de ligne)
' ou il y a qqch d'ecrit dedans
    Range("C1:C67").Select
    Range("C67").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
End Sub

**Theocourant** · 25/07/2006, 16h19

Bonjour,

Il n'y a pas forcément besoin de connaître le numéro de la dernière ligne pour sélectionner une colonne entière ...

Code :

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

Range("C:C").HorizontalAlignment = xlCenter

Essaie ce code

+

Théo

**SfJ5Rpw8** · 25/07/2006, 16h19

juste une chose est-ce génant de centrer des cellules vides ..? ou j'ai pas compris ce que tu voulais centrer...

Code :

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

1
2
 
columns("C").HorizontalAlignment = xlCenter

**kenny49** · 25/07/2006, 16h28

non ce n'est pas genant de centrer des cellules vides c'est juste que si mon tablaeu fait 300 lignes et que je veuille centrer 2 colonnes je voudrais pas que ma macro centre 2 colonnes mais sur 10 000 lignes (ou qqch du style qui ferait perdre du temps à l'utilisateur, peut etre ce que j 'ecris est il encore impertinent en VB)
Sinon le code fourni fonctionne merci!

**Theocourant** · 25/07/2006, 16h30

Envoyé par kenny49

non ce n'est pas genant de centrer des cellules vides c'est juste que si mon tablaeu fait 300 lignes et que je veuille centrer 2 colonnes je voudrais pas que ma macro centre 2 colonnes mais sur 10 000 lignes (ou qqch du style qui ferait perdre du temps à l'utilisateur, peut etre ce que j 'ecris est il encore impertinent en VB)
Sinon le code fourni fonctionne merci!

Quand tu le fais manuellement cela se fait presque intentanément donc par le code c'est la même chose ... C'est seulement si tu faisais un traitement cellule par cellule que cela prendrait plus de temps (même chose manuellement)

+

Théo

PS : si cela te convient, un petit clic sur le tag

et ce sera nickel

**Elstak** · 25/07/2006, 16h31

Hello,

tu peux tout centrer les 65000 lignes ca ira aussi vite que 300 (enfin ptet que ca met 0,01 sec de plus

)

sinon pour connaitre la derniere ligne si ca peut te servir ailleurs :

Code :

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

1
2
3
Sheets(1).Select
[A6].Select
DerniereLigne = Selection.End(xlDown).Row

**Theocourant** · 25/07/2006, 16h34

Envoyé par Elstak

Hello,

tu peux tout centrer les 65000 lignes ca ira aussi vite que 300 (enfin ptet que ca met 0,01 sec de plus

)

sinon pour connaitre la derniere ligne si ca peut te servir ailleurs :

Code :

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

1
2
3
Sheets(1).Select
[A6].Select
DerniereLigne = Selection.End(xlDown).Row

La solution que nous avons donné, bbil et moi-même, le fait en faisant directement le traitement de la colonne et sans nécessité de faire la sélection de toutes les cellules...

**kenny49** · 25/07/2006, 16h43

oui, j'allais y venir:

j' ai écrit un script qui permet de faire une insertion de lignes vierges une ligne sur 2 ( au debut on a un fichier excel qui a x lignes, a la fin on a ce meme fichier avec 2*x lignes dont x vierges)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub MacroInsertion()
'
' on selectionnera à la derniere ligne la premiere cellule
 
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
Dim j
' ZtnumLig correspond a la dere ligne du fichier (celle dont l'utilisateur a selectionné une cellule)
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
i = -1
Application.ScreenUpdating = False
For j = 1 To ZtNumLig
i = i + 1
Cells(j + i, 1).EntireRow.Insert
Next j
ActiveCell.Range("A2").Select
End Sub

Comment faire en sorte que l'utilisateur n'est meme pas besoin de selectionner une cellule pour executer la macro?

Est ce que remplacer

Code :

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

ZtNumLig = ActiveCell.Row

par

Code :

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

ZtNumLig =Selection.End(xlDown).Row

fonctionnerait?

Merci d'avance

**ouskel'n'or** · 25/07/2006, 18h58

Comment faire en sorte que l'utilisateur n'est meme pas besoin de selectionner une cellule pour executer la macro?

Je pense que tu veux dire "... n'ait pas besoin de selectionner la dernière cellule de la colonne" ?

**Elstak** · 26/07/2006, 08h59

Si tu mets :

Code :

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

ZtNumLig =Selection.End(xlDown).Row

tu auras la derniere ligne de la zone de ta cellule active.
si c'est toujours la meme cellule tu peux la selectionner avant comme ca l'utilisateur n'aura pas à le faire

Code :

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