cherche macro

[bpol]

Bonjour à tout du forum,

voilà mon soucis je cherche une macro qui me permettrait avec un bouton d'inscrire le chiffre qui se trouve ds une colonne dans une cellule et lorsqu'on re-clique sur ce bouton inscrive le chiffre suivant ( qui se situe juste en dessous du précédent)

pour être plus clair un petit exemple.


Merci.

Bpol

 

[Odesta]

Re : cherche macro

Bonjour

Code à lier au bouton :

Sub appuie_bouton()

'création d'une variable
valeur_cible = Range("A4").Value

'pour chaque cellules de la colonne E, depuis la fin jusqu'à la ligne 6 (car Vide pour le 1er remplissage)
For i = Range("E65000").End(xlUp).Row To 6 Step -1
    'si la valeur est égale au contenu d'une des cellules, alors prendre la valeur suivante et l'inscrire dans "A4"
    If valeur_cible = Cells(i, 5).Value Then Range("A4").Value = Cells(i + 1, 5).Value

Next

End Sub

Cordialement
Olivier

 

[bpol]

Re : cherche macro

Re,
merci Odesta

 

[bpol]

Re : cherche macro

re, pardon,

un petit renseignement afin de me simplifier la vie.

j'ai déjà cette petite macro

Range("A4") = Range("A4") + Range("L2")
Range("B4") = Range("B4") + Range("L1")
Range("A4").Select

comment incorporer la nouvelle macro après la 1ere ligne mais avec une condition style " If Range("G3") >0 then --> nouvelle macro

ce qui donnerait ceci +/_

Range("A4") = Range("A4") + 1

If Range("G3") > 0 Then

valeur_cible = Range("A4").Value
For i = Range("E65000").End(xlUp).Row To 6 Step -1 
    If valeur_cible = Cells(i, 5).Value Then Range("A4").Value = Cells(i + 1, 5).Value
Next
end if

Range("B4") = Range("B4") + 1
Range("A4").Select

mais mon essai ne fonctionne pas.

en espérant avoir été clair ds mes explications

Bpol

 

[Odesta]

Re : cherche macro

Que peut contenir G3 ? car il faut peut-être simplement convertir le contenu de la cellule

 

[bpol]

Re : cherche macro

RE Odesta,

un code avec lettre et 1 chiffre (ex SS1 ou ES2)

 

[Odesta]

Re : cherche macro

Ok, donc le contenur de Range("G3") est sous le format 'String' il faut donc le comparer aussi à une valeur du même format, par exemple "0" au lieu de 0

 

[bpol]

Re : cherche macro

si je fais

If Range("G3") > "0" Then

il n'y a rien qui change

elle ne prend pas en compte la colonne E

voir fichier

 

[Odesta]

Re : cherche macro

Pourtant ca marche à peu près chez moi, il incrémente une premiere fois, puis, si la valeur de G3 est sup à "0", il incrémente si il trouve la valeur cible dans le tableau.

Quel est le besoin exactement ?

 

[bpol]

Re : cherche macro

mon souhait,
est qu'elle incrémente si la cellule G3 est vide
et si G3 est >0 alors prendre les données l' une à la suite de l'autre de la colonne E

 

[Odesta]

Re : cherche macro

Voici ce que cela pourrait donner :

Sub Macro2()

If Range("G3") = "" Then
   [COLOR="seagreen"] 'incrémente si G3 vide[/COLOR]   
   Range("A4") = Range("A4") + 1
Else
    [COLOR="SeaGreen"]'suivant dans la liste si la valeur existe ! [B](dans le cas où elle n'existe pas, A4 ne bouge pas !)[/B][/COLOR]
 [COLOR="seagreen"]   'création d'une variable[/COLOR]   
      valeur_cible = Range("A4").Value

    [COLOR="seagreen"]'pour chaque cellules de la colonne E, depuis la fin jusqu'à la ligne 6 (car Vide pour le 1er remplissage)[/COLOR]
    For i = Range("E65000").End(xlUp).Row To 6 Step -1
        [COLOR="seagreen"]'si la valeur est égale au contenu d'une des cellules, alors prendre la valeur suivante et l'inscrire dans "A4"[/COLOR]
        If valeur_cible = Cells(i, 5).Value Then Range("A4").Value = Cells(i + 1, 5).Value
    Next

End If

Range("B4") = Range("B4") + 1

End Sub

 

[bpol]

Re : cherche macro

OUI impec merci