=SI(C4="";"";"code"&SOMMEPROD((ESTNUM(CHERCHE("code";$A$3:A3)))*1)+1)
Format :=(C4<>"")*NB.SI(C$4:C4;"oui")
"code "Standard;;
Option Explicit
Sub Numéro_incrémenter()
Dim compteur As Integer
Dim c As Range
Application.ScreenUpdating = False
compteur = 1
For Each c In Columns(3).SpecialCells(xlCellTypeConstants, 23)
If c = "oui" Then
c.Offset(, -2) = "code " & compteur
compteur = compteur + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Bonjour le Forum,
Bonjour sofysofe,
A mettre en A4 et à étirer vers le bas
Code:=SI(C4="";"";"code"&SOMMEPROD((ESTNUM(CHERCHE("code";$A$3:A3)))*1)+1)
Cordialement
="code"&(C4<>"")*NB.SI(C$4:C4;"oui")
je ne comprends pas comment tu fais pour avoir le mot "code" ...? Tu peux m'expliquer s'il te plait ?
Sofe
"code "Standard;; [ /QUOTE]
"Code " avec un espace affichera le mot code au début, "Standard" affichera 1,2,3... et les 2 virgules qui suivent permettent de ne rien afficher si la formule citée plus haut renvoie 0.