thomas4530
XLDnaute Junior
Bonjour,
Je viens d'écrire la partie de code ci-dessous.
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 3 To 14
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Excel travaille de la colonne 3 à la colonne 14 - de la ligne 45 à 63.
Je souhaiterais qu'il réalise le même processus sur les colonnes 16 --> 27, 29 --> 40, 42 --> 53, 55 --> 66. Autrement écrit, je veux que l'action ne se réalise pas sur les colonnes 15 - 28 - 41 - 54
Je pourrais évidemment à chaque fois remettre le code en dessous et obtenir les codes
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 16 To 27
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 29 To 40
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 42 To 53
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 55 To 66
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Ma question est (vous l'aurez compris), puis-je adapter mon premier code pour que l'action ne se réalise que sur les colonnes que je souhaite prendre en considération ?
Un grand merci à vous,
Thomas
Je viens d'écrire la partie de code ci-dessous.
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 3 To 14
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Excel travaille de la colonne 3 à la colonne 14 - de la ligne 45 à 63.
Je souhaiterais qu'il réalise le même processus sur les colonnes 16 --> 27, 29 --> 40, 42 --> 53, 55 --> 66. Autrement écrit, je veux que l'action ne se réalise pas sur les colonnes 15 - 28 - 41 - 54
Je pourrais évidemment à chaque fois remettre le code en dessous et obtenir les codes
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 16 To 27
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 29 To 40
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 42 To 53
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Dim deb As Integer, fin As Integer, k As Integer, J As Integer, truc As String
For i = 55 To 66
deb = 45
fin = 163
For k = 4 To 40
For J = deb To fin Step 41
truc = truc & Cells(J, i)
Next J
Cells(k, i) = truc
deb = deb + 1
fin = fin + 1
truc = ""
Next k
Next i
Ma question est (vous l'aurez compris), puis-je adapter mon premier code pour que l'action ne se réalise que sur les colonnes que je souhaite prendre en considération ?
Un grand merci à vous,
Thomas