Boucle For

[Calvus]

Bonjour le forum,

Je viens d'écrire ce petit bout de code.

Range("C20").Value = "Société"
i = 1
For i = 3 To 7
Cells(20, i).Offset(0, 1).Value = "Nom"
Next i

Evidemment ça inscrit Nom dans les cellules D20 à H20, ce que je voulais.

Mais y a t'il un moyen, via cette boucle, d'affecter différentes valeurs ?

E20 Prénom
F20 Tel
Etc...

Est ce possible ? Une liste stockée quelque part...?

Merci

 

[CPk]

Re : Boucle For

Bonjour oui c'est possible avec plusieurs méthode (array, liste dans une feuille, choose...). Personnellement je ne sais pas laquelle vous conseiller vu que ce sera en fonction du fichier

A titre d'exemple, celle-ci est fonctionnelle

Sub test()
For i = 1 To 3
a = Array("Je", "tu", "il")
Feuil1.Cells(1, i) = a(i - 1)
Next i
End Sub

 

[DoubleZero]

Re : Boucle For

Bonjour, Calvus , CPk, le Forum,

Un autre exemple...

Option Explicit
Sub Zéro_boucle()
    Range("plage").Copy ' liste des valeurs créer puis nommer
    Range("c20").PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Application.CutCopyMode = False
End Sub

A bientôt

 

[Calvus]

Re : Boucle For

Re, Cpk, 00

Merci à tous deux.

Cpk, ton code fonctionne, mais dès que je fais des déclarations, fini. Et c'est pas forcément mon fort les déclarations ! Dans exce l

Hein 00 ?

00, ça fonctionne bien, même avec ton option explicit ! M'énerve celui là.

J'aurais tout de même une petite préférence pour le code de Cpk, si tu ne m'en tiens pas rigueur

Merci

 

[CPk]

Re : Boucle For

Euh...Moi aussi j'en fais une, chaque année ! De déclaration...

i doit être déclaré selon sa valeur maximum en byte,integer ou long. exemple : dim i as byte
a doit être déclaré en tableau. exemple : dim a()

 

[Si...]

Re : Boucle For

salut

avec un dolicrâne pour (désolé)

Option Base 1
Sub Tablo()
  Dim i As Byte
  For i = 1 To 9 'nombre de cellules
    Cells(20, i) = Array("Société", "Nom", "Prénom", "Fonction", "Adresse", "Code postal", "Ville", "Fixe", "Mobile")(i)
  Next
End Sub

et un de plus pour Calvus
(i), avec l'ajout Option Base 1 pour commencer à 1
(i-1) sans cette option car l'indice du premier élément d'un tableau est, par défaut, 0
Un Array est un tableau doncavec l'aide (CPk tu saura comment les déclarer

Calvus, ta demande me fait penser à une autre que j'avais suivi ici. M'y étant intéressé, je la complèterai sous peu.Tu pourras donc y jeter un coup d'œil le cas échéant.

 

[DoubleZero]

Re : Boucle For

Re-bonjour, bonjour, Si,

...avec un dolicrâne pour (désolé)...

Le dolicrâne n'est pas assez puissant ! Vois dans quel état je suis...

​

A bientôt

 

[laetitia90]

Re : Boucle For

bonjour toutes & tous

ou encore

Sub a()
Dim t
t = Array("Société", "Nom", "Prénom", "Fonction", "Adresse", "Code postal", "Ville", "Fixe", "Mobile")
[A20:I20] = t
End Sub

en simplifiant

Sub b()
[A20:I20] = Array("Société", "Nom", "Prénom", "Fonction", "Adresse", "Code postal", "Ville", "Fixe", "Mobile")
End Sub

 

[CPk]

Re : Boucle For

Bonjour, il est mieux que son homologue ?

 

[DoubleZero]

Re : Boucle For

Bonjour, le Fil , le Forum,

Bonjour, il est mieux que son homologue ?

Ah, mais ça m'a tout l'air d'être un médicament de contrebande ... : il manque le ^ sur le a !

A bientôt

 

[CPk]

Re : Boucle For

je t'avoue que son nom + sa forme en suppositoire m'ont laissé dubitatif.

 

[Calvus]

Re : Boucle For

Bonsoir à tous,

Merci pour vos solutions.
Pour ma part, c'est de vitamines et de caféine dont j'ai besoin, pour tenir le coup tellement d'heures à venir encore sont nécessaires pour comprendre tous ces codes alambiqués !

Et v'la que chacun y va de sa petite couche ! Et que j'te rajoute un nouveau code, une nouvelle façon de faire !
Vous voulez m'aider ou me perdre ???

Cpk, cool pour les déclarations. J'avais déjà vu, mais oublié. Parce qu'il y a ça aussi. Des fois on galère à s'arracher les cheveux qu'on n'a plus, puis on pige des trucs, mais en plus il faut s'en rappeler !!

Si, tu as été prolixe sur mes fils aujourd'hui. Je te remercie, mais je vais quand même chercher qui t'a engagé pour pourrir mes nuits !
Des chances que ce soit 00, car ça fait déjà un moment qu'elle me harcèle !
Et v'la Laetitia qui s'en mêle, avec des trucs que même pas Krosoft y savaient que ça existait !

Bonne soirée à tous.

PS : Double Zéro, t'avais pas ce pyjama là hier soir.....

 

[DoubleZero]

Re : Boucle For

Re-bonjour ,

@ CPk ,

je t'avoue que son nom + sa forme en suppositoire m'ont laissé dubitatif.

J'avions même pas vu qu'il s'agissait de suppositoires !

@ Calvus ,

...Pour ma part, c'est de vitamines et de caféine dont j'ai besoin...

Pour la mienne , VALIUM, TRANXENE et PROZAC délicatement fondus dans une tasse de passiflore.

Double Zéro, t'avais pas ce pyjama là hier soir.....

Oui, M'sieur : pour la prise de photo, j'ai mis mon pyjama du dimanche ! L'est pas b ?

Bon dodo à toutes et à tous ...

A bientôt,

 

[CPk]

Re : Boucle For

Vous voulez m'aider ou me perdre ???

Les deux ! On se sert de l'un pour tendre vers l'autre et inversement !

mais je vais quand même chercher qui t'a engagé pour pourrir mes nuits !

J'te donne un indice --> 00

 

[CPk]

Re : Boucle For

J'avions même pas vu qu'il s'agissait de suppositoires !

En théorie on les ressent plus qu'on ne les vois