> Tous les forums > Forum Bureautique
 derniere colonneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
bruce68
  Posté le 13/01/2006 @ 12:02 
Aller en bas de la page 
Petit astucien
Bonjour à tous est t'il possible de trouver la lettre ou les lettres de la derniere colonne d'un tableu avec une macro. je remercie tous ceux qui voudrons bien me répondre Bonne journée à tous
Publicité
galopin01
 Posté le 13/01/2006 à 12:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonjour, en pratique on n'utilise jamais la lettre d'une adresse, juste le N° de ligne ou le N° de colonne...[code]Sub test() dercol = Split(Cells.SpecialCells(xlLastCell).Address, "$")(1) MsgBox dercol End Sub[/code]
bruce68
 Posté le 13/01/2006 à 13:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Merci galopin 01 pour ta réponse Dans mon tableau la premiere ligne me sert à mettre des formules et la macro me donne bien la derniere colonne du tableau entier moi je voudrais la derniere colonne de mon tableau à imprimer il est souvent plus court que la premiere ligne. exemple: premiere ligne va jusqu'en AA1 (dans cette ligne se trouve beaucoup de chose:des Formules,des infos etc.. .) La derniere Colonne du tableau à imprimer E départ premiere cellule A3)Tableau à imprimer= A3:E60 Ou alors selectionner tout le tableau sans tenir compte des titres pour l'impression, les titres étant recuperable par Fichier, Mise en page, Feuille, Ligne à répéter en haut Je comptais récuperer la lettre de la colonne et recuperer le chiffe par CountA En associant les deux j'avais ma derniere cellule. Comme cela le tableau d'impression peut grandir dans tous les sens sans etre obligé de modifier l'adresse dans la macro. Voilà le but de ma rcherche avec derniere cellule j'ai le meme probleme

Modifié par bruce68 le 13/01/2006 13:23
galopin01
 Posté le 13/01/2006 à 14:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonjour, Tu pourrais peut-être nommer (Insertion/Nom/Définir) ta dernière cellule. et ensuite reprendre dercol = Split(Range("MaCelluleNommée").Address, "$")(1) Quel que soit le nombre de lignes ou colonnes insérées la cellule nommée restera la dernière. Ok ? A+

Modifié par galopin01 le 13/01/2006 14:22
bruce68
 Posté le 13/01/2006 à 14:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
c'est faisable mais ce qui se trouve dans la ligne A1 va se déplacer et risque de ne plus fonctionner correctement dans :incertion de colonne, pour incertion de ligne pas de probleme Est t'il possible de selectionner le tableau comme ceci et de l'imprimer et de rederminer la plage à chaque impression pour verification de la grosseur du tableau Va cellule A65346 end Haut (selection de la derniere cellule de la premiere colonne) end Haut( pour selectionner la hauteur du tableau ) - 1 ligne (pour supprimer la ligne des titres) End droite (pour selectionner tout le tableau) imprime la selection. C'est cela que je veux réaliser et avec ceci je suis sur de n'avoir que mon tableau sans les lignes de titres je remercie encore galopin01 pour ce pencher sur mon prb
galopin01
 Posté le 13/01/2006 à 15:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Et si tu masquais purement et simplement ta première ligne au moment de l'impression tu n'aurais plus de problème de zone d'impression... Sinon si... j'ai bien compris tu peux utiliser ça :[code]Sub test() i = Cells(65535, 1).End(xlUp).Row MsgBox i j = Cells(i, 256).End(xlToLeft).Column MsgBox j zimp = Range("A1:" & Cells(i, j).Address).Address MsgBox zimp End Sub[/code]A+
bruce68
 Posté le 13/01/2006 à 22:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Merci Galopin01 C'est tout à fait ce que je voulais, avec cette macro mon tableau peut s'allonger en largeur comme en hauteur je ne dois pas intervenir. Sub Imprime() i = Cells(65535, 1).End(xlUp).Row j = Cells(i, 256).End(xlToLeft).Column zimp = Range("A4:" & Cells(i, j).Address).Address ActiveSheet.PageSetup.PrintArea = zimp End Sub Pour ceux que ça interesse il faut la recopier Elle peut encore s'amélioerer, il y a le principal
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
122,02 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Crucial Ballistix 3200 MHz à 122,02 €
Valable jusqu'au 27 Septembre

Amazon fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Crucial Ballistix 3200 MHz CL16 qui passe à 122,02 € livré gratuitement alors qu'on le trouve ailleurs à partir de 150 €.


> Voir l'offre
124,99 €Box Android Nvidia Shield TV 2019 8 Go avec télécommande à 124,99 €
Valable jusqu'au 27 Septembre

Fnac fait une belle promotion sur la box Android Nvidia Shield TV 2019 8 Go avec sa télécommande à 124,99 €. On trouve ailleurs ce pack à partir de 159 €. Compatible FullHD et 4K, vous pourrez utiliser vos applications Android, jouer et regarder des films et des séries en très haute résolution sur votre TV (compatible Kodi, Molotov, Netflix, Disney+, YouTube ...).


> Voir l'offre
24,99 €Clavier sans fil Logitech Wireless Desktop K400 Plus avec pavé tactile à 24,99 €
Valable jusqu'au 28 Septembre

Amazon fait une promotion sur le clavier sans fil Logitech Wireless Desktop K400 Plus à 24,99 €. Ce clavier sans fil dispose d'un large pavé tactile de 9 cm avec navigation multipoint pour un pointage à un doigt simplifié et un défilement vertical à deux doigts. Idéal pour contrôler votre ordinateur à distance, s'il est connecté à une TV par exemple. On le trouve ailleurs à partir de 40 €. 


> Voir l'offre

Sujets relatifs
Comment aller recherche les X dernière valeur d'une colonne
Comment afficher la dernière information d'une colonne Excel
Renvoyer derniere valeur colonne feuille precedent
Dernière valeur d'une colonne de nombres
Atteindre dernière colonne
Dernière valeur d'une colonne ??
Atteindre la dernière cellule de la colonne A
une colonne de calcul automatique
listing et somme valeurs unique dans colonne excel
Inskape dernière version 0.91
Plus de sujets relatifs à derniere colonne
 > Tous les forums > Forum Bureautique