Remplir des cellules automatiquement

Bonjour le forum,

Je reviens vers vous pour une demande d'aide. je veux entrer des informations dan un tableau et ça en cliquant sur une cellules quelconque. Je veux que n'importe ou je clique une boite de dialogue s'affiche et quand je valide les informations qu'ils soient remplie à partir de la cellule ou j'ai cliqué.

Merci d'avance pour ceux qui vont répondre .

Voici le code:

Private Sub inscrire_Click()
'Positionnement dans la feuille active
je veux recuperer la cellule selectionner .
    l = ActiveSheet.[A1000].End(xlUp).Row 1

remplie les infos
    ActiveSheet.Cells(l, 1) = Tdate1
    ActiveSheet.Cells(l, 2) = Nomprenom
    ActiveSheet.Cells(l, 3) = ThemActiv
    ActiveSheet.Cells(l, 4) = Tdate2

End Sub

Ray976 a écrit :

Bonjour le forum,

Je reviens vers vous pour une demande d'aide. je veux entrer des informations dan un tableau et ça en cliquant sur une cellules quelconque. Je veux que n'importe ou je clique une boite de dialogue s'affiche et quand je valide les informations qu'ils soient remplie à partir de la cellule ou j'ai cliqué.

Merci d'avance pour ceux qui vont répondre .

Voici le code:

Private Sub inscrire_Click()
'Positionnement dans la feuille active
je veux recuperer la cellule selectionner .
    l = ActiveSheet.[A1000].End(xlUp).Row 1

'remplie les infos
    ActiveSheet.Cells(l, 1) = Tdate1
    ActiveSheet.Cells(l, 2) = Nomprenom
    ActiveSheet.Cells(l, 3) = ThemActiv
    ActiveSheet.Cells(l, 4) = Tdate2

End Sub

Bonjour,

Cette ligne ne récupère surement pas la cellule actuelle l = ActiveSheet.[A1000].End(xlUp).Row 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim L As Long
L = ActiveCell.Row  'info ligne actuelle
'remplie les infos
    ActiveSheet.Cells(L, 1) = Tdate1
    ActiveSheet.Cells(L, 2) = Nomprenom
    ActiveSheet.Cells(L, 3) = ThemActiv
    ActiveSheet.Cells(L, 4) = Tdate2

End Sub

Re,

Oui , ça me récupère la ligne nom vide.

et pour récupérer la cellule, je ne sais pas.

Bonjour Ray, bonjour le forum,

Plutôt que t'utiliser 4 inputboxes je te conseillerais de créer une UserForm avec 4 Textboxes et un CommandButton.

L'événement BeforeDoubleClick serait, à mon avis, mieux approprié que l'événement SelectionChange pour ouvrir cette Userform.

Remplis les 4 TextBoxes et valide. Tes données seront renvoyées à partir de la cellule active (tu n'as pas précisé si c'était en ligne ou en colonne). Comme j'ai la flemme de tout faire pour toi, je te laisse préparer le terrain et reste attentif à ce fil...

Ray976 a écrit :

Re,

Oui , ça me récupère la ligne nom vide.

et pour récupérer la cellule, je ne sais pas.

Tu as écris : " à partir de la cellule ou j'ai cliqué " donc ce n'est plus à partir de la dernière cellule vide.

c'est donc comme je l'ai noté : Dim L As Long

L = ActiveCell.Row 'info ligne actuelle

Re,

Bonjour Xmenpl

dans l'onglet concerné :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub

Bouton de l'UserForm :

Private Sub CommandButton1_Click()
ActiveCell.Value = tdate1
ActiveCell.Offset(0, 1).Value = Nomprenom
ActiveCell.Offset(0, 2).Value = ThemActiv
ActiveCell.Offset(0, 3).Value = Tdate2
Unload Me
End Sub

Bonjour Thautheme,

En effet ta méthode encore plus simple que de déclarer ligne en variable

Merci beaucoup pour vos propositions ça fonctionne très bien merci.