Macro : remplacer cellule par une autre si cellule vide

[AntoineClx]

Bonjour à tous et à toutes,
Je suis novice, je n'ai encore jamais fait de macro sur excel et je rencontre actuellement un problème qui nécessite l'utilisation d'une macro.
Pour décrire la macro que je souhaiterais utiliser : remplacer cellule A2 par cellule A1 si B2 vide.
Et ainsi de suite automatiquement (8200 lignes à traiter)

Je vous mets un tableau qui explique l'état actuel et l'objectif afin d'illustrer mes propos.

Je remercie la personne courageuse qui pourra m'apporter une solution.

Voici le tableau explicatif :

 

[Staple1600]

Bonsoir le fil

AntoineClx
Si tu mets cette formule:="produit-"&ENT((LIGNE()-2)/6+1) en A2 et que tu la recopies vers le bas, on se rapproche de l'objectif, non?

 

[AntoineClx]

Bonsoir,
Tout d'abord je tiens à vous remercier d'avoir pris le temps de répondre à ma question.

Je viens de faire le test et cette formule me permet seulement d'obtenir 6 lignes "produit-1", suivies de 6 lignes "produit-2" et ainsi de suite.

Le problème est qu'il ne faut pas toujours 6 lignes, il peut parfois y avoir un seul produit, c'est aléatoire.

C'est pour ça que je cherche à écrire une macro qui traîte le tableur ainsi :

1 : si condition : "B2 est vide"
2 : remplacer cellule A2 par cellule A1

Je ne sais pas si c'est possible mais j'ai trouvé des macros qui s'en rapprochaient seulement je n'ai pas suffisamment de connaissance pour adapter ces macros à mon cas.

Je vous remercie par avance du temps que vous m'accorderez

 

[frangy]

Bonsoir,

Essaie avec ce code

Sub Test()
Dim WsS As Worksheet
Dim LigneS As Long
    Set WsS = Worksheets("Feuil1")
    For LigneS = 3 To WsS.Range("A" & Rows.Count).End(xlUp).Row
        If WsS.Cells(LigneS, 2) = "" Then
            WsS.Cells(LigneS, 1) = WsS.Cells(LigneS - 1, 1)
        End If
    Next LigneS
End Sub

Cordialement.

 

[AntoineClx]

Bonsoir Frangy,

Un énorme merci à toi, tu as solutionné mon problème, la macro fonctionne parfaitement sur mon tableur. C'est génial de pouvoir être aidé comme cela et rapidement.

Bonne continuation et encore merci,
Je mets la question en statut résolue.

Cordialement.