Extraire données

Bonjour,

Je souhaiterais si possible via soit menu deroulant soit userform extraire donnée de la feuille base vers base vierge en ne prenant que le resultat "total ihbg" de chaque mois et le transfere dans le tableau de la feuille "base vierge".

J'ai rempli le tableau avec le nom toto manuel.

Merci de votre aide.

Cdt

Re bonsoir,

J'ai avancé dans mon fichier qui "fonctionne".

J'ai fais un essai pour 3 nom mais le soucis est que le fichier en comporte 60 environs. Y a t il un moyen pour amélioré le module1 vba ainsi que le bouton valider.

Merci a vous.

Cdt

Salut Julien,

j'espère que tu ne m'en voudras pas d'avoir un peu bousillé ton travail!

Ce n'était pas très joli!

A+

Private Sub UserForm_Initialize()
Dim tablo, dico, i&
  With Worksheets("Base")
    If .AutoFilterMode Then .Cells.AutoFilter
      tablo = .Range("A12", .Range("A" & .Rows.Count).End(xlUp)).Value
      Set dico = CreateObject("scripting.dictionary")
      For i = 1 To UBound(tablo): dico(tablo(i, 1)) = "": Next i
      ComboBox1.List = dico.keys
  End With
End Sub

pour le usf je travaille sur le code

Bonjour et merci pour le temps passé.

curulis57 je me permet d'envoyer par mail mon fichier modifié. J'ai commis une erreur, je dois extraire les cellule JAUNE de chaque mois en fonction de l'individu choisi.

Comme tu as fais mais c'était pas la bonne colonne que j'ai indiqué.

Désolé.

Cdt

Bonjour,

voici le fichier joint.

Comme indique c'est les cellule de la colonne en jaune qui doivent etre extraine vers l'autre onglet.

Merci à vous.

Voici le code de curulis57 qui fonctionne très bien, mais je me suis trompe de colonne dans ma première demande. le code extrait colonne juste avant celle voulu.

Private Sub cmdValider_Click()
'
For x = 0 To Me.combSapeurs.ListCount - 1
    If Me.combSapeurs.Text = Me.combSapeurs.List(x) Then
        iRow = 12 + x
        With Sheets("Base")
            Sheets("Base vierge spv").Cells(10, 1) = .Cells(iRow, 2)
            Sheets("Base vierge spv").Cells(10, 3) = .Cells(iRow, 1)
            For y = 1 To 12
                Sheets("Base vierge spv").Cells(13 + y, 3) = .Cells(iRow, y * 23)
            Next
        End With
        Exit For
    End If
Next
'
Unload usfSapeurs
Sheets("Base vierge spv").Activate
'
End Sub

Salut Julien,

voici la correction à apporter!

            For y = 1 To 12
                Sheets("Base vierge spv").Cells(13 + y, 3) = .Cells(iRow, 1 + (y * 23))
            Next

Un truc... : es-tu sûr de tes formules "jaunes" pour Mars et suivants = =BQ12*BG8 ?

BG8 pointe en dehors du tableau!!!

La formule de Février : =AT12*9,21 !! Rien à voir !!

A+

Rebonjour curulis.

Merci pour la correction de formule cela fonctionne parfaitement.

Concernant les formules des les cellules jaunes j'ai fais une demande ici :

https://forum.excel-pratique.com/excel/formule-t76943.html

Merci.