Recopie données TextBox vers cellules

[koukou40]

Bonsoir au Forum !

Pour les besoins de ma société, je suis en train de mettre au point (si l'on peut dire vu mon faible niveau en VBA) un petit programme de gestion d'activités du personnel ouvrier.
La présentation de mes USF étant quasi terminées je souhaite finaliser le code.
Et c'est avec ce dernier que je bloque !
En gros, je voudrais que les données saisies dans mes différents TextBox soient copiés dans les cellules adéquates.
Des explications sous forme images écrans sont joints au fichier avec ce poste pour mieux cerner mon souhait !
En espérant avoir été assez clair !

Cordialement,

http://cjoint.com/?eiv540gZR5
PS : mon fichier, même compresser, pèse + de 50 Ko.

 

[skoobi]

Re : Recopie données TextBox vers cellules

Bonsoir,

Voici pour le bouton "Valider" de l'userform1:

 Private Sub CmdValider_Click()
Range("B3").Value = TxtHDebut.Value
Range("C3").Value = TextBox2.Value
Range("C4").Value = TextBox12.Value

End Sub

Tu devrais y arriver pour le reste.😉

 

[koukou40]

Re : Recopie données TextBox vers cellules

Bonsoir,

Voici pour le bouton "Valider" de l'userform1:

 Private Sub CmdValider_Click()
Range("B3").Value = TxtHDebut.Value
Range("C3").Value = TextBox2.Value
Range("C4").Value = TextBox12.Value

End Sub

Tu devrais y arriver pour le reste.😉

Bonjour Skoobi,

J'ai déjà utilisé ce code mais cela ne me convient pas. En effet, ces données doivent être recopiées suivant la date de saisie (= date du jour). Donc dans l'onglet "Avril", je vais retrouver un tableau pour chaque date.
C'est pour cela que le code que tu m'as soumis n'est pas applicable.
Comprends tu ma démarche ?

A+

 

[skoobi]

Re : Recopie données TextBox vers cellules

Bonjour,

je vais retrouver un tableau pour chaque date.

Comment sont disposés les différents tableaux?
Et comment différencies-tu les dates des différents tableaux vu que tu y mets "la date du jour"?

J'ai déjà utilisé ce code mais cela ne me convient pas.

Tu aurais pu le préciser au début, on aurait gagné du temps.

 

[koukou40]

Re : Recopie données TextBox vers cellules

"Comment sont disposés les différents tableaux ?"
Jettes un oeil sur le tableau modifié ci-joint

"Et comment différencies-tu les dates des différents tableaux vu que tu y mets "la date du jour" ?"
Il y une saisie quotidienne !

"Tu aurais pu le préciser au début, on aurait gagné du temps"
C'est vrai, je suis désolé !

A+

 

[skoobi]

Re : Recopie données TextBox vers cellules

Re,

Voici une autre proposition:

Private Sub CmdValider_Click()
Dim madate As Range
Set madate = Columns("B").Find("=TODAY()", LookIn:=xlFormulas, lookat:=xlWhole)
If Not madate Is Nothing Then
    madate.Offset(1, 0).Value = TxtHDebut.Value
    madate.Offset(1, 1).Value = TextBox2.Value
    madate.Offset(2, 1).Value = TextBox12.Value
End If
End Sub

 

[koukou40]

Re : Recopie données TextBox vers cellules

Merci Skoobi !

C'est un approche intéressante, je pense !

Seulement pourrais-tu m'expliquer la signification de chaque ligne ?


Cdt,

 

[skoobi]

Re : Recopie données TextBox vers cellules

Set madate = Columns("B").Find("=TODAY()", LookIn:=xlFormulas, lookat:=xlWhole):

recherche le jour actuel en colonne B et l'attribue à "madate".
"Find" est l'équivalent de Edition - rechercher.

If Not madate Is Nothing Then: vérifie que la date a bien été trouvée

madate.Offset(1, 0).Value = TxtHDebut.Value: "offset" permet d'itentifier la cellule relative à madate, ici une ligne en-dessous, 0 colonne à droite.

Voilà 🙂

 

[koukou40]

Re : Recopie données TextBox vers cellules

Re,

Je viens d'apporter les modifs mais cela ne fonctionne pas.
Les données saisies ne sont pas recopiés dans le tableau.

Une idée peut-être ?

Cdt,

 

[skoobi]

Re : Recopie données TextBox vers cellules

Re,

et ceci?:

Set madate = [COLOR=Blue][B]Cells[/B][/COLOR].Find("=TODAY()", LookIn:=xlFormulas, lookat:=xlWhole)

Tu as inversé les valeurs dans "Offset" je crois, la première valeur correspond à la ligne et l'autre à la colonne: Offset(ligne,colonne)

 

[koukou40]

Re : Recopie données TextBox vers cellules

Après lecture de posts ici ou là, j' ai modifié mon programme.
Concernant les données dans l'USF 1 cela fonctionne, par contre pour l'USF 2, je bloque !
Comment dois-je procéder pour remplir la 2ème partie de mon tableau ?

Cdt,

 

[skoobi]

Re : Recopie données TextBox vers cellules

Re,

comment sais-tu dans quel tableau vont se mettre les données du 2eme USF?

 

[koukou40]

Re : Recopie données TextBox vers cellules

Bonsoir,

Le tableau de gauche concerne les heures et les codes (USF 1).
Le tableau de droite concerne la production (USF 2).

Voilà !

A+

 

[skoobi]

Re : Recopie données TextBox vers cellules

Bonjour,

Après lecture de posts ici ou là, j' ai modifié mon programme.
Cdt,

Tant mieux!

Concernant les données dans l'USF 1 cela fonctionne, par contre pour l'USF 2, je bloque !
Comment dois-je procéder pour remplir la 2ème partie de mon tableau ?

Adopte le même principe que pour le premier USF non?
C'est-à-dire en recherchant la date, sauf que les cellules de déstination seront différentes, logique.