Macro : remplacer cellule par une autre si cellule vide

AntoineClx · 22 Septembre 2019

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 · 22 Septembre 2019

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 · 22 Septembre 2019

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 · 22 Septembre 2019

Bonsoir,

Essaie avec ce code

VB:

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 · 23 Septembre 2019

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.

Macro : remplacer cellule par une autre si cellule vide

AntoineClx

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

AntoineClx

XLDnaute Nouveau

frangy

XLDnaute Occasionnel

AntoineClx

XLDnaute Nouveau

Discussions similaires