[RESOLU] Remplir textbox avec variable

[maninwhite]

Bonjour à toutes et à tous.

Ci dessous mon problème.

J'essaye de remplir un textbox à partir d'un choix fait dans 2 combobox

Combobox 1 ==> n° semaine
Combobox 2 ==> Service

Testbox 1 ==> résultats

J'ai un tableau pour chaque service dans lequelle est référencé en lignes les numéros de semaine et en colonnes les noms des personnes.

Une fois que chacune des personnes a remplit le formulaire, une croix est générée automatiquement dans la cellule au croisement de la ligne ('n de semaine) et de la colonne (nom) afin d'indiquer qui a remplit le formulaire.

A la fin du tableau une petite formule me calcule le % de participation pour chaque semaine.

Comment faire pour indiquer cette valeur par rapport aux choix des 2 comboboxs?

Mon idée est la suivante :

Si n° de semaine = 1 et service = administration alors je vais dans la feuille administration et en cellule A3.

Le soucis c'est q'u il y a 53 semaines et 5 services donc je ne peux pas m'amuser à écrire plus de 100 lignes.

Une idée plus courte?

Merci beaucoup😛

 

[maninwhite]

Re : Remplir textbox avec variable

Au final, j'ai utilisé une variable mais qui ne fonctionne pas.

Je n'arrive aps à récupérer la valeur de la cellule et la faire apparaitre dans la TextBox.

Ci dessous le code

Private Sub CommandButton_resultats_Click()

   Dim i As Integer
   Dim semaine As Integer
   
   i = 2

 
   semaine = ComboBox_semaine
   service = ComboBox_service.Value
    
    Sheets(service).Activate
    
    While Cells(i, 1).Value <> ""
    
        comparaison_sem = Cells(i, 1).Value
    
        If comparaison_sem = semaine Then
        
            pourcentagebos = Cells(i, 54).Value
            TextBox_resultats.Value = pourcentagebos
        
        End If
          
    i = i + 1
    
    Wend

End Sub

Merci


Au final, j'ai trouvé.
Merci tout de même


Ci dessous le code pour les personnes intéressées

Private Sub CommandButton_resultats_Click()

   Dim i As Integer
   Dim semaine As Integer
   
   i = 2
   
   semaine = ComboBox_semaine.Value
   service = ComboBox_service.Value
    
    Sheets(service).Activate
    
    Range("A1").Select
    Cells.Find(What:="% réalisation BOS", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
    testligne = ActiveCell.Row
    testcol = ActiveCell.Column
        
    While Cells(i, 1).Value <> ""
    
        comparaison_sem = Cells(i, 1).Value
    
        If comparaison_sem = semaine Then
        
            pourcentagebos = Cells(i, testcol).Value
            TextBox_resultats.Value = pourcentagebos
        
        End If
          
    i = i + 1
    
    Wend

End Sub

 

[MJ13]

Re : [RESOLU] Remplir textbox avec variable

Bonjour maninwhite

Au final, j'ai trouvé.
Merci tout de même

Mais de rien, on est la pour ça 🙂.

En plus tu peux maintenant mettre Résolu à ta discussion. Cela va en intéressé plus d'un 😉.