formule dans un tableau Word

Bonjour,
Tu ferais mieux d'utiliser Excel pour ça. Cela dit, si tu tiens à faire ça
dans Word, voici une macro qui incrémentera automatiquement les numéros de
lignes, de la première à la dernière, à partir de la valeur que tu auras
définie.
Mais je sens que ça va chauffer pour moi : les PMIS (pros-) vont hurler de
rire en voyant ce code, et les AMIS vont hurler d'indignation.
Tant pis (Ne t'inquiète pas, tout va bien...)

AB

Sub Numérotation_auto()
A = InputBox("Nombre début ?")
ActiveDocument.Tables(1).Select
With Selection
lignefin = .Information(wdEndOfRangeRowNumber)
ActiveDocument.Tables(1).Cell(1, colonneDebut).Select
Selection.Delete
Selection.InsertAfter A
End With
For i = 2 To lignefin
A = A + 1
ActiveDocument.Tables(1).Cell(i, 1).Select
Selection.Delete
Selection.InsertAfter A
Next i
End Sub
Maryse wrote:
|| Bonjour,
||
|| Je voudrais faire des étiquettes et inscrire exemple dans la
|| première cellule 492001 et que dans les autres il y ai toujours +1
|| (séquentiels). Car j'ai beaucoup de numéro

Hello !

Chouette, on a le droit de hurler d'indignation !!! :-D Allons-y !!!
Bon, dans Word, pour numéroter des cellules de tableau, il suffit de
sélectionner la colonne et de mettre un format numéro de paragraphe....
Ceci étant dit, le maximum pour débuter étant de 32767, je ne dirai trop
rien car pour pouvoir y mettre du 49001, il faudrait un peu bricoler...

Mais, enfin, Excel sert à quoi ?... Dans une cellule on met son 49001,
on fait un remplissage série en indiquant le dernière valeur et hop ! il
faut au moins 1 seconde pour faire ça et au moins le double pour faire
un copier coller vers Word... ;-)

Merci André de m'avoir donné l'occasion de m'exprimer !! :-D

Circé

Bonjour,
Tu ferais mieux d'utiliser Excel pour ça. Cela dit, si tu tiens à faire ça
dans Word, voici une macro qui incrémentera automatiquement les numéros de
lignes, de la première à la dernière, à partir de la valeur que tu auras
définie.
Mais je sens que ça va chauffer pour moi : les PMIS (pros-) vont hurler de
rire en voyant ce code, et les AMIS vont hurler d'indignation.
Tant pis (Ne t'inquiète pas, tout va bien...)

AB

Sub Numérotation_auto()
A = InputBox("Nombre début ?")
ActiveDocument.Tables(1).Select
With Selection
lignefin = .Information(wdEndOfRangeRowNumber)
ActiveDocument.Tables(1).Cell(1, colonneDebut).Select
Selection.Delete
Selection.InsertAfter A
End With
For i = 2 To lignefin
A = A + 1
ActiveDocument.Tables(1).Cell(i, 1).Select
Selection.Delete
Selection.InsertAfter A
Next i
End Sub
Maryse wrote:
|| Bonjour,
||
|| Je voudrais faire des étiquettes et inscrire exemple dans la
|| première cellule 492001 et que dans les autres il y ai toujours +1
|| (séquentiels). Car j'ai beaucoup de numéro

Bonjour à tous,
dans le message bvmgdn$j46$1@news-reader5.wanadoo.fr,

| Bonjour,
| Tu ferais mieux d'utiliser Excel pour ça. Cela dit, si tu tiens à
| faire ça dans Word, voici une macro qui incrémentera automatiquement
| les numéros de lignes, de la première à la dernière, à partir de la
| valeur que tu auras définie.
| Mais je sens que ça va chauffer pour moi : les PMIS (pros-) vont
| hurler de rire en voyant ce code, et les AMIS vont hurler
| d'indignation.
| Tant pis (Ne t'inquiète pas, tout va bien...)


Mais non, mais non personne ne va hurler.
Cela dit, ce qui est superfétatoire, c'est la selection des cellules :
ActiveDocument.Tables(1).Cell(i, 1).Select
Selection.Delete
Selection.InsertAfter A

il suffit de faire :
ActiveDocument.Tables(1).Cell(i, 1).Range.Text=A
sauf si tu veux faire de la mise en forme après l'insertion.
--
A+

G.M. COMMIS (Contre les Opposants Malveillants aux Macros
Indubitablement Satisfaisantes)

Ah, Ah ! Guy, je savais que tu allais sortir du bois.
Un nouveau club ! Merci pour le "indubitablement satisfaisantes". Tu es trop
bon !

André

Guy Moncomble wrote:
|| Bonjour à tous,
|| dans le message bvmgdn$j46$1@news-reader5.wanadoo.fr,
||
||| Bonjour,
||| Tu ferais mieux d'utiliser Excel pour ça. Cela dit, si tu tiens à
||| faire ça dans Word, voici une macro qui incrémentera automatiquement
||| les numéros de lignes, de la première à la dernière, à partir de la
||| valeur que tu auras définie.
||| Mais je sens que ça va chauffer pour moi : les PMIS (pros-) vont
||| hurler de rire en voyant ce code, et les AMIS vont hurler
||| d'indignation.
||| Tant pis (Ne t'inquiète pas, tout va bien...)
||
||
|| Mais non, mais non personne ne va hurler.
|| Cela dit, ce qui est superfétatoire, c'est la selection des cellules
|| : ActiveDocument.Tables(1).Cell(i, 1).Select
|| Selection.Delete
|| Selection.InsertAfter A
||
|| il suffit de faire :
|| ActiveDocument.Tables(1).Cell(i, 1).Range.Text=A
|| sauf si tu veux faire de la mise en forme après l'insertion.
|| --
|| A+
||
|| G.M. COMMIS (Contre les Opposants Malveillants aux Macros
|| Indubitablement Satisfaisantes)


begin 666 smile.gif
M1TE&.#EA#P`/`)$!`````+^_O___`````"'Y! $```$`+ `````/`````(N
MC V9QY$"X6(@6GGJO0!)+3RA$XDA:&Y6JGXMIX$K%G,8^2EE]G:4?&ID%+Y#
#`0`[
`
end

Bonjour à tous,
dans le message #DUe0dn6DHA.1428@TK2MSFTNGP12.phx.gbl,

| Ah, Ah ! Guy, je savais que tu allais sortir du bois.
| Un nouveau club ! Merci pour le "indubitablement satisfaisantes". Tu
| es trop bon !

On ne se refait pas ! hélas je vais peut-être devoir à nouveau entrer
dans le bois car, après une période difficile du même genre que celle
que tu traverses, voilà que ma machine s'y met et j'ai des soucis avec
ma belle 9600XT toute neuve.
--
A+

G.M. MVP Word