Discussion :

[brasco06]

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!

[aalex_38]

un exemple de boucle sur colonne 8 à 50

Code :

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

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

[Krovax]

bonjour essaye

Code :

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

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/

[ouskel'n'or]

Remplace

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

par

Code :

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

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 )

[brasco06]

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

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 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

[ouskel'n'or]

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 :

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

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.