Microsoft 365 Importer données plusieurs textbox,combobox,checkbox dans une feuille Excel

[New_VBA_User]

J’aimerai crée une base de données avec des critère de saisie, j’ai besoin d’un peu d’aide pour bien faire des choses, pour ne pas trop chargé le programme, je pense qu’il y a les moyens de faire plus rapidement.

on charge la valeur dans le textbox « Equipement » depuis la feuille "Filtered Data SAP"

Et les bouton Next et Previous permet de lire les ligne haut et en bas depuis la ligne sélectionné.

Ce que j’aimerai faire c’est saisir les données dans les autres champ vides et les enregistrés avec le bouton « Save Data » dans la feuille « DataBase Application » avec les critères défini.

À chaque valeur saisie dans le textbox « Equipement » charger les données de tous les champs.

Je ne sais pas s’il y a un moyen avec des boucles pour ne pas copier 100 lignes.

Merci de votre aide.
Salutations.

 

[sousou]

Pour les checkbox, il suffit de les traité comme les autres et donc le ajouter à la liste
Pour les lignes existantes,il faut tester et charger les données dans le user.
Je regarde demain et te fait une proposition

 

[sousou]

Avec un peu d'avance
A étudier et complèter (le tableau)

 

[New_VBA_User]

Ca doit être de la faute aux labels. Remplace la ligne par :

If Application.Left(Nom, 4) = "Check" Then

Daniel

même avec cette soluton, j'avais la même erreur.
j'ai remplacé la ligne par la ligne par

If TypeName(Me.Controls(Nom)) = "CheckBox" Then

et ça marche.

Merci pour ton aide

 

[New_VBA_User]

Ou mieux :

Private Sub CommandButton_SaveData_Click()
  Dim I As Long, Plage As Range, Ligne As Long, Nom As String
  With Sheets("Feuil1")
    Set Plage = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
  End With
  With Sheets("DataBase Application")
    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    For I = 1 To 96
      Nom = Plage(I).Offset(, 1)
      If Nom <> "" Then
        If TypeName(Me.Controls(Nom)) = "CheckBox" Then
          If Me.Controls(Nom).Value = True Then
            .Cells(Ligne, I) = "YES"
          End If
        Else
         .Cells(Ligne, I) = Me.Controls(Nom).Value
        End If
      End If
    Next I
  End With
End Sub

Daniel

ta soluton marche bien.

Merci pour l'aide.

 

[New_VBA_User]

j'ai encore une petite questions,
là on a résolu le problème d'enregistrement de donnée,

mais on peut actuellement enregistrer une ligne plusieurs fois, ce n'est pas le but.

comment faire pour détecter si la ligne qu'on va enregistré n'existe pas déjà dans la feuille et si oui, alors on remplace la ligne.

Merci pour l'aide.

 

[danielco]

Bonjour,

En se basant sur le numéro d'équipement (colonne A :

Private Sub CommandButton_SaveData_Click()
  Dim I As Long, Plage As Range, Ligne As Long, Nom As String
  With Sheets("Feuil1")
    Set Plage = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
  End With
  With Sheets("DataBase Application")
    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    If IsNumeric(Application.Match(CLng(Me.TextBox_EquipementSAP.Text), .[A:A], 0)) Then
      MsgBox "Saisie en double"
      Exit Sub
    End If
    For I = 1 To 96
      Nom = Plage(I).Offset(, 1)
      If Nom <> "" Then
        If TypeName(Me.Controls(Nom)) = "CheckBox" Then
          If Me.Controls(Nom).Value = True Then
            .Cells(Ligne, I) = "YES"
          End If
        Else
         .Cells(Ligne, I) = Me.Controls(Nom).Value
        End If
      End If
    Next I
  End With
End Sub

Daniel

 

[New_VBA_User]

c'est bien, mais le but est si on enregistre la ligne une fois avec toutes les donnés, et plus tard on reviens sur cette équipement et on modifie certains donnée ou on complète les info manquants et on met à jour dans la feuille "DataBase Application".
ta solution ci-dessus empêche enregistrement en double.

merci de l'aide

 

[danielco]

Alors :

Private Sub CommandButton_SaveData_Click()
  Dim I As Long, Plage As Range, Ligne As Long, Nom As String
  With Sheets("Feuil1")
    Set Plage = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
  End With
  With Sheets("DataBase Application")
    If IsNumeric(Application.Match(CLng(Me.TextBox_EquipementSAP.Text), .[A:A], 0)) Then
      Ligne = Application.Match(CLng(Me.TextBox_EquipementSAP.Text), .[A:A], 0)
    Else
      Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    End If
    For I = 1 To 96
      Nom = Plage(I).Offset(, 1)
      If Nom <> "" Then
        If TypeName(Me.Controls(Nom)) = "CheckBox" Then
          If Me.Controls(Nom).Value = True Then
            .Cells(Ligne, I) = "YES"
          End If
        Else
         .Cells(Ligne, I) = Me.Controls(Nom).Value
        End If
      End If
    Next I
  End With
End Sub

Daniel

 

[New_VBA_User]

c'est parfait, ça marche.

j'ai encore une petite question, quand on écris les valeurs dans les textbox, combobox etc... et on enregistre c'est bon, mais quand on change d'équipement avec bouton Next, logiquement si c'est un nouveau équipement on ne devrait pas y avoir de valeur dans les textbox Ver, CSID...
tant dis qu'il garde les donnée de l'équipement précèdent.

aurais-tu une idée comment faire quand on sélectionne un nouveau équipement, on ne garde les donnée des équipement précédant.

merci

 

[New_VBA_User]

désloé de dérangement encore, peux-tu m'expliquer ces 2 lignes que tu as utilisé.

If IsNumeric(Application.Match(CLng(Me.TextBox_EquipementSAP.Text), .[A:A], 0)) Then
    Ligne = Application.Match(CLng(Me.TextBox_EquipementSAP.Text), .[A:A], 0)

 

[danielco]

Traduit en langage Excel, ça revient à faire une recherche du textbox équipement dans la colonne A. Si on trouve une équivalence, EQUIV renvoie le numéro de ligne, donc un résultat numérique, on se sert de numéro de ligne.

(pas sûr d'avoir été clair)

Daniel

 

[New_VBA_User]

Merci de tes explications, c'est claires

j'attends une réponse de poste #24.

Super gentille.

 

[danielco]

c'est parfait, ça marche.

j'ai encore une petite question, quand on écris les valeurs dans les textbox, combobox etc... et on enregistre c'est bon, mais quand on change d'équipement avec bouton Next, logiquement si c'est un nouveau équipement on ne devrait pas y avoir de valeur dans les textbox Ver, CSID...
tant dis qu'il garde les donnée de l'équipement précèdent.

aurais-tu une idée comment faire quand on sélectionne un nouveau équipement, on ne garde les donnée des équipement précédant.

merci

Dans ce cas, il faut réinitialiser ces éléments au début de la procédure :

Dim val As Range
'RAB des contrôles
Me.TextBox_Ver.Text = ""
'etc.

Daniel