Discussion :

[H-BOUTAINA]

Bonjour,
j'ai aussi le même soucis que dans cette discussion, enfin c'est un peu plus compliqué. je voudrai remplacer des cellules par le contenu d'une autre cellule qui se trouve au dessous.
CELLULE A REMPLACER MONTANT
MA1
MA1
MA1
MA1
MA1
MA1
MA1

LIBELLE1
MA2
MA2
MA2
MA2
MA2
MA2
MA2
LIBELLE2

je voudrai en fait qu'à chaque fois, au lieu de me mettre "MA" qu'il va chercher la cellule au dessous pour me mettre plutot le libelle, mais pas le même libelle. pr MA1 il va me prendre libelle1. pour MA2 = libelle 2 ...

[Daniel.C]

Bonjour,

Est-ce que tu pourrais mettre un classeur exemple en pièce jointe avec, dans une autre colonne, le résultat souhaité ?

[Fvandermeulen]

Salut,
Selon l'exemple, voici une possibilité:
Basé sur la colonne 1 et sur le fait que les lignes à remplacer commence par MA, à toi d'adapter selon la réalité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub RemplaceMA()
Dim Ws As Worksheet
Dim R As Long, DerLig As Long
Dim MyLib As String
 
Set Ws = Sheets("LeNomDeTaFeuille")
DerLig = Ws.Cells(Ws.Columns(1).Cells.Count, 1).End(xlUp).Row
 
For R = DerLig To 1 Step -1
    If Ws.Cells(R, 1) <> "" And Left(Ws.Cells(R, 1), 2) <> "MA" Then
        MyLib = Ws.Cells(R, 1)
    ElseIf Ws.Cells(R, 1) <> "" Then
        Ws.Cells(R, 1) = MyLib
    End If
Next R
 
End Sub

A+