Numérotation incrémentée

T

Tintin

Guest

• 25 Octobre 2005

• #2

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

 

Vote positif 0 Vote négatif

L

Law

Guest

• 25 Octobre 2005

• #3

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 😉

 

Vote positif 0 Vote négatif

T

Tintin

Guest

• 25 Octobre 2005

• #4

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

 

Vote positif 0 Vote négatif

L

Law

Guest

• 25 Octobre 2005

• #5

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 😉

 

Vote positif 0 Vote négatif

T

Tintin

Guest

• 25 Octobre 2005

• #6

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]

 

Pièces jointes

• Numerotationabregee.zip

  2.6 KB · Affichages: 20

Vote positif 0 Vote négatif

L

Law

Guest

• 25 Octobre 2005

• #7

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 😉

 

Vote positif 0 Vote négatif

T

Tintin

Guest

• 25 Octobre 2005

• #8

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]

 

Pièces jointes

• Numerotationincrementee.zip

  2.6 KB · Affichages: 16

Vote positif 0 Vote négatif