Débutant en formulaire

Le
Marc
Bonjour
Je débute en vba et Youtube n'est pas toujours de bon conseil!
Je cherche à inscrire dans une colonne (B) un nom et dans colonne a c=
oté (C) le prénom.
J'ai la formule suivante qui ne fonctionne pas . Elle s’arrête=
au bout de 2 lignes et ne veut plus aller dans les autres lignes plus bas.

Private Sub Btnajout_Click()
Sheets("Feuil1").Activate
Range("B2").Select
Selection.End(xlDown).Select 'On se positione sur la derniére ligne no=
n vide
Selection.Offset(1, 0).Select 'On se decale d'une ligne vers le bas
ActiveCell = TxtClub.Value
ActiveCell.Offset(0, 1).Value = TxtNom

End sub

Merci de vos lumières
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #26479520
Bonjour,
Les très anciens disaient toujours : "Select:pas bon".
----------------------------
Private Sub Btnajout_Click()
Sheets("Feuil1").Activate
derL = Cells(Cells.Rows.Count, 2).End(xlUp).Row
Range("B"&derL+1).Value = tout ce que tu veux (nom?)
Range("C"&derL+1).Value = tout ce que tu veux (club?)
End sub
-------------------
Pourrait peut-être convenir. pas testé.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Marc" a écrit dans le message de groupe de discussion :

Bonjour
Je débute en vba et Youtube n'est pas toujours de bon conseil!
Je cherche à inscrire dans une colonne (B) un nom et dans colonne a coté
(C) le prénom.
J'ai la formule suivante qui ne fonctionne pas . Elle s’arrête au bout de 2
lignes et ne veut plus aller dans les autres lignes plus bas.
Private Sub Btnajout_Click()
Sheets("Feuil1").Activate
Range("B2").Select
Selection.End(xlDown).Select 'On se positione sur la derniére ligne non vide
Selection.Offset(1, 0).Select 'On se decale d'une ligne vers le bas
ActiveCell = TxtClub.Value
ActiveCell.Offset(0, 1).Value = TxtNom
End sub
Merci de vos lumières
Michd
Le #26479537
Bonjour,
'------------------------------------------------
Sub Btnajout_Click()
Dim DerLig As Long
'Nom feuille à adapter
With Worksheets("Feuil")
DerLig = .Range("A"&.Rows.count).End(Xlup).row +1
.Range("A" & DerLig) = "Nom"
.Range("B" & Derlig) = "Prénom"
End With
End Sub
'------------------------------------------------
MichD
Marc
Le #26479565
Merci pour votre aide. Je vais commencer par décoder les instructions qui sont nouvelles pour moi.
Publicité
Poster une réponse
Anonyme