faire une boucle

[noon]

bonjours a tous

comment une faire une boucle simple existe t il une fonction
ou faut t il le faire vba
et dans tous les cas comment faire???????

merci

 

[herve]

salut

ci dessous le principe de la boucle:

If ta condition Then
ce que tu veux si condition réalisée
else' (facultatif)
ce que tu veux si condition non réalisée
End If

si tu disais exactement ce que tu cherches, on pourrait peut etre t'aider davantage...

@+
herve

 

[noon]

SALUT HERVE
voila plus d explication sur la boucle que je veut creer


en "A1" je mets la lettre "M"
en "B1" je mets la lettre "A"
en "C1" je mets la lettre "N"

et je continue cette suite avec des alternance de lettre sur 40 cellules

et je voudrais que cette suite se continue sur de la cellule
"D1" a "D40" puis ensuite continuer cette suite
sur "G1" a " G45"
etc....

voila mon probleme comment faire cette boucle ???

 

[noon]

SALUT HERVE
voila plus d explication sur la boucle que je veut creer


en "A1" je mets la lettre "M"
en "B1" je mets la lettre "A"
en "C1" je mets la lettre "N"

et je continue cette suite avec des alternance de lettre sur 40 cellules

et je voudrais que cette suite se continue sur de la cellule
"D1" a "D40" puis ensuite continuer cette suite
sur "G1" a " G45"
etc....

voila mon probleme comment faire cette boucle ???

 

[coyote]

Pas de logique dans ta suite (enfin je l'ai mal compris ou tu l'as mal exprimé)

40 cellules déjà : pas divisible par 3

Puis tu passes d'abord de colonne en colonne A1 B1 C1
Puis de lignes en lignes D1 à D40 et puis G1 à G45 tiens c'est ligne 45 maintenant et colonne E et F ?????

 

[coyote]

Si suite

A1 à A45 faire une suite de lettre A1="M", A2="A", A3="N"

Voici comment l'obtenir dans une colonne

Insérer un module en VBA avec les instructions suivantes :

Sub MAN()

Dim xcol As Integer

xcol = ActiveCell.Column

For I = 1 To 45 Step 3
Cells(I, xcol).Offset(0, 0).Value = "M"
Cells(I, xcol).Offset(1, 0).Value = "A"
Cells(I, xcol).Offset(2, 0).Value = "N"
Next I

End Sub


Puis dans se placer dans une cellule de la colonne à traîter

Puis ALT+F8

et executer la macro MAN

 

[coyote]

***Mail de Noon***
salut coyote
excuse moi de te deranger ............mon idée de boucle est pour faire ma ligne de quart

voila ma ligne se deroule sur 5 semaines et je voudrais la poursuivre sur l année
je te joint don ma ligne de quart si tu as une idée cela m interesse enormement

ps sur ma ligne les "M" sont pour les matin les "A" pour apres midi les "N" pour nuit et le "R" pour repos

merci encore pour ton aide

***************

OK donc voici son fichier avec ma réponse en Feuil2 du fichier joint

ATTENTION il s'agit d'un fichier compressé avec WINRAR (je n'ai pas Winzip sur ce PC)

Donc si pb d'ouverture, renommer fichier boucle.zip en boucle.rar avant décompression

 

[coyote]

Hé Noon..... pas le droit de toucher au PC le Dimanche

Donc précédemment une solution un peu baclée

En voici un nouvelle (fichier joint).... instructions en Feuil3

*******

ATTENTION il s'agit d'un fichier compressé avec WINRAR (je n'ai pas Winzip sur ce PC)

Donc si pb d'ouverture, renommer fichier boucle.zip en boucle.rar avant décompression

 

[noon]

salut coyote

je m incline c est du tres grand art
deja pour moi je trouve deja que ta premiere version etait tres bien
mais la maintenant c est exactement ce que je voulais

merci et encore merci