Créer un bouton "enregistrer"

J'ai peut-être compris, ce serait plus ça :

Private Sub CommandButton1_Click()
Dim rep As Integer
Dim Enregistrement As Boolean
Enregistrement = False
i = 6
While i < 11 Or Enregistrement = False
If Sheets("op").Range("B" & i).Value = 0 Then
rep = MsgBox("Voulez-vous vraiment enregistrer l'opération effectuée ?", vbYesNo, "Confirmation")
If rep = vbYes Then
Sheets("op").Range("B" & i).Value = Range("E2").Value
Enregistrement = True
Else
Exit Sub
End If
End If
i = i + 1
Wend
End Sub

As-tu vraiment essayer le dernier programme que je t'ai envoyé ? Si oui, je vais t'expliquer chaque ligne tu programmes et peut-être que tu vas y arriver sinon tu me diras où est le problème car je pense qu'il est proche de la solution que tu cherches.

Code :
Private Sub CommandButton1_Click()
Dim rep As Integer
Dim Enregistrement As Boolean
Enregistrement = False
'Début du compteur à 6
i = 6
'Conditions de sortie de la boucle (pour i entre 6 et 10 et une fois que l'enregistrement a été fait)
While i < 11 Or Enregistrement = False
'Tant qu'il n'a pas trouvé de case vide de B6 à B10, il cherche.
If Sheets("op").Range("B" & i).Value = 0 Then
'Si trouvé une case vide alors il demande si l'on veut enregistré
rep = MsgBox("Voulez-vous vraiment enregistrer l'opération effectuée ?", vbYesNo, "Confirmation")
'Si réponse est oui alors il enregistre et met la variable Enregistrement à true pour pouvoir sortir de la boucle
If rep = vbYes Then
Sheets("op").Range("B" & i).Value = Range("E2").Value
Enregistrement = True
'Si la réponse est non il sort de la macro en ayant rien fait
Else
Exit Sub
End If
End If
'La boucle tourne tant que case vide pas trouvé et que enregistrement non fait
i = i + 1
Wend
End Sub

Bonjour,

Inutile de poser votre question sur plusieurs forums.

Private Sub CommandButton1_Click()
Dim rep As Integer, Dl As Long

With  Sheets("op")
   Dl = .Range("B" & Rows.Count).End(xlUp).Row
   If Dl = 1 Then Dl = 6
   rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
   If rep = vbYes Then
       .Range("B" & Dl).Value = Range("E2").Value
   End If
End With
End Sub

Alors j'ai vérifié moi-même et l'erreur est sur cette ligne :
While i < 11 Or Enregistrement = False
qu'il faut remplacer par
While i < 11 And Enregistrement = False

Tiens moi au courant si ça marche.

Après test de la fonction de pijaku, la macro écrase la dernière valeur de la colonne B donc je dirais :
Dl = .Range("B" & Rows.Count).End(xlUp).Row + 1 pour être excate mais l'optimisation est géniale, quand je compare mon code au tien ^^. Je serais retenir :).

Et du coup If Dl = 2 Then Dl = 6

oui, j'ai omis le +1.
Bien vu

Private Sub CommandButton1_Click()
Dim rep As Integer, Dl As Long

With  Sheets("op")
   Dl = .Range("B" & Rows.Count).End(xlUp).Row + 1
   If Dl = 2 Then Dl = 6
   rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
   If rep = vbYes Then
       .Range("B" & Dl).Value = Range("E2").Value
   End If
End With
End Sub

Bonjour,

ça n'est pas D1 mais Dl...

Range("B" & Rows.Count).End(xlUp).Row

n'est pas une fonction mais détermine qu'elle est la dernière cellule non vide de la colonne B.
Pour obtenir le numéro de la première ligne vide de la colonne B il suffit de lui ajouter 1 :

Dl = .Range("B" & Rows.Count).End(xlUp).Row + 1

Ensuite, le test :

If Dl = 2 Then Dl = 6

sert si aucune cellule n'est remplie dans la colonne B. En effet, lorsque la colonne est vide, Dl vaut 2; Comme tu souhaites commencer à 6, on dit ici que si Dl = 2 alors Dl = 6...