Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Modification valeur cellule avec VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion HUMANUM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

HUMANUM

XLDnaute Nouveau
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
 

Pièces jointes

Trier par date Trier par votes
Bonjour Humanum,

Un essai en Pj avec ce code :
VB: 
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Essai N° 2 :
VB: 
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2016 Calcul de la disponibilité chaque équipements en utilisant power query ou VBA
2
Réponses
18
Affichages
567
therse
T
B
  • Résolu(e)
Microsoft 365 Calcul horamètres avec remise à zéro des compteurs
2
Réponses
19
Affichages
1 K
Laurent78
L
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
191
Steph733
S
W
  • Question Question
XL 2013 Reporter valeur suivant date la plus ancienne
2
Réponses
15
Affichages
585
walki
W
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
262
candido57
C
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
137
mapomme
D
  • Question Question
XL 2016 VBA remplacement de valeur de cellule
Réponses
3
Affichages
104
Deadpool_CC
A
  • Question Question
XL 2019 VBA newbie
3 4 5
Réponses
72
Affichages
1 K
job75
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
120
Dudu2
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
526
telemarrk
T
H
  • Résolu(e)
Microsoft 365 Tentative d'utilisation du contrôle RefEdit
2
Réponses
21
Affichages
558
Dranreb
H
  • Question Question
Microsoft 365 Trier des données dans une colonne avec VBA
Réponses
9
Affichages
710
HUMANUM79
H
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
153
patricktoulon
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
471
Droopyougo
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
118
Ckyara31
C
A
  • Question Question
XL 2019 lister des données et les répertorier dans un nouveau tableur
Réponses
7
Affichages
529
adgm1
A
  • Résolu(e)
XL 2013 Histogramme avec une seule barre par cellule
Réponses
6
Affichages
205
CISCO
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
143
Yogean
Y
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
127
Dranreb
  • Question Question
XL 2021 VBA - Event / RaiseEvent Comment ça marche ? Timer avec SetTimer()
Réponses
8
Affichages
260
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…