Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro 97

Macro 97

4 réponses
Avatar
Érico
Bonjour,

J'ai un bug avec la version 97 pour la 2e ligne, pourquoi?

Merci de votre aide.


For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i


Érico
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Érico
je l'avais créer en version 2002 et il bogue en version 97.

"Érico" a écrit dans le message de
news:Opiq$
Bonjour,

J'ai un bug avec la version 97 pour la 2e ligne, pourquoi?

Merci de votre aide.


For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i


Érico




Avatar
Michel Gaboly
Bonsoir,

Il me semble que cela me rappelle quelque chose, mais le souvenir est
vague. Peux-tu nous en dire plus ?

Quel message as-tu ?

Se produit-il immédiatement avec i = 14 ?

Quel est le contenu de la cellule Range("G" & i) lors du plantage ?

je l'avais créer en version 2002 et il bogue en version 97.

"Érico" a écrit dans le message de
news:Opiq$

Bonjour,

J'ai un bug avec la version 97 pour la 2e ligne, pourquoi?

Merci de votre aide.


For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i


Érico









--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
MichDenis
Bonjour Érico,

La version Excel 97 n'accepte pas cela :

If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R"

De mémoire, cette version n'aime pas lorsque tu "mélanges" un test impliquant en même temps une valeur de type "String"
et de type "numérique.

Utilise plutôt quelque chose comme ceci :

If Range("G" & i) = " " Or Range("G" & i) = "R" then
if Range("G" & i) = 0 then
'..../....
end if
end if


Salutations!



"Érico" a écrit dans le message de news: %23F%23B$
je l'avais créer en version 2002 et il bogue en version 97.

"Érico" a écrit dans le message de
news:Opiq$
Bonjour,

J'ai un bug avec la version 97 pour la 2e ligne, pourquoi?

Merci de votre aide.


For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i


Érico




Avatar
AV
J'ai un bug avec la version 97 pour la 2e ligne, pourquoi?



Met le 0 entre guillemets ("0") dans le test logique et tout va rentrer dans
l'ordre

AV