2,9 + 0,1=2,10

[Sophie1979]

Comment arriver à une décimal supérieur à 9 ?

Merci

 

[vgendron]

bonjour aussi et bienvenue

va falloir etre plus claire..
déjà.. 2.9 +.01 = 3.. et pas 2.1 (à moins que ce ne soient des math modernes.. 🙂 )
si ton excel te dit 2.1: il y a certainement une erreur quelque part..
et quel est le lien entre le titre et la demande: "Arriver à une décimale supérieure à 9 ?"

 

[Sophie1979]

En fait il s'agit de numérotation (numéros d'article ) 2.1 ; 2.2 ; 2.3 ; .... ; 2.9 ; 2.10 ; 2.11 ; ....

est-ce qu'une formule existe adapté à ma situation

 

[vgendron]

cellule format texte
2.1
et tu tires vers le bas..

 

[job75]

Bonjour Sophie1979, vgendron,

Voyez le fichier joint et ces 2 macros, ça peut vous intéresser :

Sub NouveauChapitre()
With Range("B" & Rows.Count).End(xlUp) 'colonne B ou au-delà, à adapter
  .Cells(2, 0) = Application.Max(Columns(.Column - 1)) + 1
End With
End Sub

Sub NouvelArticle()
With Range("B" & Rows.Count).End(xlUp) 'colonne B ou au-delà, à adapter
  If .Cells(2, 0) <> "" Then
    .Cells(2) = .Cells(2, 0) & ".1"
  Else
    .AutoFill .Resize(2)
  End If
End With
End Sub

J'ai mis la colonne B au format "Texte" au cas où le séparateur décimal de l'ordi serait le point.

A+

 

[job75]

Re,

On peut n'utiliser qu'une colonne :

Sub NouveauChapitre()
With Range("A" & Rows.Count).End(xlUp)(2) 'colonne à adapter
  .NumberFormat = """Chapitre ""0" 'format nombre personnalisé
  .Value = Application.Max(Columns(.Column)) + 1
End With
End Sub

Sub NouvelArticle()
With Range("A" & Rows.Count).End(xlUp) 'colonne à adapter
  .Cells(2).NumberFormat = "@" 'format Texte
  If .Text Like "Chapitre*" Then
    .Cells(2) = .Value & ".1"
  Else
    .AutoFill .Resize(2)
  End If
End With
End Sub

Fichier (2).

A+

 

[Modeste geedee]

En fait il s'agit de numérotation (numéros d'article ) 2.1 ; 2.2 ; 2.3 ; .... ; 2.9 ; 2.10 ; 2.11 ; ....

est-ce qu'une formule existe adapté à ma situation

il ne s'agit donc pas d'un système décimal mais d'une concaténation
=[N°Chapitre]&"." & [N°Paragraphe]

 

[job75]

Bonjour Sophie1979, vgendron, Modeste geedee, le forum,

Dans ce fichier, organisation en tableau Excel avec cette formule en B2 :

=[@N°]&"."&NB.SI(A$1:[@N°];[@N°])

Il suffit de continuer la numérotation en colonne A.

Bonne journée.

 

[job75]

Re,

Pour le fun on peut choisir la couleur du tableau Excel.

Fichier (2).

A+

 

[job75]

Re,

Une autre solution avec ce fichier (3).

Formule en A2 :

=SOMMEPROD(N(SUPPRESPACE(C$1:[@Titre3])=""))

Formule en B2 :

=SI(SUPPRESPACE([@Titre3])="";[@N°];[@N°]&"."&NB.SI(A$1:[@N°];[@N°])-1)

Entrer des données en colonne C pour incrémenter le tableau.

Edit : j'ai modifié les formules des 3 fichiers pour que l'insertion ou la suppression de lignes ne pose pas de problème.

A+