Une histoire de boucle

[thomasmbai]

Bonjour,

J'essaye de faire une boucle grâce à for.

For i = nb_lignes To 2
j = i - 1
    If IsEmpty(Cells(i, 21)) And Cells(i, 1) & Cells(i, 2) & Cells(i, 24) Like Cells(j, 1) & Cells(j, 2) & Cells(j, 24) Then
        Cells(j, 23) = Cells(i, 23)
    Else
    End If

Next

Comme vous le voyez je pars de la dernière ligne et je souhaite remonter. Mais cela ne fonctionne pas. Comment se fait-ce ? Est une caractéristique des boucles for ?

 

[Grand Chaman Excel]

Re : Une histoire de boucle

Bonjour,
Pour faire une boucle en "reculant", il faut écrire ceci pour indiquer de faire un bond de -1 à chaque fois:

For i = nb_lignes To 2 Step -1

A+

 

[Dull]

Re : Une histoire de boucle

Salut thomasmbai, le Forum

...je pars de la dernière ligne...

A ce moment là tu devrais commencer par le bas et remonter pas a pas

Remplacer

For i = nb_lignes to 2

par

For i = nb_lignes To 2 Step - 1

pas testé mais à essayer🙂

ensuite

If IsEmpty(Cells(i, 21)) And Cells(i, 1) & Cells(i, 2) & Cells(i, 24) Like Cells(j, 1) & Cells(j, 2) & Cells(j, 24)

pour ma part cela ne veux pas dire grand chose le "&"n'a pas sa place ici

Peux tu dire en langage compréhensible ce que tu souhaite
exemple:
Si la cellule (i, 21) est vide et la cellule (i, 1) ressemble à la cellule (j, 2)...

EDITION: Salut GCE 🙂 Désolé pas rafraichit

Bonne Soirée

 

[thomasmbai]

Re : Une histoire de boucle

Bonsoir,


Merci pour vos réponses. En fait, j'utilise ici le & pour dire si(concatener(i 1, i 2, i 24)=concatener(j 1, j 2, j24);valeur si vrai...)

J'ai cru voir sur des forums que le concatener en visual basic s'écrivait ainsi. Je l'ai essayé dans un autre sub cet apres midi et cela a fonctionné. Cependant s'il existe une autre méthode, cela m'interesse fortement.