VBA: activer une feuille avec un libellé issu d'une variable

Bonjour,

Je cherche à récupérer des valeurs présentes dans une feuille qui aurait le nom d'une variable de texte, elle même récupérée d'une cellule au format date.

J'ai essayé plusieurs solutions en créant une variable de texte et de type Worksheet mais aucune ne fonctionnent :(

Pourriez-vous m'aider svp

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Majdat()   Dim datjour As String 'Dim ws As Worksheet 'solution n°2 Dim a As Integer     a = 2   Do While Range("B" & a).Value <> "" Or Range("C" & a).Value <> "" a = a + 1 Loop   datjour = Format(Range("A" & a), "dd-mm")   'ws.Name = datjour 'Solution n°2 Range("C" & a).Value = Sheets(datjour).Range("C4").Value Range("D" & a).Value = ws.Range("C5").Value 'solution n°2

---

Bonjour
Où et comment as-tu déclaré et initialisé la variable ws ?

Citation:

---

mais aucune ne fonctionnent

---

ne nous dit rien sur le dysfonctionnement ! (erreur ? autre ?). Précise.

Les informations sont présentes en commentaire dans mon code.

Code:

---

'Dim ws As Worksheet 'solution n°2

---

Code:

---

'ws.Name = datjour 'Solution n°2

---

Bonjour,

pas compliqué via la collection Worksheets (voir l'aide VBA !) et un indice de type texte
contenant le nom de la feuille mais comme on ne voit pas de tentative par code …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

Citation:

---

Les informations sont présentes en commentaire dans mon code.

---

Que nenni.
La 1ère déclare bien
La seconde est en commentaire et (même en vigueur) ne saurait initialiser une variable objet (ce qu'est une feuille de calcul)
Ouvre vite ton aide VBA à la rubrique Set.
C'est par cette instruction, que l'on initialise une variable objet

Merci unparia. J'ai lu le tuto "http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/" et donc utilisé la fonction "set" mais ca ne fonctionne toujours pas.

J'obtiens le message "L'indice n'appartient pas à la sélection"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Majdat()   Dim datjour As String Dim ws As Worksheet 'solution n°2 Dim a As Integer     a = 2   Do While Range("B" & a).Value <> "" Or Range("C" & a).Value <> "" a = a + 1 Loop   datjour = Format(Range("A" & a), "dd-mm")   Set ws = Worksheets(datjour)

---

Citation:

---

J'obtiens le message "L'indice n'appartient pas à la sélection"

---

Ce qui veut clairement dire que ton classeur n'a pas de feuille dont le nom est e contenu de ta variable datjour.
Déjà : passe en mode debug et vérifie le contenu de ta variable datjour ! (c'est là un premier réflexe élémentaire).

Maintenant (et par ailleurs) :
analyse bien ta boucle do ... Loop
Telle que faite, ta variable a n'est pas le rang de la dernière ligne contenant une donnée en colonne B ou en colonne C, mais le rang de la ligne suivante (puisque tu incrémentes systématiquement a).
Si c'est ce que tu veux vraiment (mais tu es seul à le savoir) , "va bene". Sinon : tu te trompes assez manifestement (et là encore, le mode debug te permettrait de savoir ce que vaut a à la sortie de ta boucle, non ?)

Bonsoir,
Un petit détail qui peut t'empester la vie!
N'y aurait il pas un deux ou trois espaces que tu n'aurais pas vue dans le nom de ton onglet?

Citation:

---

Envoyé par rdurupt

Bonsoir,
Un petit détail qui peut t'empester la vie!
N'y aurait il pas un deux ou trois espaces que tu n'aurais pas vue dans le nom de ton onglet?

---

Merci rdurupt. C'est vraiment bêta mais effectivement un espace était placé après les valeurs numériques :oops: