A voir également:
- Indexer un nom de feuille
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
- Trouver un numero de portable a partir d'un nom svp - Forum Internet / Réseaux sociaux
- Nom d’adresse - Forum Internet / Réseaux sociaux
3 réponses
ccm81
Messages postés
10559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 mars 2023
2 337
Modifié par ccm81 le 11/04/2011 à 09:06
Modifié par ccm81 le 11/04/2011 à 09:06
re
je ne vois pas trop où tu veux en venir mais ici
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat01_eleve01"
1. il vaut mieux eviter les select
2. puisque C8 doit contenir une formule impliquant une feuille, c'est son nom qu'il faut utiliser donc ceci me parait plus correct
RQ. ton erreur vient peut etre de la confusion Feuille <-> nom de feuille
bonne suite
je ne vois pas trop où tu veux en venir mais ici
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat01_eleve01"
1. il vaut mieux eviter les select
2. puisque C8 doit contenir une formule impliquant une feuille, c'est son nom qu'il faut utiliser donc ceci me parait plus correct
Range("C8").FormulaR1C1 = "=" & NomdeFeuille & "!appréc_mat01_eleve01" en supposant que appréc_mat01_eleve01 est un nom de cellule
RQ. ton erreur vient peut etre de la confusion Feuille <-> nom de feuille
bonne suite
ccm81
Messages postés
10559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 mars 2023
2 337
Modifié par ccm81 le 10/04/2011 à 11:15
Modifié par ccm81 le 10/04/2011 à 11:15
bonjour,
pour affecter une feuille a la variable lafeuille il faut utiliser
set lafeuille =
un code un peu plus concis
bonne suite
pour affecter une feuille a la variable lafeuille il faut utiliser
set lafeuille =
un code un peu plus concis
Dim laFeuille As Worksheet
Dim Nomdefeuille As String
Set laFeuille = Sheets("Feuil2")
Nomdefeuille = Range("A1").Value
Nomdefeuille = Nomdefeuille & "_" & Range("A2").Value
laFeuille.Name = Nomdefeuille
bonne suite
J'ai trouvé mon erreur, le nom de feuille que j'avais pris ne faisait pas partie de ma bibliothèque...
Par contre je voudrai indexer ma collecte de données par rapport à ce nouveau nom de feuille (ce sont des commentaires que je veux compiler).
Les lignes de code sont les suivantes (voir ci-dessous), à chaque simulation excel cherche un fichier contenant une feuille de nom "laFeuille" mais pas du nom que je suis censé avoir créé ...
Private Sub CommandButton1_Click()
'
' acquisition_donées_bulletin Macro
' Macro enregistrée le 07/04/2011 afin de collecter les appréciations de l'élève sélectionné
Dim laFeuille As Worksheet ' LaFeuille est le nom de la feuille élève
Dim Nomdefeuille As String ' nomdefeuille et la chaîne de caractère qui va permettre de construire le nom de la feuille
Set laFeuille = Sheets("modèle_élève")
Nomdefeuille = Range("d70").Value
Nomdefeuille = Nomdefeuille & "_" & Range("d71").Value
laFeuille.Name = Nomdefeuille
Range("C8").Select
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat01_eleve01"
Range("C12").Select
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat02_eleve01"
Range("C16").Select
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat03_eleve01"
etc etc sur 20 sections
Qu'est ce qui cloche?
Merci d'avance, je débute en programmation vba, jusqu'ici j'y arrive avec des bouquins et les faq mais cette fois je coince.
Par contre je voudrai indexer ma collecte de données par rapport à ce nouveau nom de feuille (ce sont des commentaires que je veux compiler).
Les lignes de code sont les suivantes (voir ci-dessous), à chaque simulation excel cherche un fichier contenant une feuille de nom "laFeuille" mais pas du nom que je suis censé avoir créé ...
Private Sub CommandButton1_Click()
'
' acquisition_donées_bulletin Macro
' Macro enregistrée le 07/04/2011 afin de collecter les appréciations de l'élève sélectionné
Dim laFeuille As Worksheet ' LaFeuille est le nom de la feuille élève
Dim Nomdefeuille As String ' nomdefeuille et la chaîne de caractère qui va permettre de construire le nom de la feuille
Set laFeuille = Sheets("modèle_élève")
Nomdefeuille = Range("d70").Value
Nomdefeuille = Nomdefeuille & "_" & Range("d71").Value
laFeuille.Name = Nomdefeuille
Range("C8").Select
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat01_eleve01"
Range("C12").Select
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat02_eleve01"
Range("C16").Select
ActiveCell.FormulaR1C1 = "=laFeuille!appréc_mat03_eleve01"
etc etc sur 20 sections
Qu'est ce qui cloche?
Merci d'avance, je débute en programmation vba, jusqu'ici j'y arrive avec des bouquins et les faq mais cette fois je coince.