Discussion :

[Arzawe]

Bonjour,
Je pilote un fichier Excel depuis vba Access, donc je ne sais pas si je suis au bon endroit, dans la mesure où c'est un peu un mélange des deux.

Je cherche dans une partie d'une colonne à effacer le contenu de ma cellule Bi si elle est égale à la cellule Bi-1
J'ai rédigé ce code, mais lors de l'exécution, l'appli fait comme si elle ne la voyait pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
i = 7
Do While i < 7 + Lign1 + 1
For i = 7 To 7 + Lign1
    If range("B" & i) = range("B" & i - 1) Then
        range("B" & i).ClearContents
        MsgBox "coucou"
    End If
Next
i = i + 1
Loop

Je ne comprends pas : ça me semblait bien sur le moment...

Merci d'avance de votre aide.

Arzawe

[Gorfael]

salut Arzawe et le forum

Si je comprends bien, ton code est sur Access.
Si c'est ça, ça me semble normal : Visual Basic for Application
VBA Access <> VBA Excel et donc il faut lui dire que cette partie concerne Excel (mais je ne sais pas comment )

Code :

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

1
2
3
4
5
6
7
i = 7
Do While i < 7 + Lign1 + 1
For i = 7 To 7 + Lign1
........
Next
i = i + 1
Loop

Je ne comprends pas ce que tu veux faire avec ces boucles imbriquée utilisant la même variable quand on sort de la goucke For Next, i=7 + Lign1 + 1 =>instrction i=i+1 => à ce moment, i=7 + Lign1 + 2
Même, en damettant que tu ais :
Do While i < 7 + Lign1 + 500
For i = 7 To 7 + Lign1
Quand tu recommences la boucle while, la première instruction que rencontre le programme est : For i = 7 To 7 + Lign1
en français ; met la variable i à la valeur 7 et compare-la à la valeur (7+Ligne1) si elle st inférieure ou égale, passe à l'instruction suivante, sinon (si elle est supérieure) passe à l'instruction qui est après next.
Pas près de finir ta boucle

A+

[Arzawe]

En fait c'est très simple : j'arrive à piloter grosso modo Excel depuis le vba access. Mais là je veux juste lui dire que si ma cellule est égale à la précédente, il en efface le contenu. Alors peut-être que oui, j'ai fait trops de boucles, mais je ne sais pas comment faire. Actuellement il fait comme s'il en voyait rien.

Arzawe

[Arzawe]

Bon j'ai juste enlevé la boucle "do while" et ça marche.

Code :

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

1
2
3
4
5
6
 
For i = 7 To 7 + Lign1
    If xlSheet.Cells(i, 2) = xlSheet.Cells(i - 1, 2) Then
        xlSheet.Cells(i, 2).ClearContents
    End If
Next

Je ne comprends vraiment pas pourquoi j'ai cherché à me prendre la tête comme ça : c'était vraiment tout bête

Mais bon, c'est tout moi, ça : chercher un truc bien compliqué alors que la solution est sous mon nez