Bonsoir
J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un
numéro qui s'incrémente en VBA avec la fonction MAX
je souhaite sil vous plait, avoir une procédure qui incrémente
automatiquement +1; mais si l'année change, que le premier numéro soit le
numéro 1
Merci beaucoup
Bonne soirée
Vincent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Je ne sais pas à quoi appliquer la fonction MAX. Pour un incrément simple :
Sub Test() Range("B2").Select Do While ActiveCell.Offset(0, -1) <> "" If Year(ActiveCell.Offset(0, -1)) > Year(ActiveCell.Offset(-1, -1)) Then ActiveCell.Value = 1 Else ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement. Daniel "Vincent" a écrit dans le message de news: %
Bonsoir J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un numéro qui s'incrémente en VBA avec la fonction MAX je souhaite sil vous plait, avoir une procédure qui incrémente automatiquement +1; mais si l'année change, que le premier numéro soit le numéro 1 Merci beaucoup Bonne soirée Vincent
Bonsoir.
Je ne sais pas à quoi appliquer la fonction MAX.
Pour un incrément simple :
Sub Test()
Range("B2").Select
Do While ActiveCell.Offset(0, -1) <> ""
If Year(ActiveCell.Offset(0, -1)) > Year(ActiveCell.Offset(-1, -1))
Then
ActiveCell.Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cordialement.
Daniel
"Vincent" <vincent.richard@club-internet.fr> a écrit dans le message de
news: %2387tfEmKFHA.1172@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un
numéro qui s'incrémente en VBA avec la fonction MAX
je souhaite sil vous plait, avoir une procédure qui incrémente
automatiquement +1; mais si l'année change, que le premier numéro soit le
numéro 1
Merci beaucoup
Bonne soirée
Vincent
Bonsoir. Je ne sais pas à quoi appliquer la fonction MAX. Pour un incrément simple :
Sub Test() Range("B2").Select Do While ActiveCell.Offset(0, -1) <> "" If Year(ActiveCell.Offset(0, -1)) > Year(ActiveCell.Offset(-1, -1)) Then ActiveCell.Value = 1 Else ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement. Daniel "Vincent" a écrit dans le message de news: %
Bonsoir J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un numéro qui s'incrémente en VBA avec la fonction MAX je souhaite sil vous plait, avoir une procédure qui incrémente automatiquement +1; mais si l'année change, que le premier numéro soit le numéro 1 Merci beaucoup Bonne soirée Vincent
Vincent
Bonsoir Daniel et merci Je teste dès demain Vincent
"Daniel" a écrit dans le message de news:
Bonsoir. Je ne sais pas à quoi appliquer la fonction MAX. Pour un incrément simple :
Sub Test() Range("B2").Select Do While ActiveCell.Offset(0, -1) <> "" If Year(ActiveCell.Offset(0, -1)) > Year(ActiveCell.Offset(-1, -1)) Then ActiveCell.Value = 1 Else ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement. Daniel "Vincent" a écrit dans le message de news: %
Bonsoir J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un numéro qui s'incrémente en VBA avec la fonction MAX je souhaite sil vous plait, avoir une procédure qui incrémente automatiquement +1; mais si l'année change, que le premier numéro soit le numéro 1 Merci beaucoup Bonne soirée Vincent
Bonsoir Daniel et merci
Je teste dès demain
Vincent
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ulaeXjmKFHA.1284@TK2MSFTNGP14.phx.gbl...
Bonsoir.
Je ne sais pas à quoi appliquer la fonction MAX.
Pour un incrément simple :
Sub Test()
Range("B2").Select
Do While ActiveCell.Offset(0, -1) <> ""
If Year(ActiveCell.Offset(0, -1)) > Year(ActiveCell.Offset(-1, -1))
Then
ActiveCell.Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cordialement.
Daniel
"Vincent" <vincent.richard@club-internet.fr> a écrit dans le message de
news: %2387tfEmKFHA.1172@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un
numéro qui s'incrémente en VBA avec la fonction MAX
je souhaite sil vous plait, avoir une procédure qui incrémente
automatiquement +1; mais si l'année change, que le premier numéro soit le
numéro 1
Merci beaucoup
Bonne soirée
Vincent
Bonsoir Daniel et merci Je teste dès demain Vincent
"Daniel" a écrit dans le message de news:
Bonsoir. Je ne sais pas à quoi appliquer la fonction MAX. Pour un incrément simple :
Sub Test() Range("B2").Select Do While ActiveCell.Offset(0, -1) <> "" If Year(ActiveCell.Offset(0, -1)) > Year(ActiveCell.Offset(-1, -1)) Then ActiveCell.Value = 1 Else ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement. Daniel "Vincent" a écrit dans le message de news: %
Bonsoir J'ai dans une colonne A les dates l'année soit 2005 dans la colonne B un numéro qui s'incrémente en VBA avec la fonction MAX je souhaite sil vous plait, avoir une procédure qui incrémente automatiquement +1; mais si l'année change, que le premier numéro soit le numéro 1 Merci beaucoup Bonne soirée Vincent
