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