Bonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Bonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Bonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
Daniel
> Bonjour à tous et s'il est encore temps meilleurs voeux.
> voilà que je me remet dans vba et est ce la fraicheur ou des relents de
> fêtes mais toujours est il que je patine.
> voila,
> dans un fichier a plusieurs onglets : D W & M
> en col A je viens positionner des valeurs du style : 01pD0901-1
> je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
> valeur et éventuellement l'incrémentée.
> 01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
> parcontre
> 01-1 évolues en fonction du des semaines ou des Mois
> donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
> alors positioner 01pW0901-2 en a257
> (je laisse une ligne blanche entre chaque enregistrement)
> c'est donc le dernier digit que je voudrais faire évoluer.
> si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
> serais extremement reconnaissant.
> Merci 'avance et bonne continuation
>
> Jlematou
Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
Daniel
> Bonjour à tous et s'il est encore temps meilleurs voeux.
> voilà que je me remet dans vba et est ce la fraicheur ou des relents de
> fêtes mais toujours est il que je patine.
> voila,
> dans un fichier a plusieurs onglets : D W & M
> en col A je viens positionner des valeurs du style : 01pD0901-1
> je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
> valeur et éventuellement l'incrémentée.
> 01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
> parcontre
> 01-1 évolues en fonction du des semaines ou des Mois
> donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
> alors positioner 01pW0901-2 en a257
> (je laisse une ligne blanche entre chaque enregistrement)
> c'est donc le dernier digit que je voudrais faire évoluer.
> si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
> serais extremement reconnaissant.
> Merci 'avance et bonne continuation
>
> Jlematou
Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
Daniel
> Bonjour à tous et s'il est encore temps meilleurs voeux.
> voilà que je me remet dans vba et est ce la fraicheur ou des relents de
> fêtes mais toujours est il que je patine.
> voila,
> dans un fichier a plusieurs onglets : D W & M
> en col A je viens positionner des valeurs du style : 01pD0901-1
> je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
> valeur et éventuellement l'incrémentée.
> 01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
> parcontre
> 01-1 évolues en fonction du des semaines ou des Mois
> donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
> alors positioner 01pW0901-2 en a257
> (je laisse une ligne blanche entre chaque enregistrement)
> c'est donc le dernier digit que je voudrais faire évoluer.
> si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
> serais extremement reconnaissant.
> Merci 'avance et bonne continuation
>
> Jlematou
Merci Daniel.c
on y est presque et si j'avais été plus claire nous y serions.
en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
écrive toto01-2
merci pour ton aide précieuse
Jlematou
"Daniel.C" a écrit :Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
DanielBonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Merci Daniel.c
on y est presque et si j'avais été plus claire nous y serions.
en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
écrive toto01-2
merci pour ton aide précieuse
Jlematou
"Daniel.C" a écrit :
Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
Daniel
Bonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Merci Daniel.c
on y est presque et si j'avais été plus claire nous y serions.
en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
écrive toto01-2
merci pour ton aide précieuse
Jlematou
"Daniel.C" a écrit :Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
DanielBonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Merci Daniel.c
on y est presque et si j'avais été plus claire nous y serions.
en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
écrive toto01-2
merci pour ton aide précieuse
Jlematou
"Daniel.C" a écrit :Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
DanielBonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Merci Daniel.c
on y est presque et si j'avais été plus claire nous y serions.
en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
écrive toto01-2
merci pour ton aide précieuse
Jlematou
"Daniel.C" a écrit :
Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
Daniel
Bonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Merci Daniel.c
on y est presque et si j'avais été plus claire nous y serions.
en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
écrive toto01-2
merci pour ton aide précieuse
Jlematou
"Daniel.C" a écrit :Bonjour.
Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
Si tu entres une valeur en colonne A, feuille "W", la cellule sera
recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
Le code suvant se trouve dans le module "thisworkbook" :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Right(Target, 1)) Then
Target.Offset(2) = Left(Target, Len(Target) - 1) &
CInt(Right(Target, 1)) + 1
End If
Application.EnableEvents = True
End If
End Sub
Cordialement.
DanielBonjour à tous et s'il est encore temps meilleurs voeux.
voilà que je me remet dans vba et est ce la fraicheur ou des relents de
fêtes mais toujours est il que je patine.
voila,
dans un fichier a plusieurs onglets : D W & M
en col A je viens positionner des valeurs du style : 01pD0901-1
je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
valeur et éventuellement l'incrémentée.
01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
parcontre
01-1 évolues en fonction du des semaines ou des Mois
donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
alors positioner 01pW0901-2 en a257
(je laisse une ligne blanche entre chaque enregistrement)
c'est donc le dernier digit que je voudrais faire évoluer.
si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
serais extremement reconnaissant.
Merci 'avance et bonne continuation
Jlematou
Oui, mais, qu'est-ce qui déclenche la macro ? une exécution manuelle,
un bouton ou à l'ouverture du classeur, ou autre ?
Daniel
> Merci Daniel.c
> on y est presque et si j'avais été plus claire nous y serions.
> en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
> derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
> écrive toto01-2
> merci pour ton aide précieuse
> Jlematou
>
> "Daniel.C" a écrit :
>
>> Bonjour.
>> Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
>> http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
>> Si tu entres une valeur en colonne A, feuille "W", la cellule sera
>> recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
>> Le code suvant se trouve dans le module "thisworkbook" :
>>
>> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
>> Range)
>> If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
>> If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
>> Application.EnableEvents = False
>> If IsNumeric(Right(Target, 1)) Then
>> Target.Offset(2) = Left(Target, Len(Target) - 1) &
>> CInt(Right(Target, 1)) + 1
>> End If
>> Application.EnableEvents = True
>> End If
>> End Sub
>>
>> Cordialement.
>> Daniel
>>
>>> Bonjour à tous et s'il est encore temps meilleurs voeux.
>>> voilà que je me remet dans vba et est ce la fraicheur ou des relents de
>>> fêtes mais toujours est il que je patine.
>>> voila,
>>> dans un fichier a plusieurs onglets : D W & M
>>> en col A je viens positionner des valeurs du style : 01pD0901-1
>>> je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
>>> valeur et éventuellement l'incrémentée.
>>> 01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
>>> parcontre
>>> 01-1 évolues en fonction du des semaines ou des Mois
>>> donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
>>> alors positioner 01pW0901-2 en a257
>>> (je laisse une ligne blanche entre chaque enregistrement)
>>> c'est donc le dernier digit que je voudrais faire évoluer.
>>> si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
>>> serais extremement reconnaissant.
>>> Merci 'avance et bonne continuation
>>>
>>> Jlematou
>>
>>
>>
Oui, mais, qu'est-ce qui déclenche la macro ? une exécution manuelle,
un bouton ou à l'ouverture du classeur, ou autre ?
Daniel
> Merci Daniel.c
> on y est presque et si j'avais été plus claire nous y serions.
> en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
> derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
> écrive toto01-2
> merci pour ton aide précieuse
> Jlematou
>
> "Daniel.C" a écrit :
>
>> Bonjour.
>> Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
>> http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
>> Si tu entres une valeur en colonne A, feuille "W", la cellule sera
>> recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
>> Le code suvant se trouve dans le module "thisworkbook" :
>>
>> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
>> Range)
>> If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
>> If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
>> Application.EnableEvents = False
>> If IsNumeric(Right(Target, 1)) Then
>> Target.Offset(2) = Left(Target, Len(Target) - 1) &
>> CInt(Right(Target, 1)) + 1
>> End If
>> Application.EnableEvents = True
>> End If
>> End Sub
>>
>> Cordialement.
>> Daniel
>>
>>> Bonjour à tous et s'il est encore temps meilleurs voeux.
>>> voilà que je me remet dans vba et est ce la fraicheur ou des relents de
>>> fêtes mais toujours est il que je patine.
>>> voila,
>>> dans un fichier a plusieurs onglets : D W & M
>>> en col A je viens positionner des valeurs du style : 01pD0901-1
>>> je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
>>> valeur et éventuellement l'incrémentée.
>>> 01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
>>> parcontre
>>> 01-1 évolues en fonction du des semaines ou des Mois
>>> donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
>>> alors positioner 01pW0901-2 en a257
>>> (je laisse une ligne blanche entre chaque enregistrement)
>>> c'est donc le dernier digit que je voudrais faire évoluer.
>>> si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
>>> serais extremement reconnaissant.
>>> Merci 'avance et bonne continuation
>>>
>>> Jlematou
>>
>>
>>
Oui, mais, qu'est-ce qui déclenche la macro ? une exécution manuelle,
un bouton ou à l'ouverture du classeur, ou autre ?
Daniel
> Merci Daniel.c
> on y est presque et si j'avais été plus claire nous y serions.
> en fait ma macro détermine le fameux par défaut "toto01-1" mais si la
> derniere cellule de A$ est déjà "toto01-1" je voudrais qu'en a$ +2 ma macro
> écrive toto01-2
> merci pour ton aide précieuse
> Jlematou
>
> "Daniel.C" a écrit :
>
>> Bonjour.
>> Pas sûr d'avoir bien compris. Regarde le classeur à l'adresse :
>> http://www.cijoint.fr/cjlink.php?file=cj200901/cijxbdOTfs.xls
>> Si tu entres une valeur en colonne A, feuille "W", la cellule sera
>> recopiée et incrémentée 2 cellules plus bas, si cette cellule est vide.
>> Le code suvant se trouve dans le module "thisworkbook" :
>>
>> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
>> Range)
>> If Sh.Name = "D" Or Sh.Name = "W" Or Sh.Name = "M" Then
>> If Target.Column <> 1 Or Target.Offset(2) <> "" Then Exit Sub
>> Application.EnableEvents = False
>> If IsNumeric(Right(Target, 1)) Then
>> Target.Offset(2) = Left(Target, Len(Target) - 1) &
>> CInt(Right(Target, 1)) + 1
>> End If
>> Application.EnableEvents = True
>> End If
>> End Sub
>>
>> Cordialement.
>> Daniel
>>
>>> Bonjour à tous et s'il est encore temps meilleurs voeux.
>>> voilà que je me remet dans vba et est ce la fraicheur ou des relents de
>>> fêtes mais toujours est il que je patine.
>>> voila,
>>> dans un fichier a plusieurs onglets : D W & M
>>> en col A je viens positionner des valeurs du style : 01pD0901-1
>>> je voudrais pouvoir de maniere automatique pouvoir venir lire la derniere
>>> valeur et éventuellement l'incrémentée.
>>> 01pD09 ; 01pW09 & 01pM09 sont des valeurs invariables !
>>> parcontre
>>> 01-1 évolues en fonction du des semaines ou des Mois
>>> donc si le lundi je viens positionner un 01pW0901-1 en a255 je voudrais
>>> alors positioner 01pW0901-2 en a257
>>> (je laisse une ligne blanche entre chaque enregistrement)
>>> c'est donc le dernier digit que je voudrais faire évoluer.
>>> si l'un d'entre vous pouvait éventuellement me mettre sur la piste je lui
>>> serais extremement reconnaissant.
>>> Merci 'avance et bonne continuation
>>>
>>> Jlematou
>>
>>
>>
Enfait la macro est exécutée une fois par semaine par action sur un bouton
que j'ai positionné dans un des onglets .
elle effectue un certains nombre d'extractions et c'est le résultat qu'elle
positionne en dernierre ligne +2
c'est donc avant cette derniere la cellule A de cette ligne que je viens
écrire que je voudrais incrémenter
ex: en a235 j'ai 01pD0902-01 (02 puisque nous sommes en Semaine 02)
pour une raison x ou y je dois relancer le traitement le résultat de ma
macro à positionner en a237 est malheureusement encore à ce jour 01pD0902-01
!
c'est bien cette valeur que je voudrais voir passée a 01pD0902-02
suis je un peu plus clair ?
en fait il faudrait que de maniere simple je puisse lire la valeur de A235
pour la comparer à mon résultat et l'incrémenter avant de venir la
positionnée dans le fichier
un truc du style ValDerCel= A$
merci encore pour ta patience et ton aide
jlematou
Enfait la macro est exécutée une fois par semaine par action sur un bouton
que j'ai positionné dans un des onglets .
elle effectue un certains nombre d'extractions et c'est le résultat qu'elle
positionne en dernierre ligne +2
c'est donc avant cette derniere la cellule A de cette ligne que je viens
écrire que je voudrais incrémenter
ex: en a235 j'ai 01pD0902-01 (02 puisque nous sommes en Semaine 02)
pour une raison x ou y je dois relancer le traitement le résultat de ma
macro à positionner en a237 est malheureusement encore à ce jour 01pD0902-01
!
c'est bien cette valeur que je voudrais voir passée a 01pD0902-02
suis je un peu plus clair ?
en fait il faudrait que de maniere simple je puisse lire la valeur de A235
pour la comparer à mon résultat et l'incrémenter avant de venir la
positionnée dans le fichier
un truc du style ValDerCel= A$
merci encore pour ta patience et ton aide
jlematou
Enfait la macro est exécutée une fois par semaine par action sur un bouton
que j'ai positionné dans un des onglets .
elle effectue un certains nombre d'extractions et c'est le résultat qu'elle
positionne en dernierre ligne +2
c'est donc avant cette derniere la cellule A de cette ligne que je viens
écrire que je voudrais incrémenter
ex: en a235 j'ai 01pD0902-01 (02 puisque nous sommes en Semaine 02)
pour une raison x ou y je dois relancer le traitement le résultat de ma
macro à positionner en a237 est malheureusement encore à ce jour 01pD0902-01
!
c'est bien cette valeur que je voudrais voir passée a 01pD0902-02
suis je un peu plus clair ?
en fait il faudrait que de maniere simple je puisse lire la valeur de A235
pour la comparer à mon résultat et l'incrémenter avant de venir la
positionnée dans le fichier
un truc du style ValDerCel= A$
merci encore pour ta patience et ton aide
jlematou