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

JulienLebreton

XLDnaute Nouveau
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
 
Solution
Bonjour Julien,

essaye comme ceci :

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

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

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

soan

XLDnaute Barbatruc
Inactif
Bonjour Julien,

essaye comme ceci :

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

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

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

Discussions similaires

Réponses
7
Affichages
292