Discussion :

[kimou75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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

mais aucune ne fonctionnent

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

[kimou75]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'Dim ws As Worksheet  'solution n°2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'ws.Name = datjour  'Solution n°2

[Marc-L]

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, …

[unparia]

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

[kimou75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[unparia]

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 ?)

[Invité]

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?