Faire référence a une autre page

Version imprimable

27/11/2018, 22h34
kelerbee

Faire référence a une autre page

Bonjour tout le monde,

Voila j'explique mon petite problème.
J'aimerais par le biais d'un code assigné à une cellule la valeur d'une autre cellule sur une autre feuille.
Par exemple : A1 sur la feuille active, égale la valeur d'A1 d'une seconde feuille.
Pour le moment j'ai ceci

Code:

ActiveCell.FormulaR1C1 = "='NewTitre'!RC"

Le problème c'est ce petit "RC" Si ActiveCelle = A1 alors RC = A1 jusque la ok
Mais Si ActiveCelle = B1 alors RC = B1 mais je veux que se soie A1. Je pourrais faire RC[-1] mais encore une fois cela ne fonctionnerait que en B1 alors que moi j'aimerais que cela fonctionne pour tous :weird:

Quelqu'un aurait une idée?

Merci d'avance
28/11/2018, 04h23
ARTURO83

Bonjour,,

Quelques petites explications:
R = Row = Ligne
C = Column = Colonne

R1C1 (valeurs absolues ou figées) = Ligne 1 et colonne 1 = A1 (et se sera toujours A1), écriture équivalente à $A$1 en excel
RC[1] (Valeurs relatives, en fonction de l'emplacement de la cellule sélectionnée) si la cellule sélectionnée est A1, alors R=même ligne, donc 1. C[1] = colonne +1 donc B. Au final RC[1] = B1
R[-2]C[-2] (Valeurs relatives, en fonction de l'emplacement de la cellule sélectionnée) si la cellule sélectionnée est D6, R= ligne -2, donc 4. C[-2] = colonne -2 donc B. Au final R[-2]C[-2] = B4

Ceci devrait vous aider à résoudre votre problème.

Cdlt
28/11/2018, 09h34
kelerbee

Merci beaucoup aurait tu une solution pour pouvoir étirer la formule sur la colonne ?
28/11/2018, 09h50
Menhir

Je n'ai pas bien compris ton explication.

Citation:

Envoyé par kelerbee

J'aimerais par le biais d'un code assigné à une cellule la valeur d'une autre cellule sur une autre feuille.

Comment est déterminée l'adresse de cette "autre cellule" ?
Dans quel contexte places-tu ta macro ? Une fonction personnalisée ? Une macro déclenchée à la main ? Une macro évènementielle ?

Citation:

Mais Si ActiveCelle = B1 alors RC = B1 mais je veux que se soie A1. Je pourrais faire RC[-1] mais encore une fois cela ne fonctionnerait que en B1 alors que moi j'aimerais que cela fonctionne pour tous :weird:

Ca signifie qu'en B1 de ta feuille cible tu veux avoir la valeur de A1 de ta feuille source ?
28/11/2018, 10h01
kelerbee

En faite j'ai une feuille général avec une liste de nom en colonne A j'ai aussi un bouton qui crée des catégorie En créant une nouvelle feuille avec le titre de la catégorie.
j'aimerais que sur la feuille général soie repris toute les catégorie avec en dessous du titre face au nom de la personne les points qu'il aurait obtenu dans la catégorie.

Si le nom ce trouve en A2 sur la feuille général il se trouve également en A2 sur la feuille de la catégorie donc en B2 de la feuille général j'aimerais avoir la moyen qu'il a obtenue pour la catégorie 1 en C2 la moyen pour la CAT3 et si je crée une nouvelle CAT le titre ce mettra en D1 et la formule en D2 mais j'aimerais que cette formule aille pour tout les noms.

Je sais pas si j'ai été claire?
28/11/2018, 11h57
Menhir

Citation:

Envoyé par kelerbee

Je sais pas si j'ai été claire?

En ce qui me concerne, pas du tout.
Il faudrait au moins que tu mettes des copies d'écran de tes feuilles source et destination pour comprendre comment sont organisées tes données.
28/11/2018, 13h03
kelerbee

4 pièce(s) jointe(s)

Excuse moi je vais essayer d'etre plus claire

voici la page général :

Pièce jointe 430614

Ici si j'actionne le bouton catégorie il m'ouvre un userforme pour je peux lui donné le titre de la nouvelle catégorie

Pièce jointe 430616

Pièce jointe 430617

Il m'ajoute un bouton au dessu de la premier colonne vide avec le nom de la catégorie si j'actionne ce bouton il m'ouvre la page de la catégorie ou je vais pouvoir reprendre tout les test.

Pièce jointe 430618

J'aimerais que ce bouton mette aussi dans la page général, sous la colonne correspondante à la catégorie la formule pouvant faire la moyenne de cette catégorie.
29/11/2018, 09h12
kelerbee

Personne ne sais m'aider ? Je n'arrive pas à étendre cette formule j'ai trouver comment le faire quand on demare d'une cellule connu mais le problème c'est que la colonne n'est jamais fixe
29/11/2018, 18h17
ARTURO83

Bonsoir,

Personne ne sais m'aider ?, Mais si, tout le monde veut vous aider, mais avouez que pour comprendre ce que vous voulez il faut un décodeur. Vous avez mis 4 belles images de feuilles avec une liste de noms, mais ou sont les valeurs à récupérer, où doivent-elles se reporter? Pour nous aidez à comprendre, mettez plutôt des valeurs dans la feuille "conjugaison", puis dans l'autre feuille "Général", montrez-nous le résultat attendu, à partir de là, on pourra vous fournir une réponse. Pensez que nous ne sommes pas dans votre tête et que nous n'avons pas forcément la même logique que vous pour comprendre les choses.

Un problème bien exposé est à moitié résolu.

Juste une petite question: Avez-vous bien compris mes explications du post 2?

Cdlt
29/11/2018, 18h39
Menhir

Citation:

Personne ne sais m'aider ?

Personnellement, quand la troisième fois je n'ai pas compris, je n'insiste pas. Certains considèrent ça comme du harcèlement agressif et commence à partir dans des attaques tout à fait déplaisantes.

Citation:

Envoyé par kelerbee

Ici si j'actionne le bouton catégorie il m'ouvre un userforme pour je peux lui donné le titre de la nouvelle catégorie

Pourrais-tu montrer ton code ?

Si tu as juste un mot à mettre, il serait plus simple d'utiliser une Inputbox qu'un Userform.
https://docs.microsoft.com/fr-fr/off...utbox-function

Citation:

Il m'ajoute un bouton au dessu de la premier colonne vide avec le nom de la catégorie si j'actionne ce bouton il m'ouvre la page de la catégorie ou je vais pouvoir reprendre tout les test.

Comme je le disais, je n'ai pas vraiment compris ce que tu souhaites faire mais j'ai l'impression que créer un lien hypertexte serait plus simple qu'un bouton.
https://docs.microsoft.com/fr-FR/off...cel.hyperlinks
https://docs.microsoft.com/fr-FR/off...xcel.hyperlink

Citation:

J'aimerais que ce bouton mette aussi dans la page général, sous la colonne correspondante à la catégorie la formule pouvant faire la moyenne de cette catégorie.

Visiblement, dans ton process tu utilises plusieurs onglets mais tu n'y fais jamais référence dans tes explications.
On ne sait pas non plus comment se construit le nom de l'onglet de la catégorie.

Salut

Un principe facile à comprendre : "Aide nous à aider !"*.
En navigant à vue, avec ton problème qui semble venir de l'analyse du RC dans la formule passée au VBA, une autre direction :
Code:

1 2 3 4 5 6 Sub Macro() Dim C As Range For Each C In [Plage] 'Plage : nom de la zone parcourue If C = Feuil1.[$A$1] Then Action 1 Else Action 2 'Feuil1 : feuille source, A1 : cellule source (avec des $) Next End Sub
*tes images ne me (nous) permettent pas d'analyser la situation dans son ensemble. Une longue liste de codes me serait moins abordable qu'un petit fichier significatif avec le minimum d'informations impliquant la demande. Beaucoup trouveront cette demande malvenue mais je pense que c'est une solution qui peut permettre de régler le problème plus rapidement.

Citation:

Envoyé par ARTURO83

Juste une petite question: Avez-vous bien compris mes explications du post 2?

Oui merci beaucoup cela ma vraiment aidée mais le problème se situais quand je faisais un AutoFill je ne pouvais pas utilisé RC tel quel mais j'ai trouver une solution je vous met mon code ici en espérant qu'il soie plus parlant que toute mes explication :mouarf:

Mon problème se situais sur la ligne 83 mais j'ai finalement pu trouver une solution en farfouillant dans la doc Merci quand de m'avoir accordé votre temps pour essayer de me comprendre :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Private Sub CommandButton1_Click()
 
Application.ScreenUpdating = False
'enregistre le titre de la page en cours
nom_feuille = ActiveSheet.Name
Dim B1 As String
Dim B2 As String
'definit B1 comme le texte du bouton 1
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    B1 = Selection.Characters.Text
'definit B2 avec le titre actuel
    Range("B2:D2").Select
    B2 = ActiveCell.FormulaR1C1
'defini le titre de la categorie
Dim vTitre As String
    vTitre = TextBox1
'copie la page model
Worksheets("Model.3").Copy After:=Worksheets("Model.3")
'nomme la nouvelle page model avec le titre de la catégorie et le titre dans le quel elle est crée
Worksheets("Model.3 (2)").Name = vTitre & "          " & B2
Dim newtitre As String
    newtitre = vTitre & "          " & B2
'ajoute un bouton et le nomme "B1"
Sheets(vTitre & "          " & B2).Buttons.Add(0, 0.75, 60, 33).Select
Selection.Characters.Text = B1
    With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Gras"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
       .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16777216
    End With
Selection.OnAction = "Bouton3_" & B1
'ajoute B2 etle définit
Sheets(vTitre & "          " & B2).Buttons.Add(60, 0, 60, 15.75).Select
Selection.Characters.Text = B2
     With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Gras"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16777216
    End With
Selection.OnAction = "Bouton3_" & B2
'définit titre de page
Range("B2:D2").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 14
    End With
     With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = vTitre
 
'cherche la colone vide pour lui ajouter le bouton de cat
Worksheets(nom_feuille).Activate
Dim Col As Integer
Col = Rows(5).Find("*", , , , xlByRows, xlPrevious).Column + 1
Cells(5, Col) = "ok"
Cells(6, Col).Select
ActiveCell.FormulaR1C1 = "='" & newtitre & "'!RC2"
Selection.AutoFill Destination:=Range(Cells(6, Col), Cells(19, Col)), Type:=xlFillDefault
Col = (Col - 1) * 60
ActiveSheet.Buttons.Add(Col, 64.5, 60, 16.5).Select
Selection.Characters.Text = vTitre & "          " & B2
Selection.OnAction = "macro_test"
UserForm1.Hide
End Sub

Si vous pouviez me donné quelque conseil pour le code si vous voyer une meilleur façon de travailler je suis preneur c'est mon premier vrai code je sais que sa dois vous sembler très brouillon mais bon j'en suis quand même un peu fier :oops::mouarf:

Bonjour,

Quelques conseils parmi d'autres
Toutes les variables doivent être déclarées en début de code
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton1_Click() '*********** Déclaration des variables **************************** Dim B1 As String Dim B2 As String Dim vTitre As String Dim newtitre As String Dim Col As Integer Application.ScreenUpdating = False
Eviter au maximum la commande Select:
des lignes du genre:
Code:

1 2 3 Range("B2").Select ActiveCell.FormulaR1C1 = "=RC[1]+RC[2]" Selection.AutoFill Destination:=Range("B2:B14"), Type:=xlFillDefault
peuvent s'écrire:

Code:

Range("B2:B14").FormulaR1C1 = "=RC[1]+RC[2]"

Voilà pour quelques infos, je n'ai pas pris le temps de tout regarder.

Cdlt

30/11/2018, 11h50
kelerbee

Citation:

Envoyé par ARTURO83

Quelques conseils parmi d'autres

Merci Beaucoup :)