Discussion :

[Vbamateur]

Bonjour,

D'ores et déjà, merci pour votre aide par les nombreux post que j'ai pu consulter et qui m'ont aidé dans la rédaction de nombreuses macro!
Pour être précis, je suis un débutant en vba et je suis donc friand des astuces qui peuvent me sauver la mise.
Je sollicite aujourd'hui votre aide pour m'aider dans un problème que je n'arrive pas à résoudre.
J'ai créé un planning que je souhaite automatiser au maximum qui marque une croix sur la plage "dates" enregistrée. Par conséquent, je souhaite que les cellules où un "x" est visible soit remplacé par le nom d'un lieu qui figure dans une autre cellule. Je suis conscient que ma tentative est très simpliste mais je cherche justement à ne pas me compliquer la vie. Ci-dessous ma macro avec un détail de ce que je souhaite faire à chaque étape.

Bien cordialement.
VBamateur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub remplacementlieucellule()
Dim i, j, k As Integer
i = 11 'localisation de la ligne sur laquelle effectuer les modifications'
j = 11 'lignes de la première cellule concernée'
k = 17 'lignes de la première colonne concernée'
For i = 1 To 100
If Rows(i).Cells(j, k).Text = "x" Then 'si dans la ligne i, la valeur de la cellule contient "x" et est visible'
Replace what:="x", replacement:=Cells(i, 4).Value 'remplacer "x" par la valeur de la cellule i,4'
Next k 'le faire avec la cellule suivante sur la même ligne'
Next j
End If
Next i
End Sub

[BDA53]

Pourquoi t'embêter à faire difficile quand tu peux faire simple, voici la solution :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub remplacementlieucellule()
    Dim l, c As Integer
    For l = 11 To 100
        For c = 17 To 50
            If Worksheets("Feuil1").Cells(l, c) = "x" Then Worksheets("Feuil1").Cells(l, c) = Worksheets("Feuil1").Cells("la cellule où figure ton lieu")
        Next c
    Next l
End Sub

Cordialement
xela57

[Vbamateur]

Maintenant que je vois ça,j'avoue que j'aurais du réfléchir beaucoup plus simplement,
Merci beaucoup.
Cordialement,
VBamateur.