Créer une macro qui déplace les valeurs d'une cellule si

Olshamilo · 13 Décembre 2018

Bonjour toute nouvelle dans la macro je n'arrive pas à résoudre mon souci.
Je voudrais décaler les cellules si la cellule d'en haut rencontre le mot "line"
je joins un fichier exemple.
Deux colonnes (A et B) où j'ai les textes à traiter et la colonne final (D) celle que je souhaite obtenir
merci pour votre aide si vous pouvez

youky(BJ) · 13 Décembre 2018

Bonsoir,
Ces quelques lignes de code doivent faire l'affaire.
Bruno

VB:

Sub line()
[D:D].Value = [B:B].Value
For k = 2 To [A65000].End(3).Row
If Left(Cells(k, 1), 4) = "line" Then _
Cells(k + 1, 4) = Cells(k + 1, 1)
Next
End Sub

Créer une macro qui déplace les valeurs d'une cellule si

Olshamilo

XLDnaute Nouveau

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Discussions similaires