Microsoft 365 VBA : Remplacer cellule par le contenue d'une autre cellule

[JulienLebreton]

Bonjour à tous !

Je cherche actuellement à remplacer chaque cellule contenant un X par une valeur situé dans un compteur situé dans un onglet de variables.

Je suis arrivé à ce code ci mais je dois rater quelque chose, si quelqu'un à une idée ?

Sub Regrouper()
'Regrouper les opérations
Dim MaCell As Range
For Each MaCell In Range("N2:N1000").Cells
If MaCell.Value = "X" Then MaCell.Value = ThisWorkbook.Sheets("variables").range("A1")
Next MaCell
End Sub

Merci de votre aide,

Julien

 

[soan]

Bonjour Julien,

essaye comme ceci :

Sub Regrouper()
  'Regrouper les opérations
  Dim MaCell As Range
  For Each MaCell In [N2:N1000]
    If MaCell = "X" Then MaCell = ThisWorkbook.Worksheets("variables").[A1]
  Next MaCell
End Sub

si cette sub est dans ThisWorkbook, alors inutile de le spécifier :

Sub Regrouper()
  'Regrouper les opérations
  Dim MaCell As Range
  For Each MaCell In [N2:N1000]
    If MaCell = "X" Then MaCell = Worksheets("variables").[A1]
  Next MaCell
End Sub

tu peux même mettre :

Sub Regrouper()
  'Regrouper les opérations
  Dim MaCell As Range
  For Each MaCell In [N2:N1000]
    If MaCell = "X" Then MaCell = [variables!A1]
  Next MaCell
End Sub

soan

 

[JulienLebreton]

Merci beaucou Soan, c'est exactement ce que je cherchais à faire !

Bonne journée à toi,

Julien