Formatage d'une colone selon une autre

Bonjour à tous,

comment sélectionner A à AL et jusqu'à la fin de mes lignes remplies

qu'appelle-tu lignes remplies, quelle colonne de référence ?

A mon avis, il faut d'abord filtrer la feuille (cellules remplies) pour

définir la plage à imprimer.

Envoie la feuille (raccourcie si besoin)

Amicalement

Claude

Oui je veux seulement les celules remplies. Nad m'avait montré une technique qui consistait à sélectionner toutes les vides, bah moi je veux l'inverse, c'est tout, rien de plus, pas de mise en page d'impression ou quoi que ce soit, juste sélectionner mes celules pleines...................

re,

C'est si dur que çà, de joindre une feuille ?

Re

J'ai relu tout le fil pour essayer de comprendre ce que tu veux.

Donc, tu veux sélectionner toutes les cellules de la plage A1 à Lx (x étant la dernière cellule remplie de la colonne B si on se réfère à ton tableau de la 1ère page de ce fil)

La question est : que veux-tu faire de cette sélection ?

A te relire

Nad

Nad : exactement . j'aimerais juste mettre un simple cadre autour. merci.

Re

steve15 a écrit :

C'est pour définir toutes mes celules pleines en format d'impression.

steve15 a écrit :

j'aimerais juste mettre un simple cadre autour

Je ne sais pas si on va arriver à comprendre ce que tu veux.

Nad

Mais ça change à quoi au code final que ce soit pour l'un ou pour l'autre ? Je vous demande juste comment sélectionner ces celulles...

Ce code sélectionne les cellules non vides :

Sub NonVide()
Dim c As Range
Dim derlg As Integer
derlg = Range("B65536").End(xlUp).Row
For Each c In Range("A1:AL" & derlg)
If c <> "" Then
Range(Selection.Address + "," + c.Address).Select
End If
Next
End Sub

Maintenant, à toi de voir ce que tu veux en faire ....

Nad

Re

merci beaucoup le problème c'est que là il me sélectionne que ma première ligne, par contre il sélectionne juste de A à AL (c'est bien ce que je veux)

Comme déjà demandé, envoie ton fichier

Nad

Voilà ! sauf que normalement c'est grouppé.

Re

Après test, mon code ne sélectionnait que 50 cellules maximum.

Prends celui-ci :

Sub NonVide()
Dim derlg As Integer
derlg = Range("B65536").End(xlUp).Row
Range("A1:AL" & derlg).SpecialCells (xlCellTypeConstants), Range("A1:AL" & derlg).SpecialCells(xlCellTypeConstants).Select
End Sub

Nad

Salut

Merci

Le problème c'est que si tu groupes par sous-total ça sélectionne que la première ligne..

Bonjour

Envoie ton fichier réel car j'ai testé et je n'ai pas ton soucis

Nad

Je vous joint ici le fichier original.

Essayez votre code avec les lignes groupées vous verrez ça ne joue pas :s

Merci par avance.

Steve.

-- 10 Fév 2011, 09:48 --

-- 10 Fév 2011, 09:50 --

Re

Il faut se baser sur la colonne E pour déterminer la dernière ligne

Sub NonVide()
Dim derlg As Integer
derlg = Range("E65536").End(xlUp).Row
Range("A1:AL" & derlg).SpecialCells(xlCellTypeConstants).Select
End Sub

Nad

Re

Là il me sélectionne pas comme je souhaite...

il faudrait qu'il sélectionne tout de A à AL et de 1 à ...

Merci.

C'est bien ça que tu veux obtenir ?

Edit : suppression de l'image

Non ce serait plus tôt ça :

P.S Peux-tu supprimer tes deux images précédentes (ou les autres si tu en as encore), merci

C'est une plaisanterie ou quoi ?

steve15 a écrit :

Oui je veux seulement les celules remplies.

et maintenant tu veux toutes les cellules, même les vides. Enfin, bref ...

Sub NonVide()
Dim derlg As Integer
derlg = Range("E65536").End(xlUp).Row
Range("A1:AL" & derlg).Select
End Sub

Nad