Bonjour,
Comme dit explicitement dans mon titre, j'ai un petit soucis de bloquage d'incrémentation de mon indice de colonne une fois arrivé à Z en passant par le code ASCII.
Je ne vais pas pouvoir joindre mon fichier car trop volumineux donc je vais expliquer mon programme :
Je réalise des acquisitions de 273 valeurs, je les rangent chacune dans une ligne différentes de la même colonne. Ensuite lors de la deuxième acquisition, je passe à la colonne suivante et ainsi de suite. OR mon code bloque à Z car il cherche à incrémenter mais ne peux pas car on doit passer à la colonne AA. Voici mon module correspondant à cette tâche :
Je pense donc qu'il faut changer ma méthode d'incrémentation de mon indice de colonne mais j'ai du mal à voir une autre méthode ... ( je suis débutant )
Comment faire pour que cela ne bloque pas à Z ?
Merci d'avance !
Cordialement, AzoR.
Comme dit explicitement dans mon titre, j'ai un petit soucis de bloquage d'incrémentation de mon indice de colonne une fois arrivé à Z en passant par le code ASCII.
Je ne vais pas pouvoir joindre mon fichier car trop volumineux donc je vais expliquer mon programme :
Je réalise des acquisitions de 273 valeurs, je les rangent chacune dans une ligne différentes de la même colonne. Ensuite lors de la deuxième acquisition, je passe à la colonne suivante et ainsi de suite. OR mon code bloque à Z car il cherche à incrémenter mais ne peux pas car on doit passer à la colonne AA. Voici mon module correspondant à cette tâche :
Sub Sauvegarde_Valeurs()
Dim ligne, i, j As Integer
Dim date_test As Date
Dim table_valeurs(272, 0) As Double
Dim cell As String
date_test = Now()
ligne = 2
Worksheets("Valeurs").Range(Chr$(Asc(colonne) + 1) & ligne - 1).Value = Format(date_test, "dd/mm/yyyy")
Worksheets("Valeurs").Range(Chr$(Asc(colonne) + 1) & ligne).Value = Format(date_test, "hh:mm:ss")
ligne = 0
'Plancher
For i = 0 To 7
For j = 0 To 7
'Worksheets("Valeurs").Range(Chr$(Asc(colonne) + 1) & ligne).Value = nouveau_TabP_final(i, j)
table_valeurs(ligne, 0) = nouveau_TabP_final(i, j)
ligne = ligne + 1
Next j
Next i
'Gauche
For i = 0 To 12
For j = 0 To 7
'Worksheets("Valeurs").Range(Chr$(Asc(colonne) + 1) & ligne).Value = nouveau_TabG_final(i, j)
table_valeurs(ligne, 0) = nouveau_TabG_final(i, j)
ligne = ligne + 1
Next j
Next i
'Droite
For i = 0 To 12
For j = 0 To 7
'Worksheets("Valeurs").Range(Chr$(Asc(colonne) + 1) & ligne).Value = nouveau_TabD_final(i, j)
table_valeurs(ligne, 0) = nouveau_TabD_final(i, j)
ligne = ligne + 1
Next j
Next i
'ligne = ligne + 1
'Range(Chr$(Asc(colonne) + 1) & ligne).Value = Worksheets("Mesure").Range("D2").Value & "°C"
table_valeurs(ligne, 0) = Worksheets("Mesure").Range("D2").Value
cell = Chr$(Asc(colonne) + 1) & "3" & ":" & Chr$(Asc(colonne) + 1) & "275"
'Worksheets("Valeurs").Range(Chr$(Asc(colonne) + 1) & 3).Value = table_valeurs
Worksheets("Valeurs").Range(cell).Value = table_valeurs
Worksheets("Valeurs").Cells(277, 3) = "=MAX(C3:C64)"
Worksheets("Valeurs").Cells(278, 3) = "=MAX(C65:C170)"
Worksheets("Valeurs").Cells(279, 3) = "=MAX(C171:C272)"
Worksheets("Valeurs").Cells(277, 4) = "=MAX(D364)"
Worksheets("Valeurs").Cells(278, 4) = "=MAX(D65170)"
Worksheets("Valeurs").Cells(279, 4) = "=MAX(D171272)"
Worksheets("Valeurs").Range("C277277").AutoFill Destination:=Worksheets("Valeurs").Range("C277:IV277")
Worksheets("Valeurs").Range("C278278").AutoFill Destination:=Worksheets("Valeurs").Range("C278:IV278")
Worksheets("Valeurs").Range("C279279").AutoFill Destination:=Worksheets("Valeurs").Range("C279:IV279")
colonne = Chr$(Asc(colonne) + 1)
End Sub
Je pense donc qu'il faut changer ma méthode d'incrémentation de mon indice de colonne mais j'ai du mal à voir une autre méthode ... ( je suis débutant )
Comment faire pour que cela ne bloque pas à Z ?
Merci d'avance !
Cordialement, AzoR.