Format N°

[apdf]

Bonjour

Est-il possible d'avoir en VBA le N° dans une cellule.

En formule

=SI(F3="";"";"N°" &LIGNE()-4)

J'aimerais si possible avoir la même chose en VBA

Pour illustrer ma demande, je joins un fichier

Merci d'avance

 

[Gorfael]

Re : Format N°

Salut apdf et le forum

La formule

=SI(F3="";"";"N°" &LIGNE()-4)

s'écrit en VBA :

if range("F3")="" then
    Range(x)=""
else
    Range(x).formula = "N°" & range(x).row-4
end if

x étant la référence de la cellule contenant la formule
Pas testée, et la flemme de télécharger le fichier
A+

 

[Robert]

Re : Format N°

Bonnour Max, Gorfael, bonjour le forum,

Essaie comme ça :

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
If test = True Then Exit Sub 'si la variable test est vrai, sort de la procédure
If Target.Column <> 5 Then Exit Sub 'si la colone de la cellule éditée est différente de 5, sort de la procédure
If Target.Row < 3 Then Exit Sub 'si la ligne de la cellule éditée est inférieure à 3, sort de la procédure
If Selection.Cells.Count > 1 Then Exit Sub 'si le nombre de cellules sélectionnées est supérieur à 1, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
test = True 'définit la variable test
Target.Value = "Nº " & Target.Value 'rajoute "Nº "
test = False 'redéfinit la variable test
End Sub

Attention la première ligne...

Private test As Boolean 'déclare la variable test

...doit toujours être placée en premier tout en haut du module !

 

[apdf]

Re : Format N°

Bonjour Gorfael, Robert,

Je vous remercie Sa marche nickel Robert....!

Bonne journée et merci encore