Incrementé sur la premiere ligne

[SSIAP2]

Bonjour à tous

j'ai un petit probleme j'utilise pour mes projets une macro qui me permet alimenté mes lignes de ma base de donnée elle s'ajoute à la suite des unes des autres.

Private Sub valide()



i = Sheets(T10.Text).Range("A" & Sheets(T10.Text).Cells.Rows.Count).End(xlUp).Row + 1

  With Worksheets(T10.Text)
  
  
      .Cells(i, 1).Value = P0.Value
      .Cells(i, 2).Value = P1.Value
      .Cells(i, 3).Value = P2.Value

    End With
 End Sub

aujourdhuis j'essais de faire le contraire c'est a dire que toute nouvelle incrémentation se fasse sur ma premiere ligne ici la ligne 3 et les ancienne donc se décale d'une ligne en dessous.

cela pour faire en sorte d'avoir toujour la derniere information sur la premiere ligne de ma BD (c'est à dire ligne 3)

pouvez vous m'aider svp modifier ma macro pour que cela se fasse.

merci d'avance de votre aide

 

[JNP]

Re : Incrementé sur la premiere ligne

Bonjour Ssiap2 🙂,
Comme ceci peut-être 😉

Private Sub valide()
With Worksheets(T10.Text)
    .Rows(3).Insert
    .Cells(3, 1).Value = P0.Value
    .Cells(3, 2).Value = P1.Value
    .Cells(3, 3).Value = P2.Value
End With
End Sub

Bon WE 😎

 

[SSIAP2]

Re : Incrementé sur la premiere ligne

Bonsoir JNP merci pour ta solution celui ci fonctionne trés bien.

je te souhaite un bon week end

à trés bientot