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 Recuperer la ligne paire

Recuperer la ligne paire

6 réponses
Avatar
Michel
Bonjour tout le monde,

J'ai essaye :

If Application.WorksheetFunction.Mod(I, 2) = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

mais .Mod n'est pas reconnu... :o(

Y a t-il une bonne ame pour m'aiguiller ?

D'avance merci,

@+

Michel.
Signaler un problème avec ce contenu

6 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
Daniel
Bonjour.
Essaie :
If Int(I / 2) = I / 2 Then
wer = "paire"
Else
wer = "impaire"
End If
Cordialement.
Daniel
"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

J'ai essaye :

If Application.WorksheetFunction.Mod(I, 2) = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

mais .Mod n'est pas reconnu... :o(

Y a t-il une bonne ame pour m'aiguiller ?

D'avance merci,

@+

Michel.




Avatar
Michel
Salut,

Super Top ca marche impeccable,

Un grand merci a toi,

Est-ce que le code employe n'etait pas bon ?

Je me rappel une avoir employe un code qui employait directement le code
excel et non pas celui de VBA car c'etait plus simple, Aurais-tu une idee ?

Mais bon mon probleme est resolu grace a toi... :o)

@+

Michel.

"Daniel" a écrit dans le message de news:

Bonjour.
Essaie :
If Int(I / 2) = I / 2 Then
wer = "paire"
Else
wer = "impaire"
End If
Cordialement.
Daniel
"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

J'ai essaye :

If Application.WorksheetFunction.Mod(I, 2) = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

mais .Mod n'est pas reconnu... :o(

Y a t-il une bonne ame pour m'aiguiller ?

D'avance merci,

@+

Michel.








Avatar
Nicolas B.
Bonsoir,

La syntaxe avec Mod est un peu particulière en VBA :

If I mod 2 Then
wer = "impaire"
else
wer = "paire"
end if


A+
Nicolas B.

Bonjour tout le monde,

J'ai essaye :

If Application.WorksheetFunction.Mod(I, 2) = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

mais .Mod n'est pas reconnu... :o(

Y a t-il une bonne ame pour m'aiguiller ?

D'avance merci,

@+

Michel.




Avatar
Michel
Salut,

Merci nicolas

ca marche Tip-Top...

Je ne pensais pas que c'etait si simple...

@+

Michel.

"Nicolas B." a écrit dans le message
de news: OlChN$
Bonsoir,

La syntaxe avec Mod est un peu particulière en VBA :

If I mod 2 Then
wer = "impaire"
else
wer = "paire"
end if


A+
Nicolas B.

Bonjour tout le monde,

J'ai essaye :

If Application.WorksheetFunction.Mod(I, 2) = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

mais .Mod n'est pas reconnu... :o(

Y a t-il une bonne ame pour m'aiguiller ?

D'avance merci,

@+

Michel.





Avatar
AV
Je me rappel une avoir employe un code qui employait directement le code excel
et non pas celui de VBA car c'etait plus simple,


D'une façon générale, si tu veux (sans échec) utiliser les fonctions de feuille
de calcul, passe par la méthode Evaluate :

If Evaluate("Mod(" & I & ", 2)") = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

AV

Avatar
Michel
Salut,

Un grand merci a toi AV, toujours ou il faut....

@+

Michel.

"AV" a écrit dans le message de news:

Je me rappel une avoir employe un code qui employait directement le code
excel et non pas celui de VBA car c'etait plus simple,


D'une façon générale, si tu veux (sans échec) utiliser les fonctions de
feuille de calcul, passe par la méthode Evaluate :

If Evaluate("Mod(" & I & ", 2)") = 0 Then
wer = "paire"
Else
wer = "impaire"
End If

AV