Boucle avec changement de colonne

[Hugues]

Bonsoir Le Forum,

Je souhaiterais faire une boucle afin de totaliser des résultats colonne par colonne.
Je souhaiterais donc connaitre le code qui me fera changer de colonne.

Merci par avance,

Hugues

 

[Charly2]

Bonsoir Hugues

Une solution possible :

Sub Addition()
'
Dim col As Long
Dim Total
'
  col = 1
  Do
    Cells(65536, col).End(xlUp).Offset(1, 0) = _
        WorksheetFunction.Sum(Cells(1, _
        col).Resize(Cells(1, col).End(xlDown).Row))
    col = col + 1
  Loop Until Cells(65536, col).End(xlUp).Row = 1
End Sub

A+

 

[Hugues]

Bonjour Charly,

Merci pour ton aide ; je vais appliquer

 

[fradouan]

bonjour hugues,charly et le forum
j'ai le mm probleme mais pas avec la somme
j'aimerai remplir les colonnes d'une mm ligne par des donnees d'une autres feuille on utilisant cette methode:
Sheets('RECAPFACT').Range('k' & i) = Sheets('FACTURE').Range('A28').Value
Sheets('RECAPFACT').Range('l' & i) = Sheets('FACTURE').Range('H28').Value
Sheets('RECAPFACT').Range('m' & i) = Sheets('FACTURE').Range('A29').Value
Sheets('RECAPFACT').Range('n' & i) = Sheets('FACTURE').Range('H29').Value
Sheets('RECAPFACT').Range('o' & i) = Sheets('FACTURE').Range('A30').Value
Sheets('RECAPFACT').Range('p' & i) = Sheets('FACTURE').Range('H30').Value
Sheets('RECAPFACT').Range('q' & i) = Sheets('FACTURE').Range('A31').Value
Sheets('RECAPFACT').Range('r' & i) = Sheets('FACTURE').Range('H31').Value
...( le i est deja defini)
ca prend du temps et de l'espace j'aimerais la transformer en boucle
merci pour votre aide
amicalement
radouan

 

[Charly2]

Bonsoir Radouan, bonsoir à toutes et à tous

Pour la boucle que tu souhaites effectuer, voici une possiblité :

With Sheets('RECAPFACT')
  For j = 0 To 7
    .Cells(i, j + 11) = Sheets('FACTURE').Cells(28 + j \\ 2, (j Mod 2) * 7 + 1)
  Next j
End With

Le code ne sera pas plus rapide que celui que tu as écrit, mais il sera plus concis

A+

PS : l'antislash (ou backslash en anglais) sert à effectuer une division entière (ou obtenir le quotient d'une division euclidienne).

 

[fradouan]

bonsoir toutes et tous
merci charly pour ta reponse
ecrire 5 lignes c'est mieux que d'ecrire une vingtaine
merci

amicalement
radouan

 

[fradouan]

bonsoir à toutes et à tous
j'ai bon esseyé avec ton code charly ca n'a rien donné je joint un exemple ca sera plus explicite
amicalement
radouan [file name=NECESSITEBOUCLE.zip size=12961]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NECESSITEBOUCLE.zip[/file]

 

[Charly2]

Re Radouan

J'ai adapté le code proposé à ton exemple. J'ai aussi un peu modifié le code car dans la mesure où le bouton 'Enregistrer' se trouve dans la feuille 'FACTURE', ce n'est pas utile de la nommer

Tiens nous au courant.

A+
[file name=Radouan_BOUCLE.zip size=12798]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Radouan_BOUCLE.zip[/file]

 

[fradouan]

re Charly
vraiment parfait je te remercie infiniment
ca marche bien et c'est plus rapide
amicalement
radouan

 

[Charly2]

Re radouan

Ta réponse me rend très heureux d'avoir pu te rendre service

A+

 

[fradouan]

re
je sais pas si c'est une coincidance mais a chaque fois que j'ai un probleme tu interviens pour me le resoudre t'es vraiment sympa un grand merci a toi et au forum en entier merci
et bonne soiree a toutes et a tous
amicalement
radouan