J'ai un tableau de données et je voudrais permettre à l'utilisateur de sélectionner la cellule où commencer la numérotation et la colonne à prendre en compte.
J'utilise la methode inputbox pour obtenir les deux range choisis par l'utilisateur.
C'est pour avoir la numérotation automatique jusqu'à la dernière cellule non vide de la colonne à prendre en compte que je bloque.
Voici le code que j'ai essayé sans succès jusqu'à maintenant:
En vous remerciant par avance de vos suggestions.
Nicolasvb
J'utilise la methode inputbox pour obtenir les deux range choisis par l'utilisateur.
C'est pour avoir la numérotation automatique jusqu'à la dernière cellule non vide de la colonne à prendre en compte que je bloque.
Voici le code que j'ai essayé sans succès jusqu'à maintenant:
Code:
Private Sub Numauto()
Dim CelSel As Variant
Dim Colréf As Variant
Set CelSel = Application.InputBox("Veuillez sélectionner la cellule où commencer la numérotation", Type:=8) ' obtention du range de la cellule de départ de la numérotation
Set Colréf = Application.InputBox("Veuillez Sélectionner une cellule de la colonne de référence", Type:=8) ' la colonne de référence est la colonne qui déterminera la fin de la numérotation
i = CelSel.Row
j = CelSel.Column
k = Colréf.Column
Cells(i, j).Value = 1
'Range(Cells(i,j),Cells(Cells(Rows.Count, k).End(xlUp).row,k).Formulalocal = "=CelSel+1" ' c'est là que je m'embrouille complétement!
End Sub
En vous remerciant par avance de vos suggestions.
Nicolasvb
Pièces jointes
Dernière édition: