Discussion :

[Destiny]

Bonjour,

je suis fait une petit application excel, et j'aimerai savoir comment détecter l'avant dernière ligne qui contient quelque chose.

Code :

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

1
2
3
4
5
6
7
8
9
Dim nom_colonne, Var As String
 
Var = "Z"
 
 
    Columns("O:" + Var + "").Select
    Selection.EntireColumn.Hidden = True
 
End Sub

En fait j'aimerais avoir au lieu de Z l'avant derrnière collone qui contient du texte.

si vous avez une idée merci d'avance

[SfJ5Rpw8]

voir

Code :

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

1
2
 
Range("O1",range("IV1").End(xlToLeft).Offset(0,-1)).EntireColumn.Hidden = true

[Destiny]

désolé mais ca ne marche pas...

[SfJ5Rpw8]

désolé mais ca ne marche pas...

? ben pourquoi. .?

tu n'as rien sur ta premiére ligne..? , tu n'agit pas sur la feuille en cours..?

[Destiny]

en fait j'aimerai faire ca:

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
24
25
26
27
28
29
Dim nom_colonne, Var As String
 
Var = "Z"
 
 
While Cells(1, i) <> ""
 
i = i + 1
 
Wend
 
 
 
 
 
'permet de trouver la lettre associée au chiffre pour la colonne
 
NumCol = Cells(1, i).Column
 
 
  lettre = IIf(NumCol > 26, Chr(64 + NumCol \ 26) & Chr(64 + NumCol Mod 26), Chr(64 + NumCol))
 
 
 
 
    Columns("O:" + lettre + "").Select
    Selection.EntireColumn.Hidden = True
 
End Sub

mais j'ai des erreurs apparement...
là:

Code :

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

While Cells(1, i) <> ""

et là

Code :

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

NumCol = Cells(1, i).Column

[dadavyvy]

Que vaut "i" lors de ta 1ere erreur?
Et sache que, sauf erreur, Cells(1, i).Column est égal à i

Pour masquer de la colonne 15 à 20 par exemple :

Code :

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

1
2
 
feuil.Range(feuil.Cells(1, 15), feuil.Cells(1, 20)).EntireColumn.Hidden = True

[Destiny]

J'aimerais comme numéro de colonne, la dernière qui contient quelque chose dans une de ses ligne...

c'est tout, mais je ne sais absolument pas comment faire..

[dadavyvy]

Ta methode est bonne, et celle de bbil aussi.
Il faut juste initialiser :

Code :

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

i = 1

Par contre si tu as tjs un message d'erreur, c'est que toutes tes cellules sont remplies jusqu'a la derniere.
Donc combien vaut ton "i" dans la boucle, quand tu as le message d'erreur?

[dadavyvy]

au fait, as-tu reelement besoin de connaitre la lettre de la colonne? je crois que juste le numero suffit, si c'est juste pour la masquer :
Pour masquer de la colonne 15 à 20 par exemple :

Code :

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

1
2
 
feuil.Range(feuil.Cells(1, 15), feuil.Cells(1, 20)).EntireColumn.Hidden = True

[ouskel'n'or]

En fait, si ce que tu veux connaître, c'est la dernière colonne renseignée...

Code :

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

    DernièreColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column

ou

Code :

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

    DernièreColonne = Cells(1,1).SpecialCells(xlCellTypeLastCell).Column

Et maintenant, pour la lettre correspondante, suffit que tu fasses,
avec VBA97 :

Code :

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

LaDerDesDer = left(Columns(DernièreColonne).Address, instr(Columns(DernièreColonne).Address, ":") - 1)

et, selon AlainTech et VBA > 97 où c'est encore plus simple

Code :

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

LaDerDesDer = Split(Columns(DernièreColonne).Address(ColumnAbsolute:=False), ":")(1)

Jète un oeil ici http://www.developpez.net/forums/sho...d.php?t=227092 tout est dit
A+