Recherche de la première cellule vide dans un tableau pour ajout d'un nouvelle e
Signaler
cs_glemoin
cs_glemoin
- Messages postés
- 11
- Date d'inscription
- mardi 8 février 2011
- Statut
- Membre
- Dernière intervention
- 21 février 2011
cs_glemoin
- Messages postés
- 11
- Date d'inscription
- mardi 8 février 2011
- Statut
- Membre
- Dernière intervention
- 21 février 2011
A voir également:
- Excelladresse
- Févr 2011 ajouté par - Meilleures réponses
- Févr 2011 ajouté - Meilleures réponses
- Recherche cellule et mettre info dans la premiere cellule vide ✓ - Forum - VB.NET
- Selection d'une plage à partir de la première cellule vide. ✓ - Forum - Visual Basic 6
- Trouver la premiere cellule vide dans une ligne ✓ - Forum - Visual Basic 6
- Excell adresse première cellule vide dans colonne ✓ - Forum - Visual Basic 6
- Determiner la première cellule non vide d'une feuille excel vb.n ✓ - Forum - VB.NET
3 réponses
cs_glemoin
- Messages postés
- 11
- Date d'inscription
- mardi 8 février 2011
- Statut
- Membre
- Dernière intervention
- 21 février 2011
J'apporte quelques infos en plus, voila le code que j'ai essayé de mettre en place
Private Sub CmdAjoutVendeur_click()
'Validation et transfert de l'ajout à la feuille Gestion personnel
'Confirmation par l'utilisateur de la validation
IntRep = MsgBox("Ajouter " & TbNewNom.Value & " " & TbNewPrenom & " à la liste du personnel ?", vbYesNoCancel, "Ajouter un nouvel employé")
If IntRep = 2 Then
Exit Sub
ElseIf IntRep = 6 Then
Sheets("Gestion personnel").Select 'Je souhaite selectionné la feuille "gestion personnel"
Range("A1").End(xlDown).Offset(1, 0).Select 'Je recherche la dernière cellule vide de mon tableau
Activecell = TbNewNom.text 'J'attribue la valeur de mon formulaire dans la cellule
Else
Unload Frm_EmployeNew
Frm_Employe.Show
End If
End Sub
Mais ça ne marche pas du tout ... je desespère.
Private Sub CmdAjoutVendeur_click()
'Validation et transfert de l'ajout à la feuille Gestion personnel
'Confirmation par l'utilisateur de la validation
IntRep = MsgBox("Ajouter " & TbNewNom.Value & " " & TbNewPrenom & " à la liste du personnel ?", vbYesNoCancel, "Ajouter un nouvel employé")
If IntRep = 2 Then
Exit Sub
ElseIf IntRep = 6 Then
Sheets("Gestion personnel").Select 'Je souhaite selectionné la feuille "gestion personnel"
Range("A1").End(xlDown).Offset(1, 0).Select 'Je recherche la dernière cellule vide de mon tableau
Activecell = TbNewNom.text 'J'attribue la valeur de mon formulaire dans la cellule
Else
Unload Frm_EmployeNew
Frm_Employe.Show
End If
End Sub
Mais ça ne marche pas du tout ... je desespère.
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Salut
Tu enregistres une macro pendant que tu te places sur la première cellule de ta colonne et que tu fais Ctrl-Flèche-bas et tu auras la réponse.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Tu enregistres une macro pendant que tu te places sur la première cellule de ta colonne et que tu fais Ctrl-Flèche-bas et tu auras la réponse.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_glemoin
- Messages postés
- 11
- Date d'inscription
- mardi 8 février 2011
- Statut
- Membre
- Dernière intervention
- 21 février 2011
Merci beaucoup je na vais pas eu le temps de tester cette solution a laquelle je n'avais pas du tout pensé mais il est vrai que je débute dans le VBA
Sa marche nickel en tout cas, c'est parfait
Encore merci
Sa marche nickel en tout cas, c'est parfait
Encore merci