Copier un nom dans une formule
Résolu
Jojo67200
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
Jojo67200 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Jojo67200 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Copier un nom dans une formule
- Formule si et - Guide
- Comment copier une vidéo youtube - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
3 réponses
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 !
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 !
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ù
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
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
j'ai essayé la solution que vous avez proposé cela me donne =[Jojo]Menu!B$69 alors que je voudrais avoir =Jojo!B$69 je vous ai envoyé le fichier avec les feuilles qui devront recevoir la cellule B6 et la cellule B8 j'espère que je ne me suis pas planté.
Comme dit je suis nul mais je cherche a m'améliorer encore merci a vous.
Jojo67200
Comme dit je suis nul mais je cherche a m'améliorer encore merci a vous.
Jojo67200
Je viens de joindre une copie mon fichier
comme je l'ai déjà dit je suis nul en programmation VBA et en informatique en général merci a vous du temps que vous passez sur mon problème
Je ne le vois nul part ! =P