Bonjour
J'aimerai faire une petite macro en VBA :

Boucler sur mes colonnes à partir de la colonne H et jusqu'à la DZ
Pour chaque ligne de la colonne en cours si je trouve "X" je remplace cette valeur par la valeur de la cellule de la ligne 1

J'ai réussi à le faire pour une colonne mais je ne sais pas commet faire pour traiter automatiquement toutes mse colonnes

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
18
19
20
21
22
Sub newone2()
 
Dim uneColonne As Long
 
Dim UneCellule As Range
 
'Selectionne la colonne I
ActiveSheet.Columns("I:I").Select
Dim p As String
'Pour chaque cellule de la colonne
For Each UneCellule In Selection
    'récupération de la valeur
    p = UneCellule.Value
    'remplacement des x par Mon texte
    p = Replace(p, "'x'", "Mon texte")
 
    'remise de p dans la cellule
    UneCellule.Value = p
Next
 
 
End Sub
Merci d'avance!