Macros excel 2003

Résolu/Fermé

Nina78000 Messages postés 10 Date d'inscription lundi 3 février 2014 Statut Membre Dernière intervention 19 février 2014 - 3 févr. 2014 à 14:29
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 11 févr. 2014 à 13:40

Bonjour,

j'ai débute avec des macros, et peut être ce n'est pas très claire ce que je demande.
j'ai besoin pour mon travail quotidien,
j'ai crée qq macros pour les tableaux divers, la mise en page est parfait, mais a chaque fois il faut adapter et corriger mes tableaux, car les macros initiale ne correspond pas toujours aux nombre lignes, ça change tt les jours.
mes macros s arrête sur la ligne de tableau initial et il ne "savent pas lire" la vrais fin colonne (page).
on ma dit que il y a une formule, mais je ne trouve pas la quelle.
merci pour votre aide

A voir également:

Macros excel 2003
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

4 réponses

Réponse 1 / 4

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 3/02/2014 à 15:49

Bonjour

un petit résumé

Sub LesDer()
Dim DerCel As Range
Dim DerCol As Long, DerLig As Long

' les dernières de la feuille
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
DerCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Set DerCel = Cells(DerLig, DerCol)
MsgBox "La dernière ligne utilisé est la ligne : " & DerLig
MsgBox "La dernière colonne utilisée est la colonne : " & DerCol
MsgBox DerCel.Address

' dernière ligne colonne A
DerLig = Range("A" & Rows.Count).End(xlUp).Row

' dernière colonne ligne 1
DerCol = Cells(1,Columns.Count).End(xltoLeft).Column

End Sub

on put y ajouter pour coordonnées plage renseignée

Public Sub ders()
Dim a As String, derli as long , derco as string, premli as long, premco as string
a = ActiveSheet.UsedRange.Address
derli = Split(a, "$")(4)
derco = Split(a, "$")(3)
premli = Replace(Split(a, "$")(2), ":", "")
premco = Split(a, "$")(1)
End Sub

Cdlmnt

Réponse 2 / 4

Nina78000 Messages postés 10 Date d'inscription lundi 3 février 2014 Statut Membre Dernière intervention 19 février 2014
4 févr. 2014 à 09:22

Bonjour et merci de votre réponse,

je vais tester et je vous tien au courant.

cdt

Réponse 3 / 4

Nina78000 Messages postés 10 Date d'inscription lundi 3 février 2014 Statut Membre Dernière intervention 19 février 2014
5 févr. 2014 à 16:19

re-Bonjour,

je n'ai pas compris comment il faut modifier le nombre lignes en illimités.
Voila un extrait de mon macros que j'utilise tt les jour.
et bien sur, je corrige manuellement le nombre de lignes, car ce nombre change tt le temps.
Je voudrais que K465 se transforme en nombre ligne par rapport aux autres colonnes existantes. (En plus il y la mise en page dans ce extrait.)mais ça ne pas important

Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-7]+RC[-1]"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K465")
Range("K2:K465").Select
ActiveWindow.SmallScroll ToRight:=-3
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection.Interior
.ColorIndex = 50
.Pattern = xlSolid
End With

merci de votre aide

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 5/02/2014 à 19:53

Remplaces

Range("K2:K465").Select

par
derli = Range("K" & Rows.Count.End(xlUp).Row
pour la dernière ligne utilisée colonne K
ou
derli = Range("L" & Rows.Count.End(xlUp).Row
pour la dernière ligne non vide colonne L
ou ....
puis dans tous les cas
Range("K2:K" & derli).Select

N'oublies pas de déclarer derli (as long) dans la liste des variables

Bon courage

Nina78000 Messages postés 10 Date d'inscription lundi 3 février 2014 Statut Membre Dernière intervention 19 février 2014
11 févr. 2014 à 13:25

merci bcp pour votre aide,

j'ai réussi

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
11 févr. 2014 à 13:40

De rien

Peux tu mettre le problème à résolu (en haut à droite de ton premier message)

Bonne journée

Réponse 4 / 4

Nina78000 Messages postés 10 Date d'inscription lundi 3 février 2014 Statut Membre Dernière intervention 19 février 2014
6 févr. 2014 à 09:39

merci bcp.

je vais tester au plus vite.
ça me plaît bcp - des macros, ça me fascine, mais, malheureusement, je ne comprend pas grand chose, je me débrouille :)

Newsletters