Numérotation incrémentée

[Tintin]

Bonjour à tous.
Est-il possible, dans une page de classeur, d'incrémenter automatiquement des numéros, dans des zones de texte différentes.
Ci-joint un fichier d'exemple.
Merci d'avance pour votre travail.
Tintin

 

[Tintin]

Re bonjour.
Désolé j'ai foiré sur le fichier joint.
Le voici.
Merci encore une fois pour vos solutions.
Tintin.

 

[Law]

Bonjour Tintin, bonjour le forum,

Sur le principe, c'est à priori tout à fait possible.

Mais tu as oublié de joindre ton fichier pour que les membres du forum puissent parfaitement comprendre ce que tu demandes.

Dans l'attente,

Bonne journée,
Ciao ciao

 

[Tintin]

Bonjour Law.
Désolé, j'ai souvent des problèmes avec les fichiers joints.
Je réessaie.

 

[Law]

Rappel : pour joindre un fichier, ce dernier doit être compressé (il doit peser moins de 50 ko) avec un nom sans espaces ni caractères spéciaux.

Dans l'attente,
Ciao ciao

 

[Tintin]

Re bonjour le forum.
C'est toujours moi et j'essaie toujours de joindre mon fichier. [file name=Numerotationabregee.zip size=2636]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Numerotationabregee.zip[/file]

 

[Law]

Cette fois c'est la bonne pour le fichier joint

Voici un essai de code Visual Basic.
Il y a surement mieux mais je ne suis qu'un débutant moi aussi.

Sub ZoneDeTexte()

Application.ScreenUpdating = False

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll

Z = 1

For Each Shapes In Selection

Zone = Shapes.Name
ActiveSheet.Shapes(Zone).Select
Selection.Characters.Text = Z
With Selection.Characters(Start:=1, Length:=4).Font
.Name = 'Arial'
.FontStyle = 'Gras'
.Size = 20
End With
Z = Z + 1
Next Shapes

Application.ScreenUpdating = True

End Sub

Bonne journée,
Ciao ciao

 

[Tintin]

Re bonjour Law et le forum.
Je me suis mal exprimé sur le sujet.
Je voudrais, dans ce fichier, que lorsque je fais un contrôle + C (pour recopier une zone de texte), le numéro suivant s'affiche.
Merci d'essayer de me trouver une solution.
Tintin. [file name=Numerotationincrementee.zip size=2636]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Numerotationincrementee.zip[/file]