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 Submerci bien