Deux variables pour une fonction match est ce possible ?

Le 27/09/2021 à 20:14

Bonjour,

j'ai un formulaire qui me sert à enregistrer des machines et leur affectation, dans une page "machines" et une page "affectations", mais mon soucis j'arrive à modifier et enregistrer une nouvelle machine sans créer de doublons dans la page "machine", mais dans la page intervention je voulais enregistrer toutes les affectations même si il s'agit e plusieurs fois la même machine voici le code que j'ai mis ( j'y connait pas grand chose en code j'ai fais par similitude en recherchant sur les forums ).

On Error Resume Next
num_ligne = Application.WorksheetFunction.Match(Sheets("formulaire machines").Range("K12"), Sheets("affectation").Range("G:G"), 0)
On Error GoTo 0

La case K12 est la date d'affectation que je remplis dans le "formulaire machine", le G correspond à ma colonne ou la date s'enregistre dans la feuille "affectation", seulement voilà je peut ainsi enregistrer plusieurs fois la même machine mais une seul fois par jour, si j'ai plusieurs machines le même jour celà n'en prend qu'une.

Comment puis je faire pour pouvoir enregistrer plusieurs machines différentes pour un même jour.

Le 27/09/2021 à 21:05

Hello,

Post un fichier de test on y verra plus clair

Le 27/09/2021 à 21:10

Je joins mon fichier cela ne m'enregistre qu'une seul date dans la page affectation, je ne peux pas enregistrer plusieurs machines pour la même date ( c'est le module valider11 )

3machinesessai41.xlsm (82.31 Ko)
Le 27/09/2021 à 21:30

Si tu veux ajouter une ligne à ton tableau fait plutôt comme ceci :

Option Explicit
Sub btn_valider11_lanceur()

Dim num_ligne As Range

On Error Resume Next
Sheets("affectation").ShowAllData
On Error GoTo 0

Sheets("affectation").Rows("1:1048576").EntireRow.Hidden = False
Sheets("affectation").Columns("A:XFD").EntireColumn.Hidden = False

Set num_ligne = ActiveWorkbook.Worksheets("affectation").ListObjects("Tableau5").ListRows.Add.Range
With num_ligne
    .Cells(2) = Sheets("formulaire machines").Range("D6")
    .Cells(3) = Sheets("formulaire machines").Range("D8")
    .Cells(4) = Sheets("formulaire machines").Range("I12")
    .Cells(5) = Sheets("formulaire machines").Range("E14")
    .Cells(6) = Sheets("formulaire machines").Range("K14")
    .Cells(7) = Sheets("formulaire machines").Range("K12")
    .Cells(8) = Sheets("formulaire machines").Range("I16")
End With

End Sub
Le 27/09/2021 à 21:37

je veux que cela enregistre mais une seul fois par exemple j'appelle la machine m392 je modifie son affectation je valide et cela m'enregistre la nouvelle affectation dans la page affectation par contre, si je ne modifie que les caractéristiques machines et que je clique sur valider, cela m'enregistre les modif dans machines mais pas dans affectation car je n'y ai rien modifier.

Le 27/09/2021 à 21:39

je veux que cela enregistre que si j'ai fais des modifications dans la partie affectation

Le 28/09/2021 à 13:10

Bonjour,

Comment puis je enregistrer une seule fois le numéro de machine par jour et que je peux enregistrer plusieurs numéros différents sur un même jour. En gros c'est le code que j'aimerais.

Merci d'avance à ceux qui pourront m'aider

Le 28/09/2021 à 18:31

Le numéro de machine se trouve où dans ton formulaire machine ? Quelle celulle ?

Le 28/09/2021 à 18:37

C'est la cellule E6 ( n Sis)

Le 28/09/2021 à 18:54

Si j'ai bien compris :

Option Explicit
Sub btn_valider11_lanceur()

Dim num_ligne As Range
Dim num_mach As String
Dim date_affectation As Date

On Error Resume Next
Sheets("affectation").ShowAllData
On Error GoTo 0

Sheets("affectation").Rows("1:1048576").EntireRow.Hidden = False
Sheets("affectation").Columns("A:XFD").EntireColumn.Hidden = False

With Sheets("formulaire machines")
    num_mach = .[D6]
    date_affectation = .[K12]
End With

If Not IsError(Application.Match(num_mach, Worksheets("affectation").Columns(2), 0)) Then
    If IsError(Application.Match(date_affectation, Worksheets("affectation").Columns(7), 0)) Then
        Set num_ligne = ActiveWorkbook.Worksheets("affectation").ListObjects("Tableau5").ListRows.Add.Range
        With num_ligne
            .Cells(2) = Sheets("formulaire machines").Range("D6")
            .Cells(3) = Sheets("formulaire machines").Range("D8")
            .Cells(4) = Sheets("formulaire machines").Range("I12")
            .Cells(5) = Sheets("formulaire machines").Range("E14")
            .Cells(6) = Sheets("formulaire machines").Range("K14")
            .Cells(7) = Sheets("formulaire machines").Range("K12")
            .Cells(8) = Sheets("formulaire machines").Range("I16")
        End With
    Else: MsgBox "Machine déjà enregistrée ce jour !", vbCritical
    End If
Else:
    Set num_ligne = ActiveWorkbook.Worksheets("affectation").ListObjects("Tableau5").ListRows.Add.Range
    With num_ligne
        .Cells(2) = Sheets("formulaire machines").Range("D6")
        .Cells(3) = Sheets("formulaire machines").Range("D8")
        .Cells(4) = Sheets("formulaire machines").Range("I12")
        .Cells(5) = Sheets("formulaire machines").Range("E14")
        .Cells(6) = Sheets("formulaire machines").Range("K14")
        .Cells(7) = Sheets("formulaire machines").Range("K12")
        .Cells(8) = Sheets("formulaire machines").Range("I16")
    End With
End If

End Sub
Le 28/09/2021 à 19:13

Jai copier ce codes dans le module val11 mais cela me fais pareil

Le 28/09/2021 à 19:18

pareil c'est à dire ? Erreur sur la fonction Match ?

Le 28/09/2021 à 19:22

non cela me mets pas d'erreur mais à chaque clique sur le bouton valider j'enregistre dans le tableau affectation la même machine plusieurs fois dans la même journée

Le 28/09/2021 à 20:20

Effectivement il y avait une coquille

Essaye comme ceci :

Option Explicit
Sub btn_valider11_lanceur()

Dim num_ligne As Range
Dim num_mach As String
Dim date_affectation As Date

On Error Resume Next
Sheets("affectation").ShowAllData
On Error GoTo 0

Sheets("affectation").Rows("1:1048576").EntireRow.Hidden = False
Sheets("affectation").Columns("A:XFD").EntireColumn.Hidden = False

With Sheets("formulaire machines")
    num_mach = .[D6]
    date_affectation = .[K12]
End With

If Not IsError(Worksheets("affectation").Columns(2).Find(num_mach, LookIn:=xlValues, LookAt:=xlWhole)) Then
    Set num_ligne = Worksheets("affectation").Columns(7).Find(What:=date_affectation, LookAt:=xlWhole)
    If num_ligne Is Nothing Then
        Set num_ligne = ActiveWorkbook.Worksheets("affectation").ListObjects("Tableau5").ListRows.Add.Range
        With num_ligne
            .Cells(2) = Sheets("formulaire machines").Range("D6")
            .Cells(3) = Sheets("formulaire machines").Range("D8")
            .Cells(4) = Sheets("formulaire machines").Range("I12")
            .Cells(5) = Sheets("formulaire machines").Range("E14")
            .Cells(6) = Sheets("formulaire machines").Range("K14")
            .Cells(7) = Sheets("formulaire machines").Range("K12")
            .Cells(8) = Sheets("formulaire machines").Range("I16")
        End With
    Else: MsgBox "Machine déjà enregistrée ce jour !", vbCritical
    End If
Else:
    Set num_ligne = ActiveWorkbook.Worksheets("affectation").ListObjects("Tableau5").ListRows.Add.Range
    With num_ligne
        .Cells(2) = Sheets("formulaire machines").Range("D6")
        .Cells(3) = Sheets("formulaire machines").Range("D8")
        .Cells(4) = Sheets("formulaire machines").Range("I12")
        .Cells(5) = Sheets("formulaire machines").Range("E14")
        .Cells(6) = Sheets("formulaire machines").Range("K14")
        .Cells(7) = Sheets("formulaire machines").Range("K12")
        .Cells(8) = Sheets("formulaire machines").Range("I16")
    End With
End If

End Sub
Le 28/09/2021 à 20:48

Oui cela va mieux mais j'aurais aimé pouvoir modifier les autres paramètres de la machine sans que la la date soit prise en compte. Juste enregistrer chaque changement d'affectation dans la feuille affectation pour avoir un suivi des affectations par machines et avoir le reste des infos de la machine que je puisse modifier sans pour autant enregistrer chaque changement.

La solution que j'ai trouvé pour l'instant est d'enregistrer la machine et ces caratcéristiques pour cela j'ai verrouillé les cellules affectations et ensuite avec un autre bouton je rapelle la machine pour y remplir l'affectation que j'enregistre ensuite dans la feuille affectation et machine.

Le 28/09/2021 à 21:15

La solution que j'ai trouvé pour l'instant est d'enregistrer la machine et ces caratcéristiques pour cela j'ai verrouillé les cellules affectations et ensuite avec un autre bouton je rapelle la machine pour y remplir l'affectation que j'enregistre ensuite dans la feuille affectation et machine.

Oui je pense qu'avoir un bouton pour ajouter une nouvelle machine & 1 bouton pour modifier une machine existante est la bonne solution

Le 28/09/2021 à 21:22

comme tu as le fichier en allant dans le formulaire intervention si tu clique sur modifier il y a un userform qui apparait saurait tu comment on lui associe une action stp ?

Le 29/09/2021 à 18:53

Tu veux faire quoi exactement avec ce formulaire ?

Le 29/09/2021 à 20:23

J aurais voulu qu'en rentrant le numéro de l'intervention cela m'affiche les données du numéro appelé pour que je puisse les modifier ou tout simplement le supprimer

Le 29/09/2021 à 20:56

et les numéros d'interventions ils se trouvent ou ?

Rechercher des sujets similaires à "deux variables fonction match possible"