A
Audrey
Guest
Bonjour à toutes et à tous
En faisant des recherches dans l'historique je suis tombée sur un code que j'ai modifié selon mais besoin mais qui malheureusement ne fonctionne pas après modification.
Pour vous situez dans mon application:
Une fiche article est ouvert, après avoir modifier cet article (entrée ou sortie), je voudrais que lorsque je click sur 'mise à jour inventaire', celui s'ajoute ou se modifie au tableau situé dans la feuille inventaire.
De plus ActiveCell.value = Sheets.name ne fonctionne pas.
Pouvez-vous m'aider à améliorer ce code?
Sub mise_à_jour_inventaire_click()
'sélectionne l'inventaire
Sheets('Inventaire').Select
'si la 1ère ligne est vide commencé à cette ligne
If Range('b3').Value = '' Then
décalage = 0
Range('b3').Select
'sinon se position sur la 1ère cellule vide
Else
décalage = 1
Position = Range('b65000').End(xlUp).Address
Range(Position).Select
Range('b65000').End(xlUp).Select
End If
'ajout de la ligne
ActiveCell.Offset(décalage,0).Range('b2').Select
ActiveCell.Value = Sheets.Name
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('f16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('e16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('d16')
ActiveCell.Offset(0, 1).Range('2').Select
ActiveCell.Value = Range('g11')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g12')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g13')
End Sub
Merci d'avance!!!
En faisant des recherches dans l'historique je suis tombée sur un code que j'ai modifié selon mais besoin mais qui malheureusement ne fonctionne pas après modification.
Pour vous situez dans mon application:
Une fiche article est ouvert, après avoir modifier cet article (entrée ou sortie), je voudrais que lorsque je click sur 'mise à jour inventaire', celui s'ajoute ou se modifie au tableau situé dans la feuille inventaire.
De plus ActiveCell.value = Sheets.name ne fonctionne pas.
Pouvez-vous m'aider à améliorer ce code?
Sub mise_à_jour_inventaire_click()
'sélectionne l'inventaire
Sheets('Inventaire').Select
'si la 1ère ligne est vide commencé à cette ligne
If Range('b3').Value = '' Then
décalage = 0
Range('b3').Select
'sinon se position sur la 1ère cellule vide
Else
décalage = 1
Position = Range('b65000').End(xlUp).Address
Range(Position).Select
Range('b65000').End(xlUp).Select
End If
'ajout de la ligne
ActiveCell.Offset(décalage,0).Range('b2').Select
ActiveCell.Value = Sheets.Name
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('f16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('e16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('d16')
ActiveCell.Offset(0, 1).Range('2').Select
ActiveCell.Value = Range('g11')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g12')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g13')
End Sub
Merci d'avance!!!