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