Discussion :

[Excellence1234]

Bonjour à toutes et à tous,

Je poste cette nouvelle discussion car je rencontre un problème dans la création d'un bouton relié à une macro.

J'ai créer un bouton afin de remplir automatiquement une case qui se vide lorsque j’actualise les données à partir de ma base SAP via AFO (complément Excel appelé Analysis For Office).
Le nom d'une colonne, en l'occurrence celle où l'on retrouve le commentaire se vide lors du refresh et la conséquence est que mes tableaux croisés dynamiques ne prenne plus en compte la sources de données car elle contient un champ vide.

Cependant, quand je lance la macro à l'aide du bouton, le résultat est toujours bon, mais il vient s'afficher dans la dernière case sélectionner avec la souris. Alors que je voudrais que le résultat s'affiche toujours dans la cellule E1 de la feuille 1.


Donc ma question, comment figer la cellule source et destination dans ma macro ?

Voici ma macro (de débutant..) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveCell.FormulaR1C1 = "=Feuil2!RC[-4]"
    Range("E2").Select
End Sub

J'ai donc placer dans la feuille 2 cellule A1 le mot "commentaire" et demander à la macro de récupérer et copier la valeur de la cellule A1 feuille 2 dans E1 feuille 1 après avoir cliquer sur le bouton.

Merci d'avance pour votre aide !

[Excellence1234]

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
17
Sub BoutonValider()
'
' BoutonValider Macro
'
 
'
    Sheets("Feuil2").Select
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Feuil3").Select
    Range("A1").Select
End Sub