[Résolu]Problème de déclaration variable ou de référence?

[jecirbe]

Bonjour,
je m’adresse à vous car après plusieurs heures de recherches vaines (mauvais mots clé, mauvaise méthode de recherche ??) sur internet, je coince toujours sur un problème "basique".
J'ai une feuille "Feuil1" dans laquelle se trouve une textbox. Dans cette textbox, via une macro, j'affiche du texte grâce à un tuto youtube (organizer 1/2 & 2/2).

Sub Barrededéfilement3_QuandChangement()
Dim mois As String, jour As String, onglet As String, colonne As String
onglet = Worksheets("Feuil1").Cells(1, 1).Value
mois = Worksheets("Feuil1").Range("A2").Value
Select Case mois
    Case UCase("Janvier")
        colonne = "A" '1
    Case UCase("Février")
        colonne = "B" '2
    Case UCase("Mars")
        colonne = "C" '3
    Case UCase("Avril")
        colonne = "D" '4
    Case UCase("Mai")
        colonne = "E" '5
    Case UCase("Juin")
        colonne = "F" '6
    Case UCase("Juillet")
        colonne = "G" '7
    Case UCase("Août")
        colonne = "H" '8
    Case UCase("Septembre")
        colonne = "I" '9
    Case UCase("Octrobre")
        colonne = "J" '10
    Case UCase("Novembre")
        colonne = "K" '11
    Case UCase("Décembre")
        colonne = "L" '12
End Select

'jour = Sheets("Feuil1").Cells(3, 1).Value
Sheets("Feuil1").TextBox1.Select

'je souhaites changer la ligne ci-dessous qui fonctionne
texte = Range(onglet & "!" & colonne & Range("A3").Value)
end sub

Je préfèrerais pouvoir utiliser la syntaxe cells(ligne,colonne) pour avoir plus de flexibilité avec les variables.
J'ai testé, après avoir modifier mes colonnes par exemple "A" par 1,

texte= worksheets(onglet).cells(jour,colonne).value

mais j'ai "Erreur d'exécution 1004" et même chose si je remplace worksheets par sheets.

Merci d'avance pour votre aide

 

[jecirbe]

la réponse:
lorsque je remplace ma valeur de colonne "A3" (par exemple) , j'ai oublié de changer dans la déclaration le type de variable on passe de

 Dim colonne as string

à

 colonne as integer [/colonne]

 

[Dranreb]

Bonjour.
Vous devriez pouvoir faire :

colonne = Month(DateValue("1 " & Worksheets("Feuil1").Range("A2").Value & " 1900"))