Bonjour tout le monde,
Je vous mets en contexte;
- J’ai un onglet pour ma saisie de données
- J’ai plusieurs onglets où mes données sont acheminées
- J’ai une section sur la main-d’œuvre, qui comprend les noms, taux horaire et total
- Présentement, lorsque j’entre des nouvelles données pour la main-d’œuvre, celles-ci se rajoute et s’additionne l’une après les autres même quand je saisie deux fois la même personne.
Voici ce que j’ai présentement comme code :
J’aimerais en fait que lorsque je saisis X fois le même nom, que les colonnes taux horaire et total s’additionne avec les anciennes données déjà saisis.
Merci à tous d'avance
Je vous mets en contexte;
- J’ai un onglet pour ma saisie de données
- J’ai plusieurs onglets où mes données sont acheminées
- J’ai une section sur la main-d’œuvre, qui comprend les noms, taux horaire et total
- Présentement, lorsque j’entre des nouvelles données pour la main-d’œuvre, celles-ci se rajoute et s’additionne l’une après les autres même quand je saisie deux fois la même personne.
Voici ce que j’ai présentement comme code :
Code:
Sub MOFabrication()
' Declaration des variables
Dim Nom As String, tauxhoraire As Integer, nbrheures As Integer, total As Integer, Projet As String
Sheets("ModèleR").Activate
' Valeurs des variables
Nom = Range("A21").Value
tauxhoraire = Range("B21").Value
nbrheures = Range("C21").Value
total = Range("D21").Value
Projet = Range("E21").Value
If Nom <> "" And tauxhoraire <> 0 And nbrheures <> 0 And total <> 0 Then
ThisWorkbook.Worksheets(ModèleR.[E21].Value).Activate
Range("F142").Activate
Do
If ActiveCell.Value = "" Then Exit Do
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = Nom
ActiveCell.Offset(0, 1) = tauxhoraire
ActiveCell.Offset(0, 2) = nbrheures
ActiveCell.Offset(0, 4) = total
End If
Sheets("ModèleR").Select
Range("A21, C21, E21").ClearContents
End SubJ’aimerais en fait que lorsque je saisis X fois le même nom, que les colonnes taux horaire et total s’additionne avec les anciennes données déjà saisis.
Merci à tous d'avance