• Initiateur de la discussion Initiateur de la discussion dmact
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dmact

XLDnaute Nouveau
Bonjour à tous.

je viens de m'abonner à GS1. Pour automatiser la création de code, je dois extraire des nombres paire d'une colonne de nombre, idem pour ces pauvres impaires, les additionner etc...

si vous connaissez une formule pour extraire des nombres paires ou impaires.

Merci de votre aide!

Cordialement

Didier
 
Re : codes à barre

hello

idée simple en décomposant la solution :
- créer une colonne B pour "extraire" les pairs avec B1= SI (EST.PAIR(A1);A1;"")
- créer une colonne C pour extraire les impairs avec C1 = SI (EST.IMPAIR(A1); A1;"")

et après tu sais faire des sommes,et autres calculs sur ces colonnes

et tu peux masquer ces colonnes au final pour faire plus joli.
 
Re : codes à barre

Bonjour

Vous pouvez également employer ce code

Code:
Sub test()
    For i = Sheets(1).Range("a65536").End(xlUp).Row To 1 Step -1
        Cells(i, 1).Select
        If ActiveCell Mod 2 = 0 Then
            ActiveCell.Offset(0, 1).Value = ActiveCell
        Else
            ActiveCell.Offset(0, 2).Value = ActiveCell
        End If
    Next
End Sub

salutations

RGI
 
Re : codes à barre

Bon, d'abord merci de ta réponse. j'ai copié la formule (je découvre qu'en disant ESTPAIR) une formule se rapproche du language commun) mais quan je la copie ça va pas.
Moi j'avais fais de A2 =si(A1=1;3;5;7; A1;"") C'est pas bon par contre si je fais A2 =si(A1=1;A1;"") c'est bon, mais j'ai pas toute la famille impaire (les bien nommés) Alors que faire?
Cordialement
Didier
 
Re : codes à barre

Bonjour

Vous pouvez également employer ce code

Code:
Sub test()
    For i = Sheets(1).Range("a65536").End(xlUp).Row To 1 Step -1
        Cells(i, 1).Select
        If ActiveCell Mod 2 = 0 Then
            ActiveCell.Offset(0, 1).Value = ActiveCell
        Else
            ActiveCell.Offset(0, 2).Value = ActiveCell
        End If
    Next
End Sub

salutations

RGI
Merci aussi à Gilbert, mais ta réponse est trop évoluée pour moi. Mon niveau est si bas que je cherche un mot me qualifiant pour Excel. lent.
Cordialement
Didier
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
5
Affichages
384
Réponses
4
Affichages
307
Réponses
3
Affichages
347
Retour