Discussion :

[backx3]

Bonjour bonjour !

Je pense que le titre est assez explicite, j'aimerais savoir comment faire un 'ou' dans un while..
Google ne m'aide pas des masses, il ne prend pas en compte le "ou" dans la recherche

En langage C, c'est "||" de mémoire, et je sais pas le faire en VBA

Mon code :

Code :

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

While valeur <> Cells(j, D) 'ou' Cells(j,E) 'ou' Cells(j,B)

Merci d'avance pour vos réponses !

[Invité]

bonjour,

Code :

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

While valeur <> Cells(j, D) Or valeur <>  Cells(j,E) or  valeur <>  Cells(j,B)

[pasdechances]

bonjour,

Mon code :

Code :

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

While valeur <> Cells(j, D) 'ou' Cells(j,E) 'ou' Cells(j,B)

Merci d'avance pour vos réponses !

Alors,
1 tu est bien parti,
2 je suis pas sur que sa puisse marcher ainsi,
3 dans les solutions que je te propose je serai sur du fonctionnement que d'une seule xD.
code pas sur que sa marche mais sa ressemble a ton besoin :

Code :

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

while valeur <> Cells(j, D) or valeur <> Cells(j, E) or valeur <> Cells(j, B)

en revanche, je te conseille de passer par (sa marche):

Code :

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

1
2
3
4
5
6
7
dim x as integer
x = 0
while x < 1
    if valeur <> Cells(j, D) or valeur <> Cells(j, E) or valeur <> Cells(j, B) then
        x = 2
    end if
wend

ou de façon moins compacte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim x as integer
x = 0
while x < 1
    if valeur <> Cells(j, D) then
        x = 2
    else if valeur <> Cells(j, E) then
        x = 2
    else if valeur <> Cells(j, B) then
        x = 2
    end if
wend

coucou rdurupt, j'ai été trop lent =)

[Invité]

coucou rdurupt, j'ai été trop lent =)

normale tu en fait un roman

[backx3]

Merci pour vos réponses, il ne fallait pas chercher bien loin pour le "or" ^^

pasdechances (sympa le pseudo ^^), je ne vois pas à quoi correspond ton x.. Pourquoi est-il égal à 2 ?

Mon code entier, consiste à faire une comparaison entre deux fichiers. Pour faire ça, mon frère m'a aidé et m'a dis de faire un "tableau" avec en colonne 1, le nombre de ligne du premier fichier et en colonne 2, le nombre de lignes du 2eme fichier. Et faire correspondre les lignes si les valeurs sont les mêmes. (C'est un tableau fictif).

Je sais pas si c'est assez clair, mais du coup mon début de code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        '----- COMPARAISON -----'
 
    'Pour chaque ligne du Gantt_B, on regarde si il y a une correspondance dans le planning EQM
    Workbooks("Gantt_B_trié.xlsm").Activate
 
    'Détermine la dernière ligne de la colonne A
    LigneMax = Sheets("Jalons").Range("A65536").End(xlUp).Row
 
For i = 1 To LigneMax
    valeur = Cells(i, D)
    valeur1 = Cells(i, E)
    Valeur2 = Cells(i, B)
    j = 1
    While valeur <> Cells(j, D)

C'est pour ça que je ne sais pas à quoi correspond ton "x" ^^

[pasdechances]

C'est pour ça que je ne sais pas à quoi correspond ton "x" ^^

=D comme en maths !
x correspond a une variable lambda, elle est juste la pour dire "quand est-ce qu'on arrête le while", après tu peut le remplacer par se que tu veu c’était un exemple de se que tu pouvais faire =)

[Invité]

je ne vois pas de comparaison entre le fichier1 et e fichier2!
tu compte tes cellule de 1 à max de "Jalons" et tu ne travail que sur les cellule activent de "Gantt_B_trié.xlsm"

Code :

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

1
2
3
4
5
6
For i = 1 To LigneMax 'fait référence à "Jalons"
    valeur = Cells(i, D)  'fait référence à Gantt_B_trié.xlsm"
    valeur1 = Cells(i, E)
    Valeur2 = Cells(i, B)
    j = 1
    While valeur <> Cells(j, D)

[backx3]

Ah oui donc le x ne sert qu'à arrêter le while, je vois je vois

Pour la comparaison, c'est normal, c'est pas fini

J'ai presque rien fait de ce que je veux faire, je compte les cellules pour savoir combien il y en a à comparer, mais ensuite je vais devoir les comparer à celles d'un autre fichier