Discussion :

[bosk1000]

Bonjour à tous

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Harry Covair]

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

Bonne journée

Harry

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bosk1000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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

[bosk1000]

ok
merci