Bonjour

Je reprend un code que j'aimerai amélioré.

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
 
               If s = "Text1" Then
                    'SelectionString = SelectionString + "B1:B" + CStr(Names.Item("Sonde1").RefersToRange.Rows.Count + 1)
                    SelectionString = SelectionString + "B1:B" + CStr(r + 2)
 
 
                End If
 
                If s = "Texte2" Then
                    'SelectionString = SelectionString + "C1:C" + CStr(Names.Item("Sonde2").RefersToRange.Rows.Count + 1)
                    SelectionString = SelectionString + "C1:C" + CStr(r + 2)
 
                    End If
                End If
  ..... jusqu'à "Texte n"
Il faut savoir que s est une variable lu dans un fichier et que les chaine de caractère se trouve dans la ligne 1 colonne n.

Je recherche à amélioré ce code et je voulais faire :
Pour chaque colonne
Si s == chaine de caractère ligne 1 colonne n alors
Colonne choisi = colonne ( "exemple A1, B1,..."
fin boucle
fin
fin boucle
Je bloque sur le choix de la colonne et sur l'initialisation de colonne choisi.
Merci de m'aider