Création d'un tableau simple et problème de boucles

Bonjour,

J'ai créé une liste sur une de mes pages (appelée liste) de mon classeur.
Cette liste comprend un nom parligne (donc toutes les infos sont sur une même colonne, la première ligne étant dédié a l'entête).

Mon but est de lier créer une variable par nom (réussi)
d'écrire le nom de la variable sur la même ligne que le nom afin de voir si mon programme fonctionne et que tous les noms sont bien pris dans une variable.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub LierInfosAvecVariable()   'Déclaration des variables   Dim Cel As Range Dim Compteur As Integer Dim i As Integer Dim MesVariable(50) As String   'Je prends les noms de ma première colonne et je les mets dans une variable   'J'affecte Cel a ma première cellule, c'est a dire A2 'Je sélectionne la feuille ou il y a mes infos 'ici la feuille s'appelle "Liste"   Set Cel = Worksheets("Liste").Range("A2")   'Je crée ma boucle afin de prendre les infos tant 'que la cellule n'est pas vide   Do While Cel.Offset(Compteur) <> "" Compteur = Compteur + 1 Loop   'J'associe chaque nom de ma colonne 1 à une variable   For i = 1 To Compteur MesVariable(i) = Cel.Offset(i) Range("F2" & i) = "Variable" & i 'j'écris dans la colonne F2 Variable+numéro 'Etant débutant, sa me permet de voir si 'tous mes noms ont bien une variable Next i   End Sub

---

Le problème... Variable + numéro est bien écrit.... mais il est écrit plusieurs ligne plus bas... La variable lié a une nom ne s'écrit donc pas sur la même ligne...

Je n'arrive pas à voir ou mon code cloche :calim2:

Bonjour,

avec ceci

Code:

---

1 2 3 4

Range("F2" & i) = "Variable" & i 'j'écris dans la colonne F2 Variable+numéro 'Etant débutant, sa me permet de voir si 'tous mes noms ont bien une variable

---

vous n'ecrivez pas dans F2 mais dans F21 puis F22, F23 ...

Remplacez

Code:

---

Range("F2" & i)

---

par

Code:

---

Range("F" & i+1)

---

Ca devrait aller mieux ;)

juste une remarque je ne vois pas bien a quoi sert

Citation:

---

MesVariable

---

Tu peux faire directement

Code:

---

Range("F" & i) = Cel.Offset(i)

---

De plus cette boucle va s'arreter a la premiere ligne vide et pas a la derniere ligne renseignée :

Code:

---

1 2 3

Do While Cel.Offset(Compteur) <> "" Compteur = Compteur + 1 Loop

---

Pour connaitre la dernière ligne renseignéeTu peux faire

Code:

---

Compteur = Worksheets("Liste").Cells(65536, 1).End(xlUp).Row

---

bonjour

Code:

---

1 2	do while (test logique) loop

---

ca fait moche ^^ et en plus c'est plus long que d'écrire

Code:

---

1 2	while(test logique) wend

---

(et encore en plus c'est un mix du do...loop until() et du while()...wend sans pour autant etre plus efficace)

Bonjour,

Merci pour vos réponses.

@ Access Newbie: Oui sa va mieux comme sa effectivement :D

@ aalex_38: J'ai modifié la partie de code pour inclure toute la colonne A. Le problème c'est que si j'ai un nom en A3, plus rien et un nom en A23, le code crée des variables vides jusque A23....

J'ai modifié un peu du coup:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub LierInfosAvecVariable() 'Déclaration des variables Dim Cel As Range Dim Compteur As Integer Dim i As Integer Dim MesVariable(50) As String 'Je prends les noms de ma première colonne et je les mets dans une variable 'J'affecte Cel a ma première cellule, c'est a dire A2 'Je sélectionne la feuille ou il y a mes infos 'ici la feuille s'appelle "Liste" Set Cel = Worksheets("Liste").Range("A2") 'Nouvelle formule pour passer en revue la colonne A Compteur = Worksheets("Liste").Cells(65536, 1).End(xlUp).Row 'J'associe chaque nom de ma colonne 1 à une variable For i = 2 To Compteur If Cel.Offset(i) <> "" Then MesVariable(i - 1) = Cel.Offset(i) Range("F" & i) = "Variable" & i - 1 'j'écris dans la colonne F2 Variable+numéro 'Etant débutant, sa me permet de voir si 'tous mes noms ont bien une variable End If Next i End Sub

---

Le problème... sa ne marche plus! :roll:
Je comprends pas trop... j'ai juste rajouter si cellule non vide -> instruction.

@ garion28: Oui sa revient au même que while ... wend mais y'a plus d'expression en Do (while/until/...)... loop. Donc je préfère utiliser les expressions qui se rapprochent en syntaxe pour bien les assimiler et par la suite en utiliser d'autres (je m'enbrouille encore avec les boucles... :calim2:).

Essai

Code:

---

Cel.Offset(i).value

---

Rajouter la propriété .value n'a rien changer :cry:

Franchement je vois pas, je pense que sa devrait marcher tel quel en principe.

Bon je viens de modifier un paramètre histoire de comprendre d'avantage...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 2 To Compteur If Cel.Offset(i) <> "" Then MesVariable(i - 1) = Cel.Offset(i) Range("F" & i) = "Variable" & i - 1 'j'écris dans la colonne F2 Variable+numéro 'Etant débutant, sa me permet de voir si 'tous mes noms ont bien une variable Else Range("F" & i) = "Cette case est vide" End If Next i End Sub

---

J'ai écris en A3 un nom
J'ai écris en A8 un nom
Entre les deux, rien....

Résultat si je lance la macro:
J'ai "Cette case est vide" de A3 a A8.... donc il écrit que ma cellule est vide jusqu'a la dernière cellule occupé de la colonne A...
:aie:

Pour moi (et visiblement poura l'aide aussi) il faut deux info a offset, le décalage selon les ligne et selon les colonne

Citation:

---

expression.Offset(RowOffset, ColumnOffset)

---

essaye

Code:

---

Cel.Offset(i,0)

---

après pourquopi utiliser un ofsset et pas directement la bonne cellule?

Code:

---

Worksheets("Liste").Range("A" & i+2)<>""

---

@ Krovax:

Tout d'abord merci pour ta réponse :D

J'avais fait plusieurs tests et quand j'utilise offset et que je souhaite seulement un décalage ligne offset(x,0) = offset (x).

Du coup par abus je ne mets plus ,0 vu que l'effet est le même.

Sinon le offset est plus court a écrire :lol:

J'ai malgré tout effectué les modifications celon tes conseils mais le même problème survient toujours.

J'ai écris en parallèle un autre programme (bien disctinct de celui ci dans le fonctionnement) et il bug aussi... D'après ce que je peux voir, il semblerait qu'imbriquer des For .... Next, avec des If ... End if ou Select case... End select me plante toujours le programme...

Si je mets:

Code:

---

1 2 3 4

For..... If Enf if Next....

---

Le programme confond les actions qu'il doit faire... (ou alors j'ai écris sa comme un plouk! lol)

Si je mets:

Code:

---

1 2 3 4 5 6 7 8

For j Select case Case For i Next i End select Next j

---

Le débogage ne sait plus faire la correspondance entre les Select case et end selecf, les for et les next... bref il ne voit plus les début ou fin de balise comme un ensemble mais comme deux choses qui n'ont rien a voir (et donc il manque soit le début, soit la fin de la balise pour lui...)

Ma question:
Y a t il une règle à savoir lorsque l'on imbrique ce genre de balise?

C'est peut être de ce côté qu'il faut que je cherche pour résoudre pourquoi sa dérape.

EDIT: balise CODE rajouter

La regle fermer les boucle dans lordre inferse ou on les ouvres.
Pour faire cela la meilleur regle faire une belle indentation pour etre sur de ne pas se planter (suand on est sur un forumm tuiliser les balise code ;) )

Cela devrait fonctionner :

Code:

---

1 2 3 4 5 6 7

For j Select case Case For i Next i End select Next j

---