boucle AlphabetiqueRésolu

Question

VBA excel 2007
bonjour,

je n'arrive pas a faire une boucle par colonne

exemple
Sub BoucleColonne()
dim iSemaine as integer ''dans un autre sub et il correspond a 50
Dim code_colonne As String
Dim i As Integer


        For i = 5 To 375
        code_colonne = Chr(i + 64)
        Next

End Sub

j'ai trouver se bout de code le ploblème il s'arrete a la lettre Z.
et j'ai 375 colonne utilisé sois jusqu'a "NK"

je dois tester si la valeur de code_colonne & 7 .

Franchement je seche quelqu'un aurais une idée svp

merci

Renfield · Accepted Answer

pourquoi referencer les colonnes par une lettre ?
le numéro de colonne va très bien...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

scromania · Answer

Dim rwIndex As Integer
   Dim colIndex As Integer
 rwIndex = 7
        For colIndex = 5 To 375
        If Cells(rwIndex, colIndex).Value = iSemaine Then
        
        Cells(rwIndex, colIndex).Select
        'Cells(rwIndex, colIndex).Value = colIndex
         ActiveSheet.Paste
         Exit For
        End If
        
        Next colIndex

Boucle Alphabetique

2 réponses

Votre réponse

Discussions similaires