dianbobo
XLDnaute Junior
'soit 2 feuilles synthèse et parametrage
'sur la feuille parametrage il y a dejà une base de données construite a l'aide
'des données de la feuille synthèse a mettre a jour
'sur la feuile synthèse il y a un tableau
'je veux faire la chose suivante :
'1)verifier si le numero en cellule A(i) de ma feuille synthèse est present sur ma feuille
'de parametrage si tel est le cas on ne fait rien
'mai si ce numero n'existe pas sur ma feuille de parametrage alors j'ajoute la ligne correspondante
'sur mafeuille parametrage
End Sub'et j 'ai ecris le code ci-dessus mais il est faux
'comment le corriger?
'merci bien
'sur la feuille parametrage il y a dejà une base de données construite a l'aide
'des données de la feuille synthèse a mettre a jour
'sur la feuile synthèse il y a un tableau
'je veux faire la chose suivante :
'1)verifier si le numero en cellule A(i) de ma feuille synthèse est present sur ma feuille
'de parametrage si tel est le cas on ne fait rien
'mai si ce numero n'existe pas sur ma feuille de parametrage alors j'ajoute la ligne correspondante
'sur mafeuille parametrage
Code:
Sub tableau()
Dim Cel As Range, Lg As Byte
Dim i As Long, L As Long, k As Long
Dim j As Long, nombre As Long
Dim lastrow As Long
Application.ScreenUpdating = False
k = Sheets("Synthèse").Cells.Find("*", , , , xlByRows, xlPrevious).Row
lastrow = Sheets("parametrage").Cells.Find("*", , , , xlByRows, xlPrevious).Row
With Sheets("parametrage")
For Each Cel In .Range("a2:a171")
With Sheets("Synthèse")
For i = 6 To k
If .Cells(i, "A") <> Cel Then
worksheets("parametrage").Cells(lastrow + 1, 1).Value = _
Sheets("Synthèse").Cells(i, 1).Value
worksheets("parametrage").Cells(lastrow + 1, 2).Value = _
Sheets("Synthèse").Cells(i, "D").Value
worksheets("parametrage").Cells(lastrow + 1, 3).Value = _
Sheets("Synthèse").Cells(i, "E").Value
End If
Next
End With
Next Cel
End With
'comment le corriger?
'merci bien