XL 2016 Numéro de fiche itératif

[Najih]

Bonjour Les Amis,
Svp, dans un formulaire j'ai besoin d'un numéro on rajoutant a chaque fois 1 a la dernière valeur de la dernière cellule non vide de la colonne B
Formulaire de saisie dans une feuille nommée "FNC_CHAHBI" , la cellule "E4"
"DATA" c'est Feuille ou se trouve la derniere cellule non vide de la colonne B sur laquelle on doit rajouter

j'ai essayé ça:
Private Sub CommandButton2_Click()
Dim nbrfiche As Range
nbrfiche.Value = Sheets("DATA").Range("B65536").End(xlUp).Row
Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche.Value + 1
End Sub

j obtiens un débogage dans cette ligne:
nbrfiche.Value = Sheets("DATA").Range("B65536").End(xlUp).Row

 

[sylvanu]

Bonjour Najih,
nbrfiche est un nombre pas un range :

Private Sub CommandButton2_Click()
Dim nbrfiche As Long
nbrfiche = Sheets("DATA").Range("B65536").End(xlUp).Row
Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche + 1
End Sub

 

[_Thierry]

Bonjour @Najih , le Forum

Pas besoin de passer par un objet Range pour 'nbrfiche'.... Enfin à mon humble avis ...

Option Explicit

Private Sub CommandButton2_Click()
Dim nbrfiche As Integer

nbrfiche = Sheets("DATA").Range("B65536").End(xlUp).Row
Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche + 1

End Sub

Bonne fin de journée
@+Thierry

EDIT Salut @sylvanu !
Et aussi as Long oui, si on dépasse la capacité Integer

 

[jmfmarques]

Bonjour
nbrfiche.Value
Value de quoi, puisque tu n'as nulle part défini l'objet range nbrfiche ...

 

[sylvanu]

Re,
Avec une limite à 65536, pas Integer mais plutôt Long.

 

[_Thierry]

Oui Sylvanu en effet 65536 c'est la limite en ligne d'avant Office 2007... So Better as Long
Notre ami a du copier ce code de l'époque...

It's a Long Way to the Top if you wanna Rock N'Roll !!!

@+Thierry

 

[sylvanu]

Bien sur mais ce n'est pas le cas de 2016. D'ailleurs sur 2007 j'ai 2^20 lignes.
Si la Base qui est dans Data a plus de 32768 lignes il y a erreur.
N'ayant aucun fichier test, un Long est plus sécurisant qu'un Integer;

 

[Najih]

Bonjour @Najih , le Forum

Pas besoin de passer par un objet Range pour 'nbrfiche'.... Enfin à mon humble avis ...

Option Explicit

Private Sub CommandButton2_Click()
Dim nbrfiche As Integer

nbrfiche = Sheets("DATA").Range("B65536").End(xlUp).Row
Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche + 1

End Sub

Bonne fin de journée
@+Thierry

EDIT Salut @sylvanu !
Et aussi as Long oui, si on dépasse la capacité Integer

Thierry
ca repond a la moitie de mon besoin deja merci bcp
ca ma reste de prendre en compte le contenu de la cellule, par exemple si la valeur de derniere cellule est de 30 ex (mem si elle est dans la ligne 20 par ex)
je cherche a avoir 30+1 = 31

mercii encore

 

[Najih]

Bonjour Najih,
nbrfiche est un nombre pas un range :

Private Sub CommandButton2_Click()
Dim nbrfiche As Long
nbrfiche = Sheets("DATA").Range("B65536").End(xlUp).Row
Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche + 1
End Sub

sylvanu
mercii bcp aussi,

 

[_Thierry]

Bonsoir @Najih, @sylvanu @jmfmarques , le Forum

ca ma reste de prendre en compte le contenu de la cellule, par exemple si la valeur de derniere cellule est de 30 ex (mem si elle est dans la ligne 20 par ex)

Ah oui dans ce cas ça change tout !

Option Explicit

Private Sub CommandButton2_Click()
Dim nbrfiche As Range

Set nbrfiche = Sheets("DATA").Range("B65536").End(xlUp)

If IsNumeric(nbrfiche.Value) Then
    Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche.Value + 1
Else
    MsgBox "La valeur de " & nbrfiche.Address & " n'est pas numérique!" & vbCrLf & "Aucun calcul effectué"
End If
End Sub

A noter le SET d'objet pour faire un objet "Range" ... (comme signalé par jmfmarques au début)

Bonnne soirée
@+Thierry

 

[Najih]

Bonsoir @Najih, @sylvanu @jmfmarques , le Forum



Ah oui dans ce cas ça change tout !

Option Explicit

Private Sub CommandButton2_Click()
Dim nbrfiche As Range

Set nbrfiche = Sheets("DATA").Range("B65536").End(xlUp)

If IsNumeric(nbrfiche.Value) Then
    Sheets("FNC_CHAHBI").Range("E4").Value = nbrfiche.Value + 1
Else
    MsgBox "La valeur de " & nbrfiche.Address & " n'est pas numérique!" & vbCrLf & "Aucun calcul effectué"
End If
End Sub

A noter le SET d'objet pour faire un objet "Range" ... (comme signalé par jmfmarques au début)

Bonnne soirée
@+Thierry

Bonsoir @+Thierry
ça Marche très bien cher Ami
Merci beaucoup