Dimensionner le tableau

bonjour

sur la feuille parametrage il y a deux colonne qui ont le meme nombre de ligne

ici j'identifie chaque ligne par son numero (id)

sur la feuille synthèse il y un tableau plus grand qui contien toutes les données

du tableau de la feuille "parametrager"

*mon objectif c'est d'ajouter sur la feuille "parametrage"

les ligne manquantes qui sont dejà sur la feuille synthèse

sachant que la mise à jour du tableau synthèse peu lui ajouter des lignes

il faut donc en tenir compte

mathematiquement je voudrais faire la chose suivante :

lorsque je fixe un numero de la feuille synthèse

si ce numero n'existe pas sur la feuille parametrage

alors j'ajoute la ligne correspondante dans mon tableau de la feuille parametrage

"en resumé je veux que les deux tableaux aient les memes dimensions"

merci bien

-- 27 Aoû 2010, 12:21 --

bonjour

voici comment il fallait proceder

Sub tableau_parametrage()

 Dim tableau() As Double
 Dim i As Long, j As Long, k As Long
 Dim n As Long, lastrow As Long
 Dim trouve As Boolean
 k = Sheets("Synthèse").Cells(65536, 1).End(xlUp).Row
 ReDim tableau(k)
 For i = 0 To k
    n = worksheets("Synthèse").Cells(i + 2, 1).Value
    trouve = False
    lastrow = Sheets("Parametrage").Cells(65536, 1).End(xlUp).Row
    For j = 0 To lastrow
        tableau(j) = Sheets("Parametrage").Cells(j + 2, 1).Value
            If n = tableau(j) Then
            trouve = True

            End If
    Next
        If trouve = False Then
        Sheets("Parametrage").Cells(lastrow + 1, 1).Value = n
        End If
 Next
End Sub

merci bien

22classeurpa.xls (15.64 Ko)
Rechercher des sujets similaires à "dimensionner tableau"