Boucle avec changement de colonne

Hugues · 14 Janvier 2006

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 · 14 Janvier 2006

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 · 14 Janvier 2006

Bonjour Charly,

Merci pour ton aide ; je vais appliquer

fradouan · 14 Janvier 2006

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 · 14 Janvier 2006

Bonsoir Radouan, bonsoir à toutes et à tous

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

Code:

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 · 14 Janvier 2006

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

amicalement
radouan

fradouan · 14 Janvier 2006

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 · 14 Janvier 2006

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 · 14 Janvier 2006

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

Charly2 · 14 Janvier 2006

Re radouan

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

A+

fradouan · 14 Janvier 2006

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

Boucle avec changement de colonne

Hugues

XLDnaute Impliqué

Charly2

Nous a quittés en 2006

Hugues

XLDnaute Impliqué

fradouan

XLDnaute Junior

Charly2

Nous a quittés en 2006

fradouan

XLDnaute Junior

fradouan

XLDnaute Junior

Pièces jointes

Charly2

Nous a quittés en 2006

Pièces jointes

fradouan

XLDnaute Junior

Charly2

Nous a quittés en 2006

fradouan

XLDnaute Junior

Discussions similaires