Case suivante dans un tableau avec VB

[vanilladream]

Bonjour,

J'ai un tableau avec plusieurs colonnes et je veux construire un fichier word avec les données des premières deux colonne du tableau. On ignore les lignes qui n'ont pas de valeurs dans la deuxième colonne.

Voilà ce que je fait (évidament ça ne marche pas)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each celTable In tblOne.Columns(1).Cells
            Set rngTableID = celTable.Range
 
            'Valeur de la première case de la ligne prise en compte
            Set textTableID = celTable.Row.Range.Cells(1)
            'Valeur de la deuxième case de la ligne prise en compte
            Set textTableIDentifier = celTable.Row.Range.Cells(2)
 
            If rngTableIDentifier.Characters.Count = 0 Then
                'On n'écrit pas les données correspondantes à cette ligne
            Else 'On écrit les données dans le fichier (future XML)
                Print #1, textTableID; Tab
                Print #1, textTableIDentifier
            End If

Les textTableID et testTableIDentifier sont des String alors que Set fonction avec des objet, masi je ne vois pas du tout comment le faire... Et j'imagine que ce n'est pas difficil de sélectioner une case et de passer à la suivante.

Merci pour tout aide.

[Heureux-oli]

Est-ce ton code en entier ?

Alors, il manque pas mal de choses.

Perso, je travaillerait avec les coordonnées des cellules.

on peut atteindre une cellule plus facilement et naviguer plus rapidement.

x = x + 1
y = y - 1

Peut-être une ébauche de solution dans la FAQ !

FAQ