Tableau et compteur

Bonjour,

J'aimerai créer un tableau récapitulatif. Le principe est d'incrémenter les lignes d'un tableau avec des renseignements générer par un bouton. Dans le tableau final il y a une colonne quantité, longueur, largeur etc. Lorsque les lignes sont similaires la dernière se supprime et incrémente la cellule quantité de 1 de la ligne similaire.

Si je n'ai pas été assez claire n’hésitez pas a me poser des questions je joins mon fichier (vous pouvez tester ce que j ai fait)

Merci d'avance

Cordialement

Manipulation:

1/ Remplissez le tableau du haut

2/Cliquer sur le bouton plaque

-> entrer differente taille puis rentrer une ligne égale à une antécédente pour tester la colonne quantité.

Quand la quantité est égale à 3 ca bug.

Bonjour,

il me semble qu'une macro est nécessaire, or tu nous as fourni un fichier sans macro.

Autant pour moi je sais pas ce qui s est passé (peut être un oubli de sauvegarde)

Désolé ca va vient de la sauvegarde

bonjour,

si j'ai bien compris ce que tu cherches à obtenir comme résultat

Private Sub CommandButton1_Click()
Call rectangle
Cells(2, 1) = 1
End Sub
Private Sub CommandButton2_Click()
Call reinitialiser
End Sub

Sub rectangle()
i = 23
found = False
Do While Cells(i, 2) <> ""
 If Cells(i, 3) = Cells(7, 2) And Cells(i, 4) = Cells(7, 3) Then
  Cells(i, 2) = Cells(i, 2) + 1
  found = True
  Exit Do
 End If
 i = i + 1
 If i > 30 Then MsgBox "plus de place pour ajouter une plaque": Exit Sub
Loop
If Not found Then
 Cells(i, 2) = 1
 Cells(i, 3) = Cells(7, 2)
 Cells(i, 4) = Cells(7, 3)
End If
End Sub

Sub reinitialiser()
Range("B23:d30").Select
Selection.ClearContents
End Sub

Bonjour,

Oui, tout à fait (j'ai finalement trouver la correction mais votre codage est plus court). J'ai cependant un nouveau problème si je souhaite annuler ma dernière ligne ou faire -1 sur une quantité tout est faussé. (A moins bien sur que je ne réinitialise tout ce qui serait long par la même occasion). Comment faire?