[Excel] Détection cellulles pleines

Version imprimable

31/10/2006, 16h25
Destiny

[Excel] Détection cellulles pleines
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:

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

voir

Code:

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

31/10/2006, 17h18
Destiny

désolé mais ca ne marche pas...
31/10/2006, 17h20
SfJ5Rpw8

Citation:

Envoyé par Destiny

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

en fait j'aimerai faire ca:

Code:

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:

While Cells(1, i) <> ""

et là

Code:

NumCol = Cells(1, i).Column

31/10/2006, 17h48
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:

1 2 feuil.Range(feuil.Cells(1, 15), feuil.Cells(1, 20)).EntireColumn.Hidden = True
31/10/2006, 17h52
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.. :)
31/10/2006, 17h55
dadavyvy

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

Code:

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?
31/10/2006, 17h57
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:

1 2 feuil.Range(feuil.Cells(1, 15), feuil.Cells(1, 20)).EntireColumn.Hidden = True
31/10/2006, 18h41
ouskel'n'or

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

Code:

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

ou

Code:

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

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

Code:

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:

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+