2,9 + 0,1=2,10

vgendron

XLDnaute Barbatruc

• 11 Avril 2017

• #2

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

 

Vote positif 0 Vote négatif

S

Sophie1979

Guest

• 11 Avril 2017

• #3

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Avril 2017

• #5

Bonjour Sophie1979, vgendron,

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

Code:

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+

 

Pièces jointes

• Articles(1).xlsm

  23.5 KB · Affichages: 19

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Avril 2017

• #6

Re,

On peut n'utiliser qu'une colonne :

Code:

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+

 

Pièces jointes

• Articles(2).xlsm

  24.1 KB · Affichages: 22

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Avril 2017

• #7

Sophie1979 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2017

• #8

Bonjour Sophie1979, vgendron, Modeste geedee, le forum,

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

Code:

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

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

Bonne journée.

 

Pièces jointes

• Articles tableau Excel(1).xlsx

  12 KB · Affichages: 13

Dernière édition: 12 Avril 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2017

• #9

Re,

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

Fichier (2).

A+

 

Pièces jointes

• Articles tableau Excel(2).xlsx

  15.2 KB · Affichages: 13

Dernière édition: 12 Avril 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2017

• #10

Re,

Une autre solution avec ce fichier (3).

Formule en A2 :

Code:

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

Formule en B2 :

Code:

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

 

Pièces jointes

• Articles tableau Excel(3).xlsx

  16.6 KB · Affichages: 27

Dernière édition: 12 Avril 2017

Vote positif 0 Vote négatif