Incrémentation Automatique d'un N° en début de Ligne

[MuscatMimi]

Bonjour a tous

J'ai un Usf qui me sert a remplir une BDD De A2 à G50
dans la feuille BDD j'ai laissé libre la colonne A
dans cette colonne je désire que chaque fois qu'une ligne s'ajoute ,que
le chiffre s'incrémente automatiquement
Ex A2 = 2
A3 = 3 et ainsi de suite
a chaque fois que les cellules De B a G sont rempli via mon Usf aprés validation

Merci pour tout a l'avance

bonne journée, certe avec de la grissaille, mais bon .....faut subir

 

[Staple1600]

Re : Incrémentation Automatique d'un N° en début de Ligne

Bonjour


Pourquoi ne pas utiliser la fonction LIGNE() ?

Exemple:

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 2 To 5
Cells([A65536].End(xlUp).Row + 1, i) = _
Me.Controls("TextBox" & 1).Text
Next
Cells([A65536].End(xlUp).Row + 1, 1).Formula = _
"=ROW()"
End Sub

 

[ccpapy]

Re : Incrémentation Automatique d'un N° en début de Ligne

bonjour,
sans fichier joint, il est difficile de faire quelque chose s'adaptant parfaitement au code de ton usf, il y a trop de façon de le faire .
si tu tiens absolument à ce que cela soit en macro envoie le code de ton usf ou un petit fichier
sinon, avec une formule
à mettre par exemple en B2 et à tirer vers le bas
=SI(B3;A2+1;"")

à+
edit, bonjour et désolé pour la collision Staple1600
pour le code, je pensais inserer nos solutions dans son propre code avec son bouton (ajouter, je pense) pour avoir quelque chose de plus court

 

[Staple1600]

Re : Incrémentation Automatique d'un N° en début de Ligne

Bonjour ccpapy


Attendons le fichier.


J'ai posté le code précédent à titre d 'exemple.

 

[MuscatMimi]

Re : Incrémentation Automatique d'un N° en début de Ligne

Bonjour Staple et ccpapy et le forum

Voici le Code qui valide mes données saisie dans l'usf "creation"
via le Btn "CommandButton5"

Private Sub CommandButton5_Click() '--Validation Echéancier a la saisie d'une Nouvelle '-'--Echéance
If Me.NomCompte = "" Then
MsgBox "Attention Vous Devez Saisir Un Nom de Compte"
Me.NomCompte.SetFocus
Exit Sub
End If

If Me.TypeOperation = "" Then
MsgBox "Attention Vous Devez Saisir Un Type D'Opération"
Me.TypeOperation.SetFocus
Exit Sub
End If

If Me.Libelle = "" Then
MsgBox "Attention Vous Devez Saisir Un Libéllé d'Opération"
Me.Libelle.SetFocus
Exit Sub
End If

If Me.La_Date = "" Then
MsgBox "Attention Vous Devez Saisir Une Date"
Me.La_Date.SetFocus
Exit Sub
End If

Dim derlgn As Integer
With Worksheets("Echéancier")
derlgn = .Range("B65536").End(xlUp).Row + 1

.Cells(derlgn, 2) = NomCompte.Value
.Cells(derlgn, 3) = La_Date.Value
.Cells(derlgn, 4) = NomBanque.Value '
.Cells(derlgn, 5) = TypeOperation.Value
.Cells(derlgn, 6) = Libelle.Value
.Cells(derlgn, 9) = Debit.Value
.Cells(derlgn, 8) = Credit.Value
End With

TextBox1.Value = ""
Credit.Value = ""
Debit.Value = ""
La_Date.Value = ""
NomCompte.Value = ""
TypeOperation.Value = ""
Libelle.Value = ""
NomBanque.Value = ""
Unload creation
End Sub

j'espére qu'avec ce Code cela vous aidera

Merci bien
Cordialement

 

[kjin]

Re : Incrémentation Automatique d'un N° en début de Ligne

Bonjour,
A priori

Private Sub CommandButton5_Click()
....Ton code
Dim derlgn As Integer
With Worksheets("Echéancier")
derlgn = .Range("B65536").End(xlUp).Row + 1
.Cells(derlgn, 1) = Derlgn - ta ligne de départ
.Cells(derlgn, 2) = NomCompte.Value
.Cells(derlgn, 3) = La_Date.Value
.Cells(derlgn, 4) = NomBanque.Value '
.Cells(derlgn, 5) = TypeOperation.Value
.Cells(derlgn, 6) = Libelle.Value
.Cells(derlgn, 9) = Debit.Value
.Cells(derlgn, 8) = Credit.Value
End With
...le reste du code
End Sub

A+
kjin

 

[MuscatMimi]

Re : Incrémentation Automatique d'un N° en début de Ligne

Bonjour
Merci a toi kjin
aç me convient, je viens de faire l'essai

Ben ça alors tu est de Montpellier, j'y étais ce matin au Cirad

Tun'habite pas loin de chez moi, tu pourrai me donner des cours en VBA
ou VB, vu que je suis pas trés doué
cordialement