variable et suppression ou ajout ligne

[Aladin]

Bonjour
J' ai commencé une macro et je seche, cette macro doit compter le nbre de ligne à importer et le mettre dans une variable, compter le nbre de ligne entre une plage sur la feuille résultat et faire la différence pour soit supprimer des lignes en trop ou ajouter les lignes suivant l' import. je l' ai comence et je ne sais plus qoui faire
Sub Test_3()

Dim a As String ' variable récuperantle résultat du nbre lignes à importé
Dim b As String ' variable récupérant le résultat du nbre lignes feuilles resultat
Dim x As String
Dim y As String


Dim plage_1 As Range 'feuille Import
Dim plage_2 As Range


Set plage_1 = Worksheets("Import").Range("A2:A65536")
a = Application.WorksheetFunction.CountA(plage_1)
'MsgBox Application.WorksheetFunction.CountA(plage_1)

Set plage_2 = Worksheets("resultat").Range("A29:A118")
b = Application.WorksheetFunction.CountA(plage_2)
'MsgBox Application.WorksheetFunction.CountA(plage_2)

End Sub
Toute aide sera la bienvenue, merci d' avance
Aladin

 

[Pierrot93]

Re : variable et suppression ou ajout ligne

Re

essaye en modifiant comme suit :

If x > z Then
    Sheets("Resultat").Rows("30:" & 30 + (x - (z [B][COLOR="Red"]+ 3[/COLOR][/B]))).Insert
Else
    Sheets("Resultat").Rows("30:" & 30 + (z - (x [COLOR="red"]+ 3[/COLOR]))).Delete
End If

pas testé, sinon fais des essais en modifiant les (+3)

@+