copier un nom dans une formule Résolu/Fermé

Question

Bonjour, 
Je cherche a insérer un nom dans une formule je ne connais rien aux macros alors j'utilise l'enregistreur mais cela ne marche pas naturellement voila ce que j'ai fait je précise que je ne connait rien a la programmation par macro
le but de l'opération est que je dois copier les deux cellules deux  fiches pour enregistrer le résultat des adhérents du club.
merci de votre aide
Jojo67200 

Sub CopierPseudo()
'
' CopierPseudo Macro
' Macro enregistrée le 09/04/2015 par Jo


Dim Nom As Variant
  Range("B4").Value = Nom

    Range("B4").Select
    Selection.Copy
    Range("B6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "='Nom'!R69C[1]"
    Range("B4").Select
    Selection.Copy
    Range("B8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(SUM('Nom'!R26C[4]:R32C[4])>0,1,"""")"
    Range("B4").Select
    
   
End Sub
je travail sous Excel 2003

Configuration: Windows 7 / Mozilla 11.0

ozone_ · Answer

Salut,

J'arrive pas trop à voir l'interêt ou du moins, le résultat final !

Peux-tu nous joindre un exemple de ton fichier (exempt de données confidentielles ) sur :
 https://www.cjoint.com/

Merci !

ccm81 · Answer

Bonjour

Je ne vois toujours pas où tu veux en venir mais, 

1. Dans ces deux instructions,il faut séparer la variable Nom et la concaténer avec le reste de la formule,  essaies ceci au cas où
ActiveCell.FormulaR1C1 = "='" & Nom & "'!R69C[1]"
ActiveCell.FormulaR1C1 = "=IF(SUM('" & Nom & "'!R26C[4]:R32C[4])>0,1,"""")"
2. tu déclares cette variable nom (le type string serait plus adapté) et tu l'affectes à B4 ici 
Range("B4").Value = Nom
sans lui avoir donné une valeur
Est ce que ce ne serait pas le contraire, affecter à la variable Nom le contenu de B4
Nom = Range("B4").Value

3. Sans ton fichier, comme déjà précisé ici, on est réduit à jouer aux devinettes

Bon courage

Jojo67200 · Answer

Je ne sais pas ou est mon fichier j'ai du faire une connerie lors de l'envoi,
Mais pas grave mon problème est résolut grace a ccm81 que je remercie .
Merci a vous aussi d'avoir pris le temps de vous pencher sur la question.

Encore merci a vous deux

Cordialement

Copier un nom dans une formule

3 réponses

Discussions similaires

Newsletters