Code

Question

Bonjour, j'ai un problème avec mon code, lorsque j'exécute il ne se passe rien et je ne vois pas pourquoi.

Mon code ci-dessous et mon taleau excel en PJ.

Merci d'avance pour toute aide

Sub Creer_id()

F = ActiveSheet.Name
MsgBox (F)

Dim i As Integer
r = 0
c = 0
t = 0
o = 0
x = 0

   For i = 8 To Range("S" & Rows.Count).End(xlUp).Row
      Select Case UCase(Cells(i, 8).Value)
         Case "Rond"
            r = r + 1
            Cells(i, 19).Value = "R" & Format(r, "000")

         Case "Carré"
            c = c + 1
            Cells(i, 19).Value = "C" & Format(c, "000")

         Case "Triangle"
            t = t + 1
            Cells(i, 19).Value = "T" & Format(t, "000")

         Case "Ovale"
            o = o + 1
            Cells(i, 19).Value = "O" & Format(o, "000")

         Case "Autres"
            x = x + 1
            Cells(i, 19).Value = "X" & Format(x, "000")
      End Select
   Next
End Sub

8forme.zip (9.26 Ko)

Steelson · Answer

Ceci ne peut pas fonctionner si la colonne S n'est pas renseignée !

For i = 8 To Range("S" & Rows.Count).End(xlUp).Row

n'est-ce pas plutôt

For i = 8 To Range("H" & Rows.Count).End(xlUp).Row

ensuite :

Select Case (Cells(i, 8).Value)

sans UCase car les valeurs ne pas en majuscule dans les différents cas explorés

Amadéus · Answer

Merci de terminer le post précédent https://forum.excel-pratique.com/excel/attribuer-un-code-unique-automatiquement-t61749.html Cordialement...