Code VBA décaler cellule sous condition

Bonjour à tous,

Je cherche vainement à coder l'instruction (via 1 boucle?) qui me permettrait, à partir d'1 cellule active (colA), de décaler à la 1ere cellule de droite

• si cette même cellule (active) est = à la cellule contiguë du dessus
• sinon stocker la donnée de la cellule active

Dans mon fichier en exemple: si Range A5 = A4 alors décaler sur B5 sinon A5Selection.Value

voici là où j'en suis actuellement (c'est dire que je galère...)

If ActiveCell <> ActiveCell.Offset(-1, 0) Then

Selection.Value

Else: ActiveCell.Selection.Value

merci pour votre aide

bonjour,

je sais pas trop si c'est ça que tu cherche mais voila ce que je peut proposé

dim stock as variant
If ActiveCell = ActiveCell.Offset(-1, 0) Then
    ActiveCell.Offset(0, 1).select
Else
    stock = ActiveCell.Value
end if

Bonjour,

je met tout le code de icemake dans ma boucle

while activecell.row <> 1 
'code de icemake
wend

En premier lieu merci pr vos réponses

Je teste cela a sa place et reviens vers vous

Cdt

Bonjour icemake

Petit souci

( => = mon commentaire)

If ActiveCell <> ActiveCell.Offset(-1, 0) Then

Selection.Value => "mess err 438/Propriété ou méthode non gérée par cet objet"

Else: ActiveCell.Selection.Value

End If => "j'ai ajouté "End if"; est ce correct?

'

End Sub

NE PAS TENIR COMPTE DE MA REMARQUE PRECEDENTE svp

Je crois que nous sommes sur la bonne voie.

Merci 1000 fois