Microsoft 365 Alimenter un Textbox dans un Userform via une boucle

Bounty57 à dit:

En fait, j'ai créer un Userform qui est alimenté par la feuille DATA (que j'importe d'une base de données) par contre je dois incrémenter les équipements un à un dans la feuille GESTION car il est possible que j'en ai un ou plus (jusqu'à 30)

Cliquez pour agrandir...

Hasco à dit:

Bonjour et bienvenue sur le forum.

Le useform de votre exemple est pour le moment alimenté par rien. Pas une ligne de code dans votre fichier.
Qu'est-ce que vous appelez 'incrémenter' ?

Si c'est reproduire votre tableau de la feuille GESTION à partir des données de la feuille DATA alors voici deux solutions qui le feront.

Une par macro (fichier .xlsm) l'autre (fichier .xlsx) par PowerQuery inclus dans votre version d'excel et qui pourrait très bien faire la chose directement à partir de votre base de données.

Cordialement

P.S. comme le dit la charte du forum, que vous avez certainement lue, il est important d'expliciter précisément son besoin dans le post de la discussion et son titre. Que ceux qui voudraient vous répondre n'aient ni à téléchargé ni ouvrir votre fichier pour voir de quoi il retourne.

Cliquez pour agrandir...

fanfan38 à dit:

Bonjour et bienvenu sur Excel Downloads
Si j'ai bien compris... ci joint ma solution

A+ François

Cliquez pour agrandir...

Hasco à dit:

Bonjour et bienvenue sur le forum.

Le useform de votre exemple est pour le moment alimenté par rien. Pas une ligne de code dans votre fichier.
Qu'est-ce que vous appelez 'incrémenter' ?

Si c'est reproduire votre tableau de la feuille GESTION à partir des données de la feuille DATA alors voici deux solutions qui le feront.

Une par macro (fichier .xlsm) l'autre (fichier .xlsx) par PowerQuery inclus dans votre version d'excel et qui pourrait très bien faire la chose directement à partir de votre base de données.

Cordialement

P.S. comme le dit la charte du forum, que vous avez certainement lue, il est important d'expliciter précisément son besoin dans le post de la discussion et son titre. Que ceux qui voudraient vous répondre n'aient ni à téléchargé ni ouvrir votre fichier pour voir de quoi il retourne.

Cliquez pour agrandir...

Hasco à dit:

Bonjour,

Dans votre classeur, aucune des solutions proposées par @fanfan38 ou moi-même n'est présente.
Vous ne dites pas quelle solution vous avez choisie. Je vous en ai proposé 2. Je veux bien amélioré celle que vous aurez choisie, mais recommencer, non.

Pourquoi ne pas faire cet import justement avec powerquery qui vous préparerait le travail. Le reste ne serait que copier/coller de données. ?

Cordialement

Cliquez pour agrandir...

Hasco à dit:

Bonjour,

Voici une proposition.
Il vous faut repérer les valeurs fixes (celles communes à chaque ligne) et les variables et boucler sur celles-ci)

Quant à la confirmation, par msgbox si elle est nécéssaire la placer avant la création de la ligne en cours si vous en voulez une à chaque équipement ou avant la création de la première ligne.

Je fais l'effort de pondre des codes qui ne soient pas trop 'cabalistiques', alors je vous demanderai de faire l'effort de le comprendre et comprendre ce que vous faîtes, et pourquoi vous le faites.
Ne vous contentez pas de copier/coller.

VB:

Sub Ajout_equipement()
    Dim Dest As Range
    Dim lo As ListObject
    Dim i As Integer, nbLignes As Integer
    '
    ' Tableau (listobject) destination des données
    Set lo = ThisWorkbook.Sheets("Projet en cours").ListObjects(1)
    '
    ' Travail à partir de la feuille Import
    With Sheets("Import")
        '
        nbLignes = .Range("B58").CurrentRegion.Rows.Count
        '
        For i = 1 To nbLignes
            ' si l'équipement est non vide (colonne b de la ligne en cours)
            ' alors créer une nouvelle ligne dans le tableau destination
            If Not IsEmpty(.Cells(57 + i, 2)) Then
                ' Si la ligne d'insertion du tableau est affichée
                 If Not lo.InsertRowRange Is Nothing Then
                    ' alors la prendre comme destination
                    Set Dest = lo.InsertRowRange()
                 Else
                    ' sinon ajouter une ligne en bas du tableau
                    ' et la prendre pour destination
                    Set Dest = lo.ListRows.Add(AlwaysInsert:=True).Range
                 End If
                'Projet (cellules fixes)
                Dest(1, 1) = .Range("F9")
                Dest(1, 2) = .Range("B4")
                Dest(1, 3) = .Range("B7")
                Dest(1, 4) = .Range("B8")
                Dest(1, 5) = .Range("B10")
                Dest(1, 6) = .Range("B11")
                'Client (cellules fixes)
                Dest(1, 18) = .Range("B17")
                Dest(1, 19) = .Range("B83")
                Dest(1, 20) = .Range("B84")
                Dest(1, 21) = .Range("B85")
                Dest(1, 22) = .Range("B86")
                'Conducteur Travaux (cellule fixe)
                Dest(1, 11) = .Range("B56")
                'Equipements & localisation (cellules relative à la ligne)
                Dest(1, 7) = .Cells(57 + i, 2)
                Dest(1, 8) = .Cells(57 + i, 5)
            End If
        Next
    End With
End Sub

Les cellules fixes pourraient êtres mises avant la boucle dans un tableau de valeurs en mémoire pour gagner un peu de temps, mais ici, cela ne vaut pas la peine pour le moment.


Cordialement

Cliquez pour agrandir...