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
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