[XL-2016] Sélectionner un cellule sur base de deux variables

Sélectionner un cellule sur base de deux variables

Bonjour à tous,

Je souhaite sélectionner une cellule sur base de deux variables.

J'ai débuté mon code tel que :
Code:

1 2 3 4 5 6 7 8 9 T1 = Application.Match("MS2", Plage, 0) T2 = Application.Match("MH3", Plage, 0) T3 = Application.Match("MS3", Plage, 0) Ligne = Me.Test.ListIndex + 7 For I = 1 To 7 Me.Controls("TextBox" & I) = Ws.Cells(Ligne, "T" & I) Next I
Mon code fonctionne pour la référence de ma ligne mais pas pour ma colonne.
Je ne sais pas si c'est suffisamment clair, sinon je vais essayer de décrire un minimum mon objectif :

- j'ai une multitude de TextBox que je voudrais remplir sur base de données issues d'un classeur Excel.

-> Cells(Ligne, fonctionne mais ("T" & I) me renvoie une erreur. On le devine ou pas mais j'essaie de renvoyer la valeur de T1, puis T2, etc. comme variable pour ma cellule Cells(Ligne, Colonne).

Auriez-vous svp des idées ?

D'avance, je vous remercie.

Citation:

Envoyé par thomanneca

Bonjour,

Essayez :

Code:

1
2
3
4
 
For I = 1 To 7
            Me.Controls("TextBox" & I) = Ws.Cells(Ligne, 19 + I)
Next I

Citation:
Envoyé par Eric KERGRESSE
Bonjour,

Essayez :
Code:

1 2 3 4 For I = 1 To 7 Me.Controls("TextBox" & I) = Ws.Cells(Ligne, 19 + I) Next I
Bonjour Erik,

Merci pour ta réponse. Je vais tester mais pourquoi 19 pour remplacer "T" ?

Citation:

Envoyé par thomanneca

mais pourquoi 19 pour remplacer "T" ?

Parce que vous utilisez la notation Cells, que T correspond à la colonne 20, et que votre compteur démarre à 1, faites le calcul.

Citation:

Envoyé par Eric KERGRESSE

Parce que vous utilisez la notation Cells, que T correspond à la colonne 20, et que votre compteur démarre à 1, faites le calcul.

Ok, alors je me suis mal expliqué. Au temps pour moi.

En fait, ma lettre T ne correspond pas à une colonne mais à une variable.
Par exemple, T1 = numéro de la colonne contenant les Prénoms : T1 = 3 par exemple -> Cells(Ligne, T1) me renverrait dans ce cas l'adresse d'une cellule à l'intersection de ma ligne 4 (pour autant que Ligne = 4) et de la colonne 3.

J'espère que c'est plus clair ainsi.

Devrais-je, au lieu de prendre une seule lettre comme variable, prendre un mot ? ex. Colonne1, Colonne2, etc ?

je vais tester

merci pour ton aide

Bonjour,

Utilises un tableau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim T(1 To 3)
 
T(1) = Application.Match("MS2", Plage, 0)
T(2) = Application.Match("MH3", Plage, 0)
T(3) = Application.Match("MS3", Plage, 0)
 
Ligne = Me.Test.ListIndex + 7
 
For I = 1 To 7
 
    Me.Controls("TextBox" & I) = Ws.Cells(Ligne, T(I)).Value
 
Next I

Citation:

Envoyé par thomanneca

Utiliser des noms de variable qui ressemblent à une référence de cellule n'est pas une bonne idée, la preuve, cela m'a induit en erreur.
Pourquoi ne pas donner un nom explicite à votre variable ? Exemple : ColonnePrenom, ColonneEnCours, etc... Le code n'en sera que plus lisible. Donc si ces variables sont de type Integer ou long, mon code est toujours valable.

re

bonjour

Code:

1
2
3
For I = 1 To 7
            Me.Controls("TextBox" & I) = Ws.Cells(Ligne, "T" ).offset(,I)
Next I

Je vais effectivement changer mes noms, cela sera plus clair pour la suite.

Je vous remercie à tous pour votre aide !!

Bonne fin de journée ;-)