jecirbe
XLDnaute Junior
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).
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,
mais j'ai "Erreur d'exécution 1004" et même chose si je remplace worksheets par sheets.
Merci d'avance pour votre aide
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).
VB:
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 subJe 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,
VB:
texte= worksheets(onglet).cells(jour,colonne).valueMerci d'avance pour votre aide
Dernière édition: