Boucle sur colonne + replace

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:

---

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!

un exemple de boucle sur colonne 8 à 50

Code:

---

1 2 3 4 5 6

dim col as integer dim ligne as long   For col = 8 to 50 Cells(ligne,col) = "test" next col

---

bonjour essaye

Code:

---

For Each UneCellule In Range("Ta zone")

---

Pour connaitre la valeur de Tazone
regarde ce lien et essaye d'adapter en cas de souci montre nous ce que tu as fait
http://www.developpez.net/forums/d45...gnees-feuille/

Remplace

Citation:

---

ActiveSheet.Columns("I:I").Select
'et
For Each UneCellule In Selection

---

par

Code:

---

For each UneCellule in activesheet.usedrange

---

Ainsi tu parcourras toutes les cellules de ta plage de données.
(Replace existait déjà sur VBA 97 ? C'est une question ;) )

Ca yest j'ai réussi merci pour votre aide
Voici la bonne macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub newone3()   Dim col As Integer For col = 15 To 18 entete = Cells(1, col).Value   Dim UneCellule As Range ActiveSheet.Columns(col).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 p = Replace(p, "x", entete)   'remise de p dans la cellule UneCellule.Value = p Next Next col End Sub

---

Tu n'as pas à parcourir les colonnes si tu parcours déjà les cellules. Limite le code à ce que je mets

Dim une cellule as range

Code:

---

1 2 3

For Each UneCellule In ActiveSheet.UsedRange UneCellule = Replace(UneCellule.Value,"x", "test" Next

---

Si x est une variable, déclare-là et supprime les guillemets.