Bonjour,

j'ai un tableau avec des cellules liées à des valeurs de tcd d'autres classeurs.
Ces cellules perdent le lien lorsque le TCD est fermé.
je souhaiterais une macro activée par un commandbutton qui copie et qui colle en même place les valeur si la cellule à trouvé sa référence ou du moins si elle ne me renvoi pas une erreur (REF#, #DIV/0....)

Voici deux codes qu j'ai essayé le premier est bien mais ne fonctionne que pour les erreurs... comment l'appliquer aux cellules correctes et non aux cellules erronées?
et la deuxième qui fonctionne seulement si je sélectionne manuellement la plage de cellule.

Merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim plage As Range
 
Set plage = Range("C6:C12").SpecialCells(xlCellTypeFormulas, xlErrors)
 
For Each cell In plage
    If plage Is Not Nothing Then plage.Value = plage.Value
            Set plage = Nothing
 
Next cell
 
End Sub
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
Private Sub CommandButton2_Click()
Dim plage As Range
Dim cell
Set plage = Range("C6: D12")
 
For Each cell In plage
    If IsNumeric(cell.Value) Then
          Selection.Copy
          Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = True
 
   End If
 
Next cell
 
End Sub