Macro pour renseigner en fonction de critères

Le
hugo2009
Bonjour,
ColA ColB
BTA1 10
BTA1 10
BTA2 11
BTA3 12
BTA3 12
A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver une
macro qui me permettent :en esperant faire simple si la valeur est egale à
BTA1 dans ColA alors
Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
exemple
valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à BTA2
dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
Col2 (BTA3 =>13)
Si vous avez une petite idée ,merci d'avance de me la soumettre ,je pensais
trouver le code magique mais à chaque fois cela plante
Encore merci si vous pouvez m'aider
Cordialement
Hugo
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19107661
bonjour Hugo,

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
Range("B2") = 10
For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

hugo2009 a écrit :
Bonjour,
ColA ColB
BTA1 10
BTA1 10
BTA2 11
BTA3 12
BTA3 12
A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver une
macro qui me permettent :en esperant faire simple si la valeur est egale à
BTA1 dans ColA alors
Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
exemple
valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à BTA2
dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
Col2 (BTA3 =>13)
Si vous avez une petite idée ,merci d'avance de me la soumettre ,je pensais
trouver le code magique mais à chaque fois cela plante
Encore merci si vous pouvez m'aider
Cordialement
Hugo





Philippe.R
Le #19107631
Bonjour,
Sans macro, en colonne B (sous réserve que la valeur en A ne s'incrémente
pas au delà de 9) :
=9+DROITE(A2;1)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"hugo2009" news:
Bonjour,
ColA ColB
BTA1 10
BTA1 10
BTA2 11
BTA3 12
BTA3 12
A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver
une
macro qui me permettent :en esperant faire simple si la valeur est egale
à
BTA1 dans ColA alors
Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
exemple
valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à
BTA2
dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
Col2 (BTA3 =>13)
Si vous avez une petite idée ,merci d'avance de me la soumettre ,je
pensais
trouver le code magique mais à chaque fois cela plante
Encore merci si vous pouvez m'aider
Cordialement
Hugo




hugo2009
Le #19108261
Bonjour,
Merci Isabelle pour votre macro qui m'a été d'une aide precieuse,je me suis
permis de faire un petit changement et cela marche à la perfection
voir ci-dessous
Une derniere solicitation ,si dans la colonne B je souhaite afficher L'heure
au format 1050 (pour 10 heures 50) et l'incrementer de 10 Minutes
Avez vous une petite idée?
Merci d'avance
Hugo
BTA1 10 50
BTA1 10 50
BTA2 11 00
BTA3 1110
BTA3 1110

Sub Macro1()
X = Range("A1")
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If c.Value <> X Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
X = c.Value
Next
end sub

"isabelle" a écrit :

bonjour Hugo,

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
Range("B2") = 10
For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

hugo2009 a écrit :
> Bonjour,
> ColA ColB
> BTA1 10
> BTA1 10
> BTA2 11
> BTA3 12
> BTA3 12
> A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver une
> macro qui me permettent :en esperant faire simple si la valeur est egale à
> BTA1 dans ColA alors
> Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
> exemple
> valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à BTA2
> dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
> Col2 (BTA3 =>13)
> Si vous avez une petite idée ,merci d'avance de me la soumettre ,je pensais
> trouver le code magique mais à chaque fois cela plante
> Encore merci si vous pouvez m'aider
> Cordialement
> Hugo
>
>
>



isabelle
Le #19108221
bonjour Hugo,

sur cette ligne

c.Offset(, 1) = c.Offset(-1, 1) + 1

au lieu d'ajouter + 1
tu ajoutes + (10 / 60 / 24)

isabelle

hugo2009 a écrit :
Bonjour,
Merci Isabelle pour votre macro qui m'a été d'une aide precieuse,je me suis
permis de faire un petit changement et cela marche à la perfection
voir ci-dessous
Une derniere solicitation ,si dans la colonne B je souhaite afficher L'heure
au format 1050 (pour 10 heures 50) et l'incrementer de 10 Minutes
Avez vous une petite idée?
Merci d'avance
Hugo
BTA1 10 50
BTA1 10 50
BTA2 11 00
BTA3 1110
BTA3 1110

Sub Macro1()
X = Range("A1")
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If c.Value <> X Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
X = c.Value
Next
end sub

"isabelle" a écrit :


bonjour Hugo,

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
Range("B2") = 10
For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

hugo2009 a écrit :

Bonjour,
ColA ColB
BTA1 10
BTA1 10
BTA2 11
BTA3 12
BTA3 12
A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver une
macro qui me permettent :en esperant faire simple si la valeur est egale à
BTA1 dans ColA alors
Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
exemple
valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à BTA2
dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
Col2 (BTA3 =>13)
Si vous avez une petite idée ,merci d'avance de me la soumettre ,je pensais
trouver le code magique mais à chaque fois cela plante
Encore merci si vous pouvez m'aider
Cordialement
Hugo










hugo2009
Le #19108491
rebonjour Isabelle,

Cela ne marche pas,mais je continue à chercher Merci quand même
Hugo

"isabelle" a écrit :

bonjour Hugo,

sur cette ligne

c.Offset(, 1) = c.Offset(-1, 1) + 1

au lieu d'ajouter + 1
tu ajoutes + (10 / 60 / 24)

isabelle

hugo2009 a écrit :
> Bonjour,
> Merci Isabelle pour votre macro qui m'a été d'une aide precieuse,je me suis
> permis de faire un petit changement et cela marche à la perfection
> voir ci-dessous
> Une derniere solicitation ,si dans la colonne B je souhaite afficher L'heure
> au format 1050 (pour 10 heures 50) et l'incrementer de 10 Minutes
> Avez vous une petite idée?
> Merci d'avance
> Hugo
> BTA1 10 50
> BTA1 10 50
> BTA2 11 00
> BTA3 1110
> BTA3 1110
>
> Sub Macro1()
> X = Range("A1")
> For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
> If c.Value <> X Then
> c.Offset(, 1) = c.Offset(-1, 1) + 1
> Else
> c.Offset(, 1) = c.Offset(-1, 1)
> End If
> X = c.Value
> Next
> end sub
>
> "isabelle" a écrit :
>
>
>> bonjour Hugo,
>>
>> Sub Macro1()
>> x = Val(Application.Substitute(Range("A2"), "BTA", ""))
>> Range("B2") = 10
>> For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
>> If Val(Application.Substitute(c, "BTA", "")) > x Then
>> c.Offset(, 1) = c.Offset(-1, 1) + 1
>> Else
>> c.Offset(, 1) = c.Offset(-1, 1)
>> End If
>> x = Val(Application.Substitute(c, "BTA", ""))
>> Next
>> End Sub
>>
>> isabelle
>>
>> hugo2009 a écrit :
>>
>>> Bonjour,
>>> ColA ColB
>>> BTA1 10
>>> BTA1 10
>>> BTA2 11
>>> BTA3 12
>>> BTA3 12
>>> A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver une
>>> macro qui me permettent :en esperant faire simple si la valeur est egale à
>>> BTA1 dans ColA alors
>>> Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
>>> exemple
>>> valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à BTA2
>>> dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
>>> Col2 (BTA3 =>13)
>>> Si vous avez une petite idée ,merci d'avance de me la soumettre ,je pensais
>>> trouver le code magique mais à chaque fois cela plante
>>> Encore merci si vous pouvez m'aider
>>> Cordialement
>>> Hugo
>>>
>>>
>>>
>>>



isabelle
Le #19108481
bonjour Hugo,

la valeur de la celulle B1 est bien au format hh:mm ?

isabelle

hugo2009 a écrit :
rebonjour Isabelle,

Cela ne marche pas,mais je continue à chercher Merci quand même
Hugo

"isabelle" a écrit :


bonjour Hugo,

sur cette ligne

c.Offset(, 1) = c.Offset(-1, 1) + 1

au lieu d'ajouter + 1
tu ajoutes + (10 / 60 / 24)

isabelle

hugo2009 a écrit :

Bonjour,
Merci Isabelle pour votre macro qui m'a été d'une aide precieuse,je me suis
permis de faire un petit changement et cela marche à la perfection
voir ci-dessous
Une derniere solicitation ,si dans la colonne B je souhaite afficher L'heure
au format 1050 (pour 10 heures 50) et l'incrementer de 10 Minutes
Avez vous une petite idée?
Merci d'avance
Hugo
BTA1 10 50
BTA1 10 50
BTA2 11 00
BTA3 1110
BTA3 1110

Sub Macro1()
X = Range("A1")
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If c.Value <> X Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
X = c.Value
Next
end sub

"isabelle" a écrit :



bonjour Hugo,

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
Range("B2") = 10
For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

hugo2009 a écrit :


Bonjour,
ColA ColB
BTA1 10
BTA1 10
BTA2 11
BTA3 12
BTA3 12
A partir de l'exemple ci dessus,jai essayé mais sans reussite de trouver une
macro qui me permettent :en esperant faire simple si la valeur est egale à
BTA1 dans ColA alors
Valeur de la Col vaut 10 sinon incrementer la valeur de la Col2 ,dans mon
exemple
valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est egale à BTA2
dans ColA alors Valeur de la Col vaut 12 sinon incrementer la valeur de la
Col2 (BTA3 =>13)
Si vous avez une petite idée ,merci d'avance de me la soumettre ,je pensais
trouver le code magique mais à chaque fois cela plante
Encore merci si vous pouvez m'aider
Cordialement
Hugo















isabelle
Le #19108861
sinon :

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
If Val(Right(CStr(c.Offset(-1, 1)), 2)) = 50 Then
c.Offset(, 1) = c.Offset(-1, 1) + 50
Else: c.Offset(, 1) = c.Offset(-1, 1) + 10
End If
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

isabelle a écrit :
bonjour Hugo,

la valeur de la celulle B1 est bien au format hh:mm ?

isabelle

hugo2009 a écrit :
rebonjour Isabelle,

Cela ne marche pas,mais je continue à chercher Merci quand même
Hugo

"isabelle" a écrit :


bonjour Hugo,

sur cette ligne

c.Offset(, 1) = c.Offset(-1, 1) + 1

au lieu d'ajouter + 1
tu ajoutes + (10 / 60 / 24)

isabelle

hugo2009 a écrit :

Bonjour, Merci Isabelle pour votre macro qui m'a été d'une aide
precieuse,je me suis permis de faire un petit changement et cela
marche à la perfection
voir ci-dessous
Une derniere solicitation ,si dans la colonne B je souhaite
afficher L'heure au format 1050 (pour 10 heures 50) et
l'incrementer de 10 Minutes Avez vous une petite idée?
Merci d'avance Hugo
BTA1 10 50 BTA1 10 50 BTA2 11 00
BTA3 1110 BTA3 1110

Sub Macro1()
X = Range("A1")
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If c.Value <> X Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
X = c.Value
Next
end sub

"isabelle" a écrit :


bonjour Hugo,

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
Range("B2") = 10
For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
c.Offset(, 1) = c.Offset(-1, 1) + 1
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

hugo2009 a écrit :

Bonjour,
ColA ColB
BTA1 10 BTA1 10 BTA2 11
BTA3 12
BTA3 12
A partir de l'exemple ci dessus,jai essayé mais sans reussite de
trouver une macro qui me permettent :en esperant faire simple si
la valeur est egale à BTA1 dans ColA alors Valeur de la Col vaut
10 sinon incrementer la valeur de la Col2 ,dans mon exemple
valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est
egale à BTA2 dans ColA alors Valeur de la Col vaut 12 sinon
incrementer la valeur de la Col2 (BTA3 =>13)
Si vous avez une petite idée ,merci d'avance de me la soumettre
,je pensais trouver le code magique mais à chaque fois cela plante
Encore merci si vous pouvez m'aider
Cordialement
Hugo















hugo2009
Le #19110371
Isabelle,
Bravo quelle Talent ,c'est parfait ,encore Merci
Cordialement
Hugo


"isabelle" a écrit :

sinon :

Sub Macro1()
x = Val(Application.Substitute(Range("A2"), "BTA", ""))
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Val(Application.Substitute(c, "BTA", "")) > x Then
If Val(Right(CStr(c.Offset(-1, 1)), 2)) = 50 Then
c.Offset(, 1) = c.Offset(-1, 1) + 50
Else: c.Offset(, 1) = c.Offset(-1, 1) + 10
End If
Else
c.Offset(, 1) = c.Offset(-1, 1)
End If
x = Val(Application.Substitute(c, "BTA", ""))
Next
End Sub

isabelle

isabelle a écrit :
> bonjour Hugo,
>
> la valeur de la celulle B1 est bien au format hh:mm ?
>
> isabelle
>
> hugo2009 a écrit :
>> rebonjour Isabelle,
>>
>> Cela ne marche pas,mais je continue à chercher Merci quand même
>> Hugo
>>
>> "isabelle" a écrit :
>>
>>
>>> bonjour Hugo,
>>>
>>> sur cette ligne
>>>
>>> c.Offset(, 1) = c.Offset(-1, 1) + 1
>>>
>>> au lieu d'ajouter + 1
>>> tu ajoutes + (10 / 60 / 24)
>>>
>>> isabelle
>>>
>>> hugo2009 a écrit :
>>>
>>>> Bonjour, Merci Isabelle pour votre macro qui m'a été d'une aide
>>>> precieuse,je me suis permis de faire un petit changement et cela
>>>> marche à la perfection
>>>> voir ci-dessous
>>>> Une derniere solicitation ,si dans la colonne B je souhaite
>>>> afficher L'heure au format 1050 (pour 10 heures 50) et
>>>> l'incrementer de 10 Minutes Avez vous une petite idée?
>>>> Merci d'avance Hugo
>>>> BTA1 10 50 BTA1 10 50 BTA2 11 00
>>>> BTA3 1110 BTA3 1110
>>>>
>>>> Sub Macro1()
>>>> X = Range("A1")
>>>> For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
>>>> If c.Value <> X Then
>>>> c.Offset(, 1) = c.Offset(-1, 1) + 1
>>>> Else
>>>> c.Offset(, 1) = c.Offset(-1, 1)
>>>> End If
>>>> X = c.Value
>>>> Next
>>>> end sub
>>>>
>>>> "isabelle" a écrit :
>>>>
>>>>
>>>>> bonjour Hugo,
>>>>>
>>>>> Sub Macro1()
>>>>> x = Val(Application.Substitute(Range("A2"), "BTA", ""))
>>>>> Range("B2") = 10
>>>>> For Each c In Range("A3:A" & Range("A65536").End(xlUp).Row)
>>>>> If Val(Application.Substitute(c, "BTA", "")) > x Then
>>>>> c.Offset(, 1) = c.Offset(-1, 1) + 1
>>>>> Else
>>>>> c.Offset(, 1) = c.Offset(-1, 1)
>>>>> End If
>>>>> x = Val(Application.Substitute(c, "BTA", ""))
>>>>> Next
>>>>> End Sub
>>>>>
>>>>> isabelle
>>>>>
>>>>> hugo2009 a écrit :
>>>>>
>>>>>> Bonjour,
>>>>>> ColA ColB
>>>>>> BTA1 10 BTA1 10 BTA2 11
>>>>>> BTA3 12
>>>>>> BTA3 12
>>>>>> A partir de l'exemple ci dessus,jai essayé mais sans reussite de
>>>>>> trouver une macro qui me permettent :en esperant faire simple si
>>>>>> la valeur est egale à BTA1 dans ColA alors Valeur de la Col vaut
>>>>>> 10 sinon incrementer la valeur de la Col2 ,dans mon exemple
>>>>>> valeur de Col2 pour BTA2 egale 11,ensuite si si la valeur est
>>>>>> egale à BTA2 dans ColA alors Valeur de la Col vaut 12 sinon
>>>>>> incrementer la valeur de la Col2 (BTA3 =>13)
>>>>>> Si vous avez une petite idée ,merci d'avance de me la soumettre
>>>>>> ,je pensais trouver le code magique mais à chaque fois cela plante
>>>>>> Encore merci si vous pouvez m'aider
>>>>>> Cordialement
>>>>>> Hugo
>>>>>>
>>>>>>
>>>>>>



Publicité
Poster une réponse
Anonyme