IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

vba excel boucle


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Femme Profil pro
    étudiante
    Inscrit en
    Avril 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : étudiante

    Informations forums :
    Inscription : Avril 2018
    Messages : 3
    Points : 3
    Points
    3
    Par défaut vba excel boucle
    Bonjour,

    Je vous explique mon problème, j'ai mis en place l'affichage de l'heure et de la date lorsque je scanne un code barre à l'aide d'une douchette.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
    Target.Offset(0, 1) = Date
    If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
    Target.Offset(0, 2) = Time
     
    End If
    End If
     
     
    End Sub


    Je souhaiterais que lorsque je scanne une deuxième fois le code barre, l'heure et la date de fin apparaissent sur la même ligne.

    J'ai plusieurs codes barres différents à scanner.

    Cela est-il possible ?

    Merci d'avance

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Salut,

    tu peux essayer de partir sur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
    If Target.Offset(0, 1)<>Date Then
    Target.Offset(0, 1) = Date
    Else
    Target.Offset(0, 2) = Time
    End If
    End If
    End Sub
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Points : 32 866
    Points
    32 866
    Par défaut
    Citation Envoyé par polysntc Voir le message
    Je souhaiterais que lorsque je scanne une deuxième fois le code barre, l'heure et la date de fin apparaissent sur la même ligne.
    Je ne comprends pas trop ton explication.
    Qu'est-ce que tu appelles "date de fin" ?
    Est-ce que ça veut dire que la date dont tu parles avant est une "date de début" ?
    Est-ce que tu voudrais que la date de fin remplace la première date que tu as saisie ?
    Est-ce que tu voudrais que cette "date de fin" s'enregistre dans une autre cellule (laquelle ?) ?
    Est-ce que, lors du second scan, tu es positionné sur la bonne cellule ou faut-il que la macro recherche le code barre correspondant dans une zone ?
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

Discussions similaires

  1. [XL-2010] VBA Excel / Boucle For et If multiples
    Par franckm38 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/03/2016, 11h42
  2. [VBA EXCEL] - Boucles et UserForm
    Par ancel17 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/10/2008, 19h35
  3. [vba excel] boucle et controle
    Par CIBOOX dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 23/07/2007, 10h13
  4. VBA EXCEL : boucle, recherche ligne
    Par sebi78 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 03/04/2007, 14h02
  5. [VBA][Excel] Comment faire pour faire une boucle?
    Par DonKnacki dans le forum Macros et VBA Excel
    Réponses: 29
    Dernier message: 19/12/2005, 15h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo