Formatage d'une colone selon une autre

Nickel désolé je me suis mal exprimé merci beaucoup. .. merci.

Puisque on y est enfin arrivé, merci de passer ton fil en RESOLU (coche le v)

Nad

ET du coup, pour la zone d'impression,

ActiveSheet.PageSetup.PrintArea = Range("A1:AL" & derlg)

c'est possible ?

Je crois réellement que tu te fiches de moi.

Relis la page 2 de ce fil.

Oui j'ai fait une modif pour un cadre grâce à la sélection mais j'arrive pas à définir la zone d'impression

Bonjour à tous,

De plus en plus passionnant !

Nad, j'admire ta patience

Claude

Bonjour Claude

Ben je n'en n'ai plus. Je laisse tomber.

C'est pas faute d'avoir demandé ce qu'il voulait faire avec la sélection !

Si tu veux prendre le relais ....

Amicalement

Nad

Désolé j'étais un peu confus, ..

Bonjour,

Une question bien posée = une bonne réponse assurée

j'ai toujours pas pigé la tienne !

Amicalement

Claude

Avec le code à Nad ça me fait une bonne sélection j'aimerais faire de cette sélection ma zone d'impression.

Je n'arrive vraiment pas ..

Dim derlg As Integer

derlg = Range("E65536").End(xlUp).Row

Range("A1:AL" & derlg).Select

ActiveSheet.PageSetup.PrintArea = "$A$1"

Je souhaiterais juste dire à la fin de la ligne

ActiveSheet.PageSetup.PrintArea = "$A$1"

Que ce n'est pas $A$1 mais derlg !

Merci.

Bonjour,

Je suis impressionné par le nombre de réponses sur ce fil... pour au final ne pas toujours avoir compris cette demande.

Si je ne me trompe, ta dernière question trouve réponse en page 2 de ce fil --> Mar Fév 08, 2011 9:59 am

Avec :

• Printarea pour définir la zone à imprimer
• Printpreview pour visualiser le zone imprimable
• Printout pour imprimer

A bientôt

Re,

Erreur 438 sur

Range("A1:AL" & derlg).PrintArea

Dim derlg As Integer

derlg = Range("E65536").End(xlUp).Row

Range("A1:AL" & derlg).PrintArea

PrintPreview fonctionne je vois seulement ma sélection derlg mais printarea me fais l'erreur.

re,

Normal ce n'est pas le code correct..

Dim derlg As Integer
With ActiveSheet
derlg = .Range("E65536").End(xlUp).Row
.PageSetup.PrintArea = .Range("A1:AL" & derlg)
End With

Re

Erreur 1004 sur la ligne : .PageSetup.PrintArea = .Range("A1:AL" & derlg)

Voici mon code :

Sub Macro4()

'

' Macro4 Macro

'

'

Dim derlg As Integer

With ActiveSheet

derlg = .Range("E65536").End(xlUp).Row

.PageSetup.PrintArea = .Range("A1:AL" & derlg)

End With

End Sub

re,

Le code fonctionne sans pb chez moi.

Mets un fichier en ligne comme demandé précédemment.

J'aimerais bien sauf que je peux pas , si je pouvais ce serait déjà fait...

Bonjour,

essaye avec

With ActiveSheet
    derlg = .Range("E65536").End(xlUp).Row
    .PageSetup.PrintArea = .Range("A1:AL" & derlg).Address
End With

Prépare une loupe, car de A à AL !!!

Amicalement

Claude

Bonjour

Je prends en cours de route et j'y vais de ma question (inutile ?)

En colonne E tu as des données ?

EDIT: Oui en me relisant Derlg contiendra au moins 1

Donc inutile

-- 16 Fév 2011, 13:49 --

J'insiste

Il faudrait mettre

    .PageSetup.PrintArea = "A1:AL" & derlg

Merci avec le code de Claude c'est ok désolé de ma compliqueté .