utilisation des alias

Bonjour à tous

sur un fichier, avec plusieurs formulaire j'utilise régulièrement ce type de ligne :

Code:

---

1 2 3 4 5 6 7

Sheets("operation de tresorerie").Range("a65536").End(xlUp).Offset(1, 0) = nstock Sheets("operation de tresorerie").Range("b65536").End(xlUp).Offset(1, 0) = nom Sheets("operation de tresorerie").Range("c65536").End(xlUp).Offset(1, 0) = total + 0   Sheets("facture").Range("a65536").End(xlUp).Offset(1, 0).Value = Date Sheets("facture").Range("b65536").End(xlUp).Offset(1, 0).Value = box_nom.Value

---

est-il possible tout d'abord de créer un alias qui permettrait d’écrire de la sorte :

Code:

---

1 2 3 4 5 6 7

operation.finA.Offset(1, 0) = nstock operation.finB.Offset(1, 0) = nom operation.finC.Offset(1, 0) = total + 0   facture.finA.Offset(1, 0).Value = Date facture.finB.Offset(1, 0).Value = box_nom.Value

---

de sorte que chaque fois que je dois faire un range end xlup, je mette cette alias finA ou finB.
Mais aussi est-il possible de les déclarer une seule fois de sorte que ces alias sois utilisable sur plusieurs formulaire ?

merci

Bonjour Bosk1000,
Ce code peut-il vous conduire à une solution?

Bonne journée

Harry

Code:

---

1 2 3 4 5 6 7

Sub testrg() Dim rg1 As Range Dim nstock As Integer nstock = 10 Set rg1 = Sheets("feuil2").Range("a65536").End(xlUp) rg1.Offset(1, 0) = nstock End Sub

---

Pas vraiment,
car rg1 est utilisé avec une feuille spécifique

alors que je voudrais pouvoir utiliser l'alias spécifiquement sur plusieurs feuilles

que "finA" qui correspondrais à "Range("a65536").End(xlUp)", soit utilisable sur toutes les feuilles

je sais que on peux déclarer de la sorte :

Code:

---

1 2 3 4 5 6 7 8

Dim Dep As Workbook Set Dep = Workbooks("COMMANDE.xlsm") Dim Comgroupe As Worksheet Set Comgroupe = Dep.Worksheets("commandegroupée")   Comgroupe.Range("a65536").End(xlUp).Offset(0, MyOffset).Value = mtt1.Value

---

mais je n'arrive pas à faire un alias sur la deuxième partie qui soit utilisable sur plusieurs feuille

je n'ai pus faire que sur une feuille spécifique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Commande As Excel.Worksheet Set Commande = Application.ThisWorkbook.Worksheets("n°commande") Dim findecolonne As Range Set findecolonne = Commande.Range("B" & [b65536].End(xlUp).Row) Dim Groupe As Excel.Worksheet Set Groupe = Application.ThisWorkbook.Worksheets("commandegroupée") Dim findegroupeA As Range Set findegroupeA = Groupe.Range("A" & [a65536].End(xlUp).Row) Dim findegroupeB As Range Set findegroupeB = Groupe.Range("B" & [b65536].End(xlUp).Row)   If nom1.Value <> "" Then findecolonne.Offset(1, 0) = nom1.Value   If nom2.Value <> "" Then findegroupeA.Offset(2, 0) = commande2.Value findegroupeB.Offset(2, 0) = nom2.Value End If

---

mais à chaque fois je dois créer un alias pour chaque fin de ligne de chaque feuille.

Bonjour
Il existe des variables et constantes pour te donner la derniere lignes remplie sur une colonne ,sur une ligne
mais en aucun cas par une constante en dur
tu veux atribuer une constante a une cellule tu dois le faire a chaque fois que tu en a besoins surtout dans ton cas (plusieurs sheets)

Au plaisir

ok
merci