Besoin d'aide sur ajout de données autre sens

[Manu62]

Bonjour,

J'ai l'ajout de données qui fonctionne à merveille dans l'exemple ci joint. Sauf que je voudrais que mes données arrivent autrement.

Ci joint mon fichier test afin que vous voyez par vous même. (C'est + parlant)

Meric d'avance pour votre aide.

Bien cordialement

Manu

 

[abtony]

Re : Besoin d'aide sur ajout de données autre sens

Re manu,

le code pour ton bouton valider

Private Sub CommandButton1_Click()
Dim derligne As Single
derligne = Sheets(1).Range("A65000").End(xlUp).Row
Sheets(1).Cells(derligne + 1, 1).Value = t1.Value
Sheets(1).Cells(derligne + 1, 2).Value = t2.Value
Sheets(1).Cells(derligne + 1, 3).Value = t3.Value
Sheets(1).Cells(derligne + 2, 1).Value = t1.Value
Sheets(1).Cells(derligne + 2, 2).Value = t2.Value
Sheets(1).Cells(derligne + 2, 3).Value = t4.Value
Sheets(1).Cells(derligne + 3, 1).Value = t1.Value
Sheets(1).Cells(derligne + 3, 2).Value = t2.Value
Sheets(1).Cells(derligne + 3, 3).Value = t5.Value
t1.Value = ""
t2.Value = ""
t3.Value = ""
t4.Value = ""
t5.Value = ""
End Sub

bonne journée

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Abtony

Super

Merci BCp

 

[ftho]

Re : Besoin d'aide sur ajout de données autre sens

Bonjour,

Une petite variante si toutes les textbox ne sont pas remplies

Private Sub CommandButton1_Click()
Dim derligne As Integer
derligne = Sheets(1).Range("A65000").End(xlUp)(2).Row

With Sheets(1)
If t3.Value <> "" Then
.Cells(derligne, 1).Value = t1.Value
.Cells(derligne, 2).Value = t2.Value
.Cells(derligne, 3).Value = t3.Value
End If
If t4.Value <> "" Then
.Cells(derligne + 1, 1).Value = t1.Value
.Cells(derligne + 1, 2).Value = t2.Value
.Cells(derligne + 1, 3).Value = t4.Value
End If
If t5.Value <> "" Then
.Cells(derligne + 2, 1).Value = t1.Value
.Cells(derligne + 2, 2).Value = t2.Value
.Cells(derligne + 2, 3).Value = t5.Value
End If
End With

t1.Value = ""
t2.Value = ""
t3.Value = ""
t4.Value = ""
t5.Value = ""
End Sub

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Abtony,

Tu as peux être vu que dans l'userform, lors de tabulation, on saute une case et on reviens ensuite dessus.

Comment on modifie l'ordre de tabulation sans changer les textbox.

Est ce possible ?

Manu

 

[pierrejean]

Re : Besoin d'aide sur ajout de données autre sens

bonjour Manu62

Vois si cela te convient

Edit: Encore a la traine moi

Salut a tous

 

[abtony]

Re : Besoin d'aide sur ajout de données autre sens

re manu, bonjour ftho, pierrejean,

dans les propriété de contol tu a tabindex tu met le numéro d'ordre que tu souhaite !

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Bonjour

Oui les 2 me vont très bien a choisir lequel ? Je verrais au fur et a mesure de mon programme.

Merci bcp

Manu

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Abtony,pierrejean, ftho

Merci bcp

Manu

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Bonjour,

Voilà mon code, je n'arrive pas a voir ce qui bloque. Les premières colonne ne se recopie plus comme dans nos exemples ?

'Alimenter la BD
Private Sub Alimenter_Click()
Dim derligne As Single
derligne = Sheets(1).Range("A65000").End(xlUp).Row
Sheets(1).Cells(derligne + 1, 1).Value = Date1.Value
Sheets(1).Cells(derligne + 1, 2).Value = Heure1.Value
Sheets(1).Cells(derligne + 1, 3).Value = Nom1.Value
Sheets(1).Cells(derligne + 1, 4).Value = NumSaisie.Value
Sheets(1).Cells(derligne + 1, 5).Value = Nomcli.Value
Sheets(1).Cells(derligne + 1, 6).Value = Date2.Value
Sheets(1).Cells(derligne + 1, 7).Value = date3.Value
Sheets(1).Cells(derligne + 1, 8).Value = Mentree.Value
Sheets(1).Cells(derligne + 1, 9).Value = ref1.Value
Sheets(1).Cells(derligne + 1, 10).Value = refcli1.Value
Sheets(1).Cells(derligne + 1, 11).Value = des1.Value
Sheets(1).Cells(derligne + 1, 12).Value = Z1.Value
Sheets(1).Cells(derligne + 1, 13).Value = EM1.Value
Sheets(1).Cells(derligne + 1, 14).Value = S1.Value
Sheets(1).Cells(derligne + 1, 15).Value = nbp1.Value
Sheets(1).Cells(derligne + 1, 16).Value = nbc1.Value
Sheets(1).Cells(derligne + 1, 17).Value = np1.Value
Sheets(1).Cells(derligne + 1, 18).Value = total1.Value
Sheets(1).Cells(derligne + 1, 23).Value = Nomtrs.Value
Sheets(1).Cells(derligne + 1, 24).Value = Date4.Value
Sheets(1).Cells(derligne + 2, 9).Value = ref2.Value
Sheets(1).Cells(derligne + 2, 10).Value = refcli2.Value
Sheets(1).Cells(derligne + 2, 11).Value = DES2.Value
Sheets(1).Cells(derligne + 2, 12).Value = Z2.Value
Sheets(1).Cells(derligne + 2, 13).Value = EM2.Value
Sheets(1).Cells(derligne + 2, 14).Value = S2.Value
Sheets(1).Cells(derligne + 2, 15).Value = nbp2.Value
Sheets(1).Cells(derligne + 2, 16).Value = nbc2.Value
Sheets(1).Cells(derligne + 2, 17).Value = np2.Value
Sheets(1).Cells(derligne + 2, 18).Value = total2.Value

Merci Bcp

Manu

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

abtony, pierre jean,

En plus de l'alimentation auto, peux choisir l'endroit en fonction de la case cocher

cf mon exemple

Manu

 

[abtony]

Re : Besoin d'aide sur ajout de données autre sens

re manu,

dis moi une chose, ce petit prog est destiner a l'autre fichier que tu a mis sur ci-joint ?

car si c'est le cas ca va te faire beaucoup de lignes de code sur cet userform !

ce n'est qu'un avis, tu peu gérer ca autrement !

je te joint un fichier que j'ai fait avec l'aide du forum.

ca resemble un peu a ce que tu souhaite faire, des modif sont a envisager mais ca te donnera un autre aperçu de ce qu'on peu faire !

sur le bouton ouvrir un ouvrage existant, la base de donnée est sélectionner tu double clique sur la ligne de ton choix ou tu fait une recherche et l'ouvrage vient se mettre dans la feuille.

un ouvrage comporte plusieurs composant, tu peu ajouter ou supprimer des composant sur cet ouvrage, chaque ouvrage a un code spécifique et ainsi de suite.

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Abtony,

Oui, tu as raison ce petit programme et le début d'avancement de mon autre programme.

Merci de ton exemple. Je regarde.

Je débute dans le VBA, au début le code est sans doute long, mais je comprends.
je le fais pas à pas grace a ce super forum.


Tu as une idée pour les colonnes qui ne se remplissent pas ?

Merci Bcp

manu

 

[Manu62]

Re : Besoin d'aide sur ajout de données autre sens

Bonjour,

J'ai bien avancé sur le sujet gràce a tous vos commentaires.

Là je suis sur ce type de code : Faire afficher tous les éléments en fonction de :

Dans mon exemple, il ya un userform historique avec un petit truc de ce que je veux faire.

Si quelqu'un pouvais m'aider. J'ai beaucoup les commentaires '.... pour les explications.

Je vous en remercie par avance.

Manu