Discussion :

[steclejul]

Bonjour,

Je crée un programme afin d'insérer un tableau de 3 colonnes dans un document vide et seule la première colonne sera renseignée en fonction des éléments suivants :
1 - Demande du nombre de parties à créer (ce qui va définir le nombre de lignes du tableau)
2 - Demande du numéro de dossier (ex. 88888). Cet élément sera inséré sur chaque ligne de la première colonne.
3 - Enfin par rapport au nombre de lignes et au numéro de dossier il faut que la première colonne soit renseignée automatiquement avec le numéro de dossier et une alphanumérisation automatique

Exemple avec 5 parties à créer et numéro de dossier = 88888
1re ligne du tableau : 88888a
2e ligne du tableau : 88888b
3e ligne du tableau : 88888c
4e ligne du tableau : 88888d
5e ligne du tableau : 88888e

Je ne trouve pas la solution pour créer une alphanumérisation automatique.

J'espère avoir été assez claire

Merci beaucoup pour votre aide !

[SfJ5Rpw8]

tu peu utiliser chr... ( attention 26 lignes max...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
  Dim c As Byte
  Dim i As Integer
 
  c = Asc("a")
 
  For i = 0 To 4
   Debug.Print "88888" & Chr(c + i)
  Next
 
End Sub

[steclejul]

Merci beaucoup pour votre réponse mais j'ai encore un souci.

Je vous mets les lignes d'écriture du programme et le résultat qui s'affiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each Cell In ActiveDocument.Tables(1).Columns(1).Cells
     Cell.Select
     For i = 0 To nbmorceaux
         Cell.Range.Text = NumDoss & Chr(c + i) & ".rtf"
         'i = i + 1
     Next
Next

- sachant que nbmorceaux représente le nombre de morceaux donc le nombre de lignes du tableau (les lignes du tableau étant déjà créées auparavant dans le programme ;
- sachant que NumDoss correspond à mon numéro de dossier déjà défini auparavant également.

Voici le résultat affiché si mon numéro de dossier est le 88888 et que le nombre de morceaux est de 5

88888e
88888e
88888e
88888e
88888e

Alors que je voudrais obtenir :

88888a
88888b
88888c
88888d
88888e

A mon avis il ne manque pas grand chose mais j'ai essayé plein de choses et je n'y arrive toujours pas !

Merci beaucoup encore pour votre aide !

Edit
Penser à mettre les balises et à indenter le code.
Ajoutés par ouskel'n'or

[ouskel'n'or]

Pour répondre : tu as deux boucles là ou une seule suffirait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each Cell In ActiveDocument.Tables(1).Columns(1).Cells
     i = i + 1 
     Cell.Range.Text = NumDoss & Chr(c + i) & ".rtf" 
Next

Si j'ai compris ce que tu veux faire...

Tu dis

[steclejul]

C'est super ça fonctionne !

J'ai simplement déplacé la ligne i = i + 1 sous la ligne cell.range.text = numdoss & etc... parce que la première ligne du tableau commençait par la lettre b au lieu de la lettre a.

Merci beaucoup !