Textbox

Bonjour à tous

Je débute juste en VBA et j'ai un peu de mal à en assimiler tous les rouages.

Dans le fichier ci-joint j'ai commencé une application qui vise à remplir des textbox en fonction des données de ma feuille.

y a t'il une manière plus simple d'écrire le code afin de m'eviter d'écrire à chaque fois une ligne pour chaque jour et chaque personne.

si quelqu'un peut m'aider.

Merci

https://www.excel-pratique.com/~files/doc/2P2_2008.zip

Bonjour,

Je ne comprends pas ce que tu veux faire dans ton fichier et ton USF.

Merci de tes explications

Amicalement

Dan

Bonjour

Chaque colonne de D à S est le plannig d'une personne (par exemple D2correspond à Costa qui est en repos le 1er janvier)et D2 correspond à la textbox de l'userform.

ainsi,avec la combobox de luserform je peut visualiser les plannings pour chaque personne.

Mais avec la manière dont je m'y prend pour faire la macro,à noël j'y suis encore.

si tu peut m'aider ce sera avec plaisir.

Merci.

re,

Pas facile à faire mais pour que je comprenne bien :

  • Colonne A : le nom des personnes - elle est figée ou tu peux avoir d'autres noms qui viennent s'ajouter ?
  • Colonne B et C : pourquoi ne pas mettre une colonne avec la date ?

Ton USF sert pour visualiser ou pour compléter ton tableau ?

Dan

La colonne A est figée

le userform me servira à visualiser les données entrées dans les colonnes D à S

les colonnes B et C ne servent à rien (juste un point de repère pour le déroulement du calendrier).

Merci.

re,

Si les colonnes B et C ne servent à rien, pourquoi t'arrêtes tu à 16 pour chaque mois ? Est-ce figé aussi cela ?

Dan

les colonnes s'arretent à 16 car je ne pouvais pas en mettre 31 dans le userform (cela faisait trop serré au niveau des textbox)

il y aura un second userform pour les 2ème quinzaines du mois.

Merci

re,

Hum c'est compliqué ce que tu veux faire.

J'espère pouvoir t'aider jusqu'au bout.

El les données du 15 au 31 tu les mettras dans quelle feuille ?

Désolé de toutes ces questions mais c'est nécessaire pour ne pour tout recommencer

Dan

Je pensais faire un copier coller de la première quinzaine et appeler le second userform en inserant un bouton dans le premier userform.

Salut le forum

Avec ton format de tableau

Private Sub ComboBox1_Change()
'Remplir les TextBox
Dim I As Byte
For I = 1 To 192
Me.Controls("TextBox" & I) = Cells(I + 1, ComboBox1.ListIndex + 4).Value
Next I
End Sub

Mytå

Re,

En plus du code de Myta, rajoute celui -ci juste après le sien

Private Sub UserForm_Initialize()
Dim I As Integer, x As Integer
For I = 4 To Sheets("feuil1").Range("IV1").End(xlToLeft).Column
    With ComboBox1
        .AddItem Sheets("feuil1").Cells(1, I)
    End With
Next I
End Sub

Cela te permettra de remplir la liste déroulante et de faire un choix dans cette liste.

Une chose toutefois, dans cette liste tu as mis un nom par défaut que l'on voit dans les propriétés de la combo à la rubrique TEXT. Enlève le.

A te lire

Dan

Merci bien à tous les deux.

J'vais pouvoir passer un noël tranquille.

A+

Rechercher des sujets similaires à "textbox"