Bonjour,
Voici mon problème dans l'éxécution d'une macro. J'ai dans les celulle R24 à R36 une formule obtenue par concaténation de plusieurs celulles. Je voudrais que ces formules s'exécutent dans les celulle G24 à G36. Pour cela j'ai crée une macro qui fait un copier coller spécial valeur de ma série R vers ma série G et pour valider la forumule j'entre dans la cellule par F2 et valide avec ENTER.
Le problème est que seule la dernière celulle est validée, dans les autres je vois toujours apparaitre la formule entière et non le résultat.
Voici le code :
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
13 Sub CopierCollerValeur() Dim x As Integer For x = 24 To 36 Cells(x, 18).Select Selection.Copy Cells(x, 7).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Application.SendKeys "{f2}" Application.SendKeys "{ENTER}" Next x End Sub
(PS : je débute de rien en VBA !)
Partager