tableau de données

[Andrew47]

Bonjour a vous tous (toutes)

Je suis un vrai débutant et j'ai fait un tableau de données avec une boite de dialogue. Je ne sais pas comment m'y prendre pour qu’à l'aide d'un autre bouton je puisse ajouter des données correspondantes à ceux déjà inscrite. Autrement dit il faudrait avoir 2 boutons et que les 2 a des moments différents puissent entré des données pour la même ligne correspondante. Je sais que je suis loin de la solution. Je joint mon fichier commencer (j'ai enlever tous mes essaies infructueux pourla compréhension), mais je bloque...Je suis ouvert à tous recommencer si quelqu'un à une façon plus simple.

Merci de votre précieux conseil

 

[ODVJ]

Re : tableau de données

Bonjour,

pour ajouter à la fin de la base, mettre le code

vligne = Range("e65536").End(xlUp).Row + 1
Rows(vligne).Select
Selection.EntireRow.Insert
 
Range("E" & vligne) = frmEquipement.cmbNom
Range("F" & vligne) = frmEquipement.txtnoBt
Range("G" & vligne) = frmEquipement.CombNom
Range("H" & vligne) = frmEquipement.ComboSouche
Range("I" & vligne) = frmEquipement.ComboPlanif

à la place des lignes se référant à 10

A+

 

[ChTi160]

Re : tableau de données

Salut Andrew47
Bonjour ODVJ
voilà ca que j'aurais mis pour répondre à la premiere demande de Andrew47
pas besoin d'insérer une ligne si l'on colle les données en derniere ligne

Private Sub cmdSauvegarder_Click()

If frmEquipement.cmbNom = "" _
    Or frmEquipement.txtnoBt = "" _  '[COLOR=DarkGreen]si vide [/COLOR]
     Then
   GoTo Fin    'on va afficher le message
End If

With Sheets("Formulaire") ' [COLOR=DarkGreen]en feuille "Formulaire" évite les Select[/COLOR]
vligne = .Range("A65536").End(xlUp).Row + 1 [COLOR=DarkGreen]'calcule de la derniere _
 ligne vide en partant du bas de la colonne A[/COLOR]
 '[COLOR=DarkGreen]et ici l'on colle Lol[/COLOR]
.Range("E" & vligne) = frmEquipement.cmbNom 
.Range("F" & vligne) = frmEquipement.txtnoBt
.Range("G" & vligne) = frmEquipement.CombNom
.Range("H" & vligne) = frmEquipement.ComboSouche
.Range("I" & vligne) = frmEquipement.ComboPlanif
.Range("E10").Select
End with
'[COLOR=DarkGreen]ici on vide[/COLOR]
frmEquipement.cmbNom = ""
frmEquipement.txtnoBt = ""
frmEquipement.CombNom = ""
frmEquipement.ComboSouche = ""
frmEquipement.ComboPlanif = ""
Exit Sub  'ici on sort de la procèdure

Fin:  '[COLOR=DarkGreen]s'il y a un vide[/COLOR] 

MsgBox "Arfff des données manquent"  '[COLOR=DarkGreen]le message[/COLOR]

End Sub

je regarderai ce soir pour ce qui est de la deuxième demande(si rien n'a été proposé Lol)
quelques explications complémentaires seraient les bien venues (concernant le deuxième bouton ajouter quoi ,ou et d'après quoi
les lignes sont elles uniques #sem1 par exemple apparait une seule fois dans le tableau ou plusieurs enfin quelques infos
Merci d'avance
Bonne journée
à ce soir 😀

 

[Andrew47]

Re : tableau de données

Merci à vous 2 , je vais regarder ce soir ce que ça donne et je vous revient. Je doit malheureusement travailler pour l'instant.

 

[Andrew47]

Re : tableau de données

Bonsoir ODVJ et ChT160 vos 2 solutions me semble correcte, mais j'ai de la difficulté à les faires fonctionner, car lorsque je complète la boite de dialog, les données ce transfert mais la feuille 1 de visual basic apparait et je ne comprend pas pourquoi, tous mes fichier test avant fonctionnait et maintenant ils ont tous le même message d'erreur, les lignes suivantes sont elles correctes?

Dim MAJ_Le As Date

Dim Equipement As String

Private Sub cmdEntreeDonnees_Click()

frmEquipement.Show (il devient en subriance jaune)

End Sub

Je ne comprend pas le bug, pouvez-vous m'expliquer svp

Merci pour les notes explicatives je comprend le principe

 

[ChTi160]

Re : tableau de données

Salut Andrew47
Bonjour le Fil
Bonjour le Forum
le problème doit venir d'une donnée(nom de feuille etc.... qui a été modifié dans fichier et pas dans la Macro)
donc si tu le peux met nous ton fichier ,enfin un extrait ,sans données confidentielles lol
A très bientôt 😀

 

[Andrew47]

Re : tableau de données

Bonjour Jean-Marie
J'ai essayer mon fichier sur l'ordi à mon travail et il fonctionne je ne sais pas pourquoi il ya un bug chez moi. Mais aux moins je n'ai rien perdu, au travail j'ai la version Excel 2000 et à la maison la version 2002 il me semble que cela ne devrait pas causé de problème. Je vais quand même essayer de trouver ce soir car j'ai fait le fichier chez-moi???.

encore merci
Andrew