Valeur cellule +1

Bonjour à tous,

Je bloque sur une chose complètement bête mais étant débutant j'aurais besoin d'un petit coup de pouce svp

Il me manque un bout de code pour la 7ème ligne je voudrais écrire que cela soit égal à la valeur de la cellule D1 +1.

J'ai essayé deux trois trucs mais rien n'y fait.

Quelqu'un peut-il m'aider ?

Merci

Cdlt

Private Sub CommandButton1_Click()
Dim DerLig As Long

 Rep = MsgBox("Souhaitez-vous poursuivre ?", vbYesNo + vbQuestion, "")
    If Rep = vbYes Then
    With Worksheets("Amélioration")
    DerLig = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & DerLig) =
    .Range("A" & DerLig).Offset(0, 3) = Me.TextBox2
    .Range("A" & DerLig).Offset(0, 4) = Me.TextBox3
    .Range("A" & DerLig).Offset(0, 1) = Me.TextBox4
    .Range("A" & DerLig).Offset(0, 5) = Me.TextBox5
    .Range("A" & DerLig).Offset(0, 2) = "Actif"
          End With
        MsgBox ("Votre proposition sera étudiée lors de la prochaine réunion, Merci")
    End If
End Sub

Bonjour,

Qu'y at-il en D1 ???

Essayez

.Range("A" & DerLig) = .Range("D1") + 1

Dans l'ensemble cette formulation serait un mieux...

Private Sub CommandButton1_Click()
Dim iR As Long, Rep
 Rep = MsgBox("Souhaitez-vous poursuivre ?", vbYesNo + vbQuestion, "")
If Rep = vbYes Then
   With Worksheets("Amélioration")
      iR = .Range("A65536").End(xlUp).Row + 1
      .Cells(iR, 1) = .Range("D1") + 1
      .Cells(iR, 4) = Me.TextBox2
      .Cells(iR, 5) = Me.TextBox3
      .Cells(iR, 2) = Me.TextBox4
      .Cells(iR, 6) = Me.TextBox5
      .Cells(iR, 3) = Actif
   End With
   MsgBox ("Votre proposition sera étudiée lors de la prochaine réunion, Merci")
End If
End Sub

[Nota] Prenez l'habitude de mettre vos Textbox dans l'ordre des colonnes !

A+

Merci galopin !

Cdlt