Discussion :

[Seb62142]

Bonjour je souhaite ajouté +1 a la valeur de ma dernière ligne renseigné d'un tableau dans la feuille archivage du même classeur.
quand j'ai fait avec l'enregistreur de macro il me renvoi pas la bonne ligne voici le code

ActiveCell.FormulaR1C1 = "=archivage!R[5]c[-1] + 1"

Merci de votre aide

[Valtrase]

Bonjour,

Bonjour je souhaite ajouté +1 a la valeur de ma dernière ligne renseigné d'un tableau dans la feuille archivage du même classeur.

Je ne comprends pas trop la demande. Si c'est pour incrémenté un index, je ne pense pas que cela soit la bonne solution. En effet si vous supprimez des lignes du tableau, bonjour les dégâts.
Dites-nous en plus sur cet incrémentation.

[Seb62142]

Bonjour,

Je ne comprends pas trop la demande. Si c'est pour incrémenté un index, je ne pense pas que cela soit la bonne solution. En effet si vous supprimez des lignes du tableau, bonjour les dégâts.
Dites-nous en plus sur cet incrémentation.

Bonjour merci de vôtre aide oui c'est pour incrémenté des numéros de bon de commande je souhaite une fois la commande enregistré qu'il me mets le prochain numéro de commande voici le code complet de ma macro
Sub archivage()
'
' archivage Macro
' enregistre la commande
'

'
Range("B8").Select
Selection.Copy
Sheets("archivage").Select
Range("Tableau5[[#Headers],[Numero de commande]]").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 1).Select
Sheets("bon de commande").Select
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivage").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 1).Select
Sheets("bon de commande").Select
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivage").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 1).Select
Sheets("bon de commande").Select
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivage").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 1).Select
Sheets("bon de commande").Select
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivage").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 1).Select
Sheets("bon de commande").Select
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivage").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("bon de commande").Select
Range("detail_commande").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D13,D12,D10,B10,B8").Select
Range("B8").Activate
Selection.ClearContents
Range("B8").Select
ActiveCell.FormulaR1C1 = "=archivage!R[5]c[-1] + 1"
Range("B10").Select
End Sub

merci

[Valtrase]

Re,
Pour commencer il serait bien d'être plus explicite :

Range("B8").Select

Ceci fait référence à la feuille active, qui d'après ce que j'en déduit et la feuille des commandes. Donc si c'est cela il faut la nommer et utiliser son Nom
Pièce jointe 661327
Un exemple ici en Orange le CodeName utilisé dans l'environnement VBE et son nom en vert.
Donc cela donne :

Code :

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

sh_Commandes.Range("B8").Select

J'ai aussi vu que vous utilisiez des tableaux structurés, exemple "Tableau5", vous pouvez utiliser leurs puissance. mais là aussi il faut leur donner un nom explicite. par exemple "vt_Commandes" ou bien t_Commandes, ou encore tab_Commandes.
Pour ma part j'utilise "vr_" en préfixe pour les champs nommés, "vt_" en préfixe pour les tableaux.
une fois nommés correctement vous pouvez utiliser leurs propriétés, méthodes, collections...
Par exemple :
ListRows est la collection de lignes du tableau. Vous pouvez ajouter très facilement une ligne à la collection. Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim lstR As Excel.ListRow
    Set lstR = sh_Archivages.Range("vt_Archivages").ListObject.ListRows.Add ' // Ajout d'une ligne et affectation à une variable objet (lstR)
    With lstR
    ' // Changer  Colonne 1 par le nom de la 1 ère colonne.
    .Range(.Parent.ListColumns("Colonne 1").Index).Value = sh_Commandes.Range("B8").Value ' // Affectation des valeurs
    .Range(.Parent.ListColumns("Colonne 2").Index).Value = sh_Commandes.Range("B10").Value
    '...
    '...
    End With

Vous pouvez ainsi remplir la ligne du tableau.
Maintenant concernant l'Index max si la colonne se nomme "ID" par exemple, vous pouvez utiliser soit la fonction Max d'Excel, soit sauvegarder le numéro d'index sur une feuille de paramètres.
Vous noterez que vous n'avez nul besoin de faire des Select, Copy, Paste. vous pouvez faire des affectations directes.

Code :

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

sh_Archivages.Range("D8").Value = sh_Commandes.Range("B10").Value

[Seb62142]

merci de vôtre aide, je débute avec les macros je n'ai pas encore les reflexe, mon problème est résolu grâce à vous avec la fonction max merci encore