Boucle For ? 1,3,7,10 ??

[Phil]

Lulut le Forum

J'ai un ti soucis, j'avais vu la solution pendant que je parcourais le forum mais je me souviens plus ou ni comment faire ou kel command etait utilisé

Sub tabmulti()

Dim Tablo(1 To 500, 1 To 17) As Variant


Dim i As Integer
Dim z As Integer
Dim celTab As Range
Set celTab = ActiveSheet.Range("B35")
Dim celDaReport As Range
Set celDaReport = ActiveSheet.Range("U35")


For z = 1 To 17 ' la je fais ma boucle pour mon tablo (les colones)
For i = 1 To 500 ' les lignes
Tablo(i, z) = celTab.Offset(i, z)
Next i
Next z

For x = 1 To 17 'mais ici je veut pas toutes les colonnes donc c pas For
For DaReport = 1 To 500 ' k'il me faut heuu ? DO 1,3,7,10 ect... ?
celDaReport.Offset(DaReport, x) = Tablo(DaReport, x)
Next DaReport
Next x

End Sub


Je c plus trop du coup

Merci de votre aide quotidienne ^^

Thx le Forum

 

[le CH'TI160]

salut "Phil"
RE le "FORUM"
for x= 1 to 17 step 3
je pense qu'il s'agit de cette procedure "Step 3"
a verifier
A+++
Jean Marie

 

[Phil]

heuu nop Step je m'en suis deja servis
et ca va faire mon action tous les 3 x -> 1, 4, 7, 10, 13
alors que j'ai besoin de dire leskels j'ai besoin la 1 la 5 la 8 c pas "regulier"

Merci quand meme

Ch'Ti

 

[le CH'TI160]

re "Phil"
je pense donc que dans ta procedure il faut que tu élimine les colonnes non prise
du genre if x <> de 4,6,7 etc then ......
a verifier toujour
A+++
Jean Marie

 

[Zon]

Salut,

On peut l'écrire aussi avec
select case x
case 1, 4, 7, 10, 13
For i = 1 To 500 ' les lignes
Tablo(i, z) = celTab.Offset(i, z)
Next i
end select

Mais on peut écrire en une seule boucle:
Sub tabmulti()
Dim X As Integer
Dim celTab As Range
Dim celDaReport As Range
dim T
T=array(1, 4, 7, 10, 13)
Set celTab = Range("B35:Q535") 'ou mieux peut être range([B35], [Q65536].end(xlup)
Set celDaReport =Range("U35")
for x=0 to ubound(t(x))
celDaReport.cells(1,t(x)).resize(celtab.rows.count)=celtab.columns(t(x)).value
next x
end sub

A+++

 

[myDearFriend]

Bonjour Phil, Jean-Marie, le Forum.

For x = 1 To 17 'mais ici je veut pas toutes les colonnes
Select Case x
Case 1, 3, 7, 10 'ici uniquement les colonnes souhaitées
For DaReport = 1 To 500 ' k'il me faut heuu ? DO 1,3,7,10 ect... ?
celDaReport.Offset(DaReport, x) = Tablo(DaReport, x)
Next DaReport
End Select
Next x

Ca devrait faire l'affaire...

Cordialement,
Didier_mDF

 

[myDearFriend]

Oups,

Désolé Zon, je ne t'avais pas vu....
Un fracture de plus ? non...

Cordialement,
Didier_mDF

 

[Zon]

Re,

Didier avec une c'est assez j'ai assez chaud dans ce couilllon de platre.

 

[@+Thierry]

Bonjour Zon, Didier, Jean Marie(Ch'ti) pour pas confondre avec Jean Marie(Mac) !! et Phil !

Arf , Zon dans le Platre !!! aie aie, un retour de [crochet] qui a mal finit ?

Enfin trève de plaisanterie, je te souhaite un bon et prompt rétablissement.

@+Thierry

 

[Zon]

Re,

Lol Thierry, non c'est une chute en faisant du VBA Powerpoint...
Merci en tout cas c'est l'histoire d'1 mois.

A+++

 

[Phil]

Juste pour vous remercier tous pour vos reponses...
j'ai un peu tardé mais j'avais pris 4 jours de vacances parceque j'avais la tete qui commancait a fumer depuis peu ^^
Merci pour votre aide qui j'espere va m'aider a pas remettre mon cerveau en eruption ^^

Thx le forum