Incrémenter

[maval]

Bonjour


Comment incrémenter a une colonne en l'occurrence en C ex: "C3" N°1 si en "B3 a du texte" en "C4 N°2 si en "B4 a du text2 ect.. En VBA

Pour illustrer ma demande, je joins un fichier
Je vous remercie de votre aide

Amicalement

MV

 

[david84]

Re : Incrémenter

Bonjour,
si par texte tu entends que B3 n'est pas vide, alors :

Sub test()
If [B3] <> "" Then [C3] = "N°1"
End Sub

A+

 

[youky(BJ)]

Re : Incrémenter

Bonsoir,
Voici un code à mettre sur un bouton

Bruno

Private Sub CommandButton1_Click()
Dim n%
n = 1
For lig = 3 To [B65536].End(xlUp).Row 'boucle 3 à derniere ligne
If Cells(lig, "B") <> "" Then Cells(lig, "C") = "N°" & n: n = n + 1
Next
End Sub

 

[maval]

Re : Incrémenter

Re

Merci beaucoup c'est super juste une petite chose.
Comment modifier pour que le N° se mette quand la cellule B rentre du texte au lieu de le faire par un bouton

OK c'est bon

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n%
n = 1
For lig = 3 To [B65536].End(xlUp).Row 'boucle 3 à derniere ligne
If Cells(lig, "B") <> "" Then Cells(lig, "C") = "N°" & n: n = n + 1
Next
End Sub

Un grand merci et bonne soirée


@+

MV