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 :

Saisie de données avec passage à la cellule suivante paramétré


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut Saisie de données avec passage à la cellule suivante paramétré
    Bonjour amis du forum

    J'aimerais savoir s'il existe une instruction pour que , au bout de la saisie d'un certain nombre de caractères dans une cellule, une autre cellule soit sélectionnée automatiquement; par exemple, après avoir saisi 12345 en cellule "B5", la cellule "C5" soit sélectionnée. Je demande cela car, ayant beaucoup de saisie à faire, l'appuie sur "Enter" me fait perdre du temps.

    Merci à vous de me répondre.

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    La seule idée qui me vient serait, à chaque changement de cellule, d'afficher une textbox sur la cellule elle-même qui permet de compter les caractères.
    Le transfert des données dans la cellule se ferait également lors de ce changement.
    La macro qui afficherait la textbox serait placer dans Worksheet_Selection change. Celle qui compterait le nombre de caractères et provoquerait le déplacement dans la cellule suivante serait à placer dans Textbox_Change.
    Le saut de ligne quand la dernière colonne serait atteinte, ou le saut de colonne quand la dernière ligne serait atteinte, pourrait également être provoqué dans Textbox_Change
    Pour faire un test, colle le code suivant dans dans la feuille de code de la feuille de calculs et place une textbox de la boîte à outils Contrôles dans la feuille de calculs. (Pour la placer dans la cellule visée, on verra après si besoin est )

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Public Cel As Range
    Private Sub TextBox1_Change() 'traite les saisies et compte les caractères
        If Len(TextBox1) <= 5 Then
            Cel = TextBox1
            Else
            'Tu dois préciser si tu avances sur la même colonne (Col = Col + 1)...
            'Cells(Cel.Row + 1, Cel.Column).Select
            '... ou si tu avances sur la même ligne (NoLig = NoLig + 1)
            Cells(Cel.Row, Cel.Column + 1).Select
            TextBox1 = Right(TextBox1, 1)
        End If
    End Sub
    Active la première cellule à renseigner dans la feuille
    Ici tu pourrais trouver la première cellule vide de la plage de données déjà renseignée et t'y placer.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Worksheet_Activate()
    Cells(1, 1).Select
    End Sub
    Sélectionne la cellule suivante afin de récupérer Target dans Cel
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Cel = Target
    TextBox1.Activate
    End Sub
    Important
    Pour réaliser ton test, change de feuille de calculs (pour revenir sur la bonne feuille) afin de provoquer l'événement Worksheet_Activate nécessaire au bon fonctionnement des macros
    Bons tests

  3. #3
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Bonsoir ouskel'n'or

    Je ne dois pas faire ce qu'il faut,mais cela ne fonctionne pas.

    Désolé.

  4. #4
    Membre Expert Avatar de Krovax
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    1 888
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 1 888
    Par défaut
    En prenant exactement ce code et en insérant un texte box que tu appelle textbox1 tu selectionne une cellule cela te place le curseur dans le texte box qui rempli la cellule tous les 5 caractère puis remplira la suivante.

    Effectivement tu as du rater un truc car le code fonctionne très bien
    Tu as bien créé le textbox et copié les code au bon endroit?

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Une autre façon de voir si ça fonctionne : Enregistrer et fermer le fichier avec sa textbox et ses codes aux bons endroits puis le rouvrir et renseigner la textbox.

  6. #6
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Bonsoir à tous

    Les journées n'ont pas assez de 24 H.

    Voilà, j'ai mis
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub UserForm_Click()
    End Sub
    Private Sub TextBox1_Change() 'traite les saisies et compte les caractères
        If Len(TextBox1) <= 5 Then
            Cel = TextBox1
            Else
            'Tu dois préciser si tu avances sur la même colonne (Col = Col + 1)...
            'Cells(Cel.Row + 1, Cel.Column).Select
            '... ou si tu avances sur la même ligne (NoLig = NoLig + 1)
            Cells(Cel.Row, Cel.Column + 1).Select
            TextBox1 = Right(TextBox1, 1)
        End If
    End Sub
    dans le UserForm
    et
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Public Cel As Range
    Private Sub Worksheet_Activate()
    Cells(1, 1).Select
    End Sub
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Cel = Target
    TextBox1.Activate
    End Sub
    dans la "Feuil1"

    j'ai comme mesage d'erreur :Erreur d'Exécution 424 Objet requis"

    Où est l'erreur ?

    Merci de votre retour

  7. #7
    Membre Expert Avatar de Krovax
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    1 888
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 1 888
    Par défaut
    Ne met pas le code dans un user form met la texte box directement sur la feuille et code dansle module de la feuille. aucun moment il n'y a de userform

    Si ca ne marche toujours pas il faudrait nous dire quel ligne pose problème (utilise l'éditeur pas a pas sil le faut)

  8. #8
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Merci Krovax et ouskel'n'or, cela fonctionne bien après l'enregistrement, la sortie et la relance.
    Bonne soirée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Calendrier] Dynamique avec passage de date en paramètre
    Par hannibal974 dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 10
    Dernier message: 22/05/2014, 02h26
  2. [AC-2010] Traitement de saisie de données avec access
    Par matth32 dans le forum Access
    Réponses: 1
    Dernier message: 12/03/2013, 16h12
  3. [XL-2003] Saisie de données automatique dans une cellule
    Par yfchauer dans le forum Excel
    Réponses: 3
    Dernier message: 02/01/2013, 06h24
  4. Réponses: 2
    Dernier message: 31/08/2009, 11h00
  5. Fusion de cellules avec données avec Excel
    Par griese dans le forum Excel
    Réponses: 8
    Dernier message: 28/07/2006, 17h02

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