Incrémentation indice de colonne bloqué à Z

AzoR · 15 Octobre 2015

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 :

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(D3😀64)"
Worksheets("Valeurs").Cells(278, 4) = "=MAX(D65😀170)"
Worksheets("Valeurs").Cells(279, 4) = "=MAX(D171😀272)"
Worksheets("Valeurs").Range("C277😀277").AutoFill Destination:=Worksheets("Valeurs").Range("C277:IV277")
Worksheets("Valeurs").Range("C278😀278").AutoFill Destination:=Worksheets("Valeurs").Range("C278:IV278")
Worksheets("Valeurs").Range("C279😀279").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.

pierrejean · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Bonjour Azor

A tester:
Remplacer:

Code:

.Range(Chr$(Asc(colonne) + 1) & ligne - 1).Value

par

Code:

.Cells(colonne + 1) , ligne - 1).Value

Pierrot93 · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Bonjour,

utilise peut être un "cells" au lieu de "range", les arguments colonne et ligne étant numériques...

bonne journée
@+

Edition : bonjour PierreJean🙂

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Ah oui et bien sûr je précise que dans mon programme principal, j'initialise : colonne = "B" étant donné que je dois commencer à la colonne C.

Cordialement, AzoR.

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Bonjour Pierrot,

Encore une fois merci de ta réponse sur mon U'nième post,

Oui je crois y avoir penser au début, mais comment faire avec ces lignes là du coup :

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

Merci d'avance,

Cordialement, AzoR.

pierrejean · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Re

Dans ce cas initialise colonne à 2

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

comme ça :

cell = Range(Cells(3,colonne),Cells(275,colonne)) ?

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Bonjour pierrejean,

Oui oui merci !

Cordialement, AzoR.

PS : je test et je reviens vers vous !

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

erreur 1004 sur ma ligne :

Worksheets("Valeurs").Cells(ligne - 1, colonne).Value = Format(date_test, "dd/mm/yyyy")

Comment puis-je l'écrire ?

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

ah non c'est bon par contre maintenant j'ai une erreur d'incompatibilité de type sur ma ligne : cell = Range(Cells(3, colonne), Cells(275, colonne))

Dranreb · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Bonjour.

Vous pourriez aussi utiliser la méthode Resize. Personnellement je la trouve très pratique. Votre procédure pourrait se terminer par :

VB:

With Worksheets("Valeurs")
   .Cells(3, Colonne).Resize(272).Value = table_valeurs
   .Cells(277, Colonne).FormulaR1C1 = "=MAX(R3C:R66C)"
   .Cells(278, Colonne).FormulaR1C1 = "=MAX(R67C:R170C)"
   .Cells(279, Colonne).FormulaR1C1 = "=MAX(R171C:R274C)"
   End With

Il vaudrait peut être mieux ne pas typer en Double le tableau de sortie. Même si ça lui plait quand même, Excel convertit tout en Variant.

Edit : Salut PierreJean.

pierrejean · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Re
tester:
set cell = Range(Cells(3, colonne), Cells(275, colonne))

Edit : salut Dranreb

AzoR · 15 Octobre 2015

Re : Incrémentation indice de colonne bloqué à Z

Bonjour Dranreb,

Ton option du "Resize" fonctionne à merveille !!!

Merci beaucoup et bonne journée à toi et à tous d'ailleurs !

Cordialement, AzoR.

Incrémentation indice de colonne bloqué à Z

AzoR

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

AzoR

XLDnaute Occasionnel

AzoR

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

AzoR

XLDnaute Occasionnel

AzoR

XLDnaute Occasionnel

AzoR

XLDnaute Occasionnel

AzoR

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

AzoR

XLDnaute Occasionnel

Discussions similaires

Incrémentation indice de colonne bloqué à Z

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency