Discussion :

[Benjycool]

Bonjour à tous,

J'ai dans un programme besoin de scinder en deux une chaine de caractère saisie par l'utilisateur.

En faite l'utilisateur, saisie une case du tableur par exemple A22.
Je voudrais scinder d'un coté A et de l'autre 22. Pour avoir A = 1 (la première colonne, B la deuxieme etc ...) et 22 pour la 22eme ligne.

J'ai commencer à ecrire un truc mais il ne fonctionne pas :

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
19
20
21
22
23
24
25
26
27
28
Dim cl1 As Workbook, cl2 As Workbook
Dim f1 As Worksheet, f2 As Worksheet
Dim case_dep As String, case_fin As String

Set cl1 = ActiveWorkbook
Set f1 = cl1.Worksheets("TB SES-Niv1")

Workbooks.Open "G:\Cours\Stage\Stage 2eme année\tabbord_DR.xls"
Dim F As Worksheet

Set F = Worksheets("Feuil1")


'Pour remplacer la lettre de la colonne de départ du tableau par un chiffre
If (Left(case_dep, 1) = "A") Then
    col_dbt = 1
Else
    If (Left(case_dep, 1) = "B") Then
        col_dbt = 2
            /* etc jusqu'a la lettre Z et le chiffre 26.*/

/* pour le n°22 :*/
Mid(case_dep, 2) = li_deb
Mid(case_fin, 2) = li_fin

/*Le probleme est qu'il me dit qu'il faut une variable. 
Mais case_dep et case_fin sont des variables. */

Comment faire pour le Mid ????
Et je pense que mes conditions avec If peuvent être simplifiées mais je ne sais pas comment.

Merci de bien vouloir m'aider.
Benjycool

[ouskel'n'or]

Alors on va régler le problème d'une autre manière, ce sera plus orthodoxe :

Code :

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

1
2
3
4
NoLig = Range("A22").Row
NoCol = Range("A22").Column
'ou, pour avoir la lettre de la colonne
LetCol = Split(Range("A22").Address, "$")(1)

Bonne journée