Discussion :

[BOU59000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Access Newbie]

Bonjour,

avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F2" & i)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F" & i+1)

Ca devrait aller mieux

[aalex_38]

juste une remarque je ne vois pas bien a quoi sert

MesVariable

Tu peux faire directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[garion28]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
do while (test logique)
loop

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[BOU59000]

Bonjour,

Merci pour vos réponses.

@ Access Newbie: Oui sa va mieux comme sa effectivement

@ 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!
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... ).

[aalex_38]

Essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cel.Offset(i).value

[BOU59000]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...