XL 2013 Modification valeur cellule avec VBA

[HUMANUM]

Bonjour,
Je suis en train de travailler sur un tableur afin de réaliser le suivi de compteurs pour différentes machines.
J'ai tout solutionner sauf une chose, je voudrais pouvoir modifier les valeurs des compteurs en cas d'erreur. En pièce jointe le tableur pour mieux comprendre.

En fait, j'ouvre un UserForm VBA, je sélectionne l'équipement, je retape la date à laquelle j'ai fait une erreur et je tape le nouveau compteur.
Je n'arrive pas à renvoyer les données dans les bonnes cellules.

A savoir que le tableur joint est très minimaliste (c'est pour l'exemple) en fait il y a pratiquement 500 machines normalement. Donc hors de question de se contenter de mettre simplement un numéro de cellule pour renvoyer les donner.

Quelqu'un pour m'aider ?

Merci d'avance

 

[sylvanu]

Bonjour Humanum,

Un essai en Pj avec ce code :

Private Sub Valider_Click()
Dim L As Integer, C As Integer
' Capture des inputs
Equipement = Modification.Liste.Value
DateIn = Modification.TextBox1.Value
Compteur = Modification.TextBox2.Value
' Si une input est vide on sort
If Equipement = "" Or DateIn = "" Or Compteur = "" Then Exit Sub
' On suppose que equipement existe car choisi dans liste
L = Application.Match(Equipement, Sheets("feuil1").Range("A:A"), 0)
' On cherche la dernière cellule
C = Sheets("feuil1").Cells(L, Cells.Columns.Count).End(xlToLeft).Column
' On range les valeurs
Cells(L, C + 1) = DateIn
Cells(L, C + 2) = Compteur
' On décharge l'userform
Unload Modification
End Sub

il n'y a pas de vérif de date ou de valeurs, je colle les valeurs entrées sans chercher à comprendre.

 

[HUMANUM]

Merci mais ne n'est pas tout à fait ce que je veux.
L'idée est éventuellement de revenir sur le compteur d'une date.
Exemple, en admettant que le 01/03/2013 l'équipement E002 n'était pas à 850 heures mais à 900 heures, je veux que la valeur soit modifiée.

 

[sylvanu]

Essai N° 2 :

Private Sub Valider_Click()
Dim L As Integer, C As Integer
' Capture des inputs
Equipement = Modification.Liste.Value
DateIn = Modification.TextBox1.Value
Compteur = Modification.TextBox2.Value
' Si une input est vide on sort
If Equipement = "" Or DateIn = "" Or Compteur = "" Then Exit Sub
' On suppose que equipement existe car choisi dans liste
L = Application.Match(Equipement, Sheets("feuil1").Range("A:A"), 0)
' On cherche la  cellule où se trouve la date, si elle n'existe pas on sort
C = Application.Match(CDbl(CDate(DateIn)), Sheets("feuil1").Range(Cells(L, 1), Cells(L, 100)), 0)
If IsError(Application.Match(CDbl(CDate(DateIn)), Sheets("feuil1").Range(Cells(L, 1), Cells(L, 100)), 0)) Then
    ' Mettre ici message d'erreur éventuel car date non trouvée
    Exit Sub
End If
' sinon on calcule la colonne
C = Application.Match(CDbl(CDate(DateIn)), Sheets("feuil1").Range(Cells(L, 1), Cells(L, 100)), 0)
' On range les valeurs
Cells(L, C + 1) = Compteur
' On décharge l'userform
Unload Modification
End Sub

 

[HUMANUM]

C'est parfait !!! Génial, merci beaucoup

 

[_Thierry]

Bonjour @HUMANUM , @sylvanu , le Forum

J'avais aussi travaillé de mon côté sans avoir regardé l'évolution de ce fil, là j'ai fait une mini-application pour ce truc... (Comme je connais aussi la manière dont le tableau est généré par un autre Fil d'Humanum)

Je te laisse découvrir...

Bien à toi, à vous
@+Thierry

 

[_Thierry]

Re Bonjour

Sylvanu, j'ai essayé ta version post #5, :

Admettons je veux updater la dernière ligne

Je veux ajouter un 7 au compteur :

Ca fait boum

Ou peut-être je n'ai pas compris quelque chose ?

Bonne fin de journée
@+Thierry

 

[sylvanu]

Bonsoir Thierry,
Les cellules H3 H4 ne sont pas des dates mais du texte.
En PJ ce sont des dates.
J'ai supposé que le contenu seront des dates dans le fichier final.

 

[_Thierry]

Re Sylvanu

Ah oui, ca va bien mieux
J'ai même updaté dans les colonnes AX et AV (je teste à fond !)

Bien à toi
@+Thierry

 

[sylvanu]

Ceci dit, Humanum regardera votre solution qui est plus aboutie.
Elle évite la saisie qui peut être source d'erreur, surtout sur un fichier de 500 machines.

 

[_Thierry]

Re

En relisant un peu tout ça et en voyant que Sylvanu ne gère pas le changement de Date mais que de Compteur, je me rends compte que ma version va au delà des besoins, puisque les deux peuvent être changés une fois repérés/targettés...

Bon ca servira toujours d'exemple LoL !


Bien @Vous
@+Thierry

EDIT post #10 lu entretemps, ah oui d'accord avec toi Sylvanu, mais bon peut-être juste que de pouvoir changer la Date aussi est une option dangeureuse pour la gestion d'Humanum !

 

[sylvanu]

Re,
Il suffit d'invalider cette ligne pour que la nouvelle date ne puisse pas être utilisée :

'.Range(Me.LBL_Date_Address) = CDate(Me.TXB_Date)

 

[_Thierry]

Oui ca c'est sûr et certain, mais à ce nivaux là même la TXB_Date peut-être supprimée ou du moins grisée à l'initialise :
Me.TXB_Date.Enabled = False

Merci du suivi
@+Thierry

 

[HUMANUM]

Merci pour ce complément d'info.

 

[HUMANUM]

Bonjour Thierry,
Toujours plus dur ! J'ai ajouté une colonne, maintenant j'ai 2 compteurs par date. Je pensais m'en sortir avec ton fichier mais je n'y arrive pas.
On ne s'improvise pas Expert en VBA !

Tu peux une fois de plus m'apporter ton aide ?

Merci d'avance

(voir pièce jointe)