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 - Ajouter donnée dans tableau selon condition [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2019
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mars 2019
    Messages : 34
    Par défaut VBA - Ajouter donnée dans tableau selon condition
    Bonjour,

    J'aimerai ajouter une donnée dans une colonne (Visité) selon l'ID indiqué en B8 dans mon exemple.
    Ici, le Visité 4 devrait s'implémenter via une macro en C3. L'ID tapé manuellement en B8 correspond à l'ID de la colonne A
    Nom : Capture2.PNG
Affichages : 179
Taille : 14,0 Ko

    Merci de bien vouloir m'aider

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    Bonjour
    je ne vois pas de relation entre V2 et visité 4
    en plus je crois qu'il est meilleur de réserver une cellule en haut pour remplir un tableau
    donc ce que j'ai fais :
    1/ un tableau pour les ID / visiteur à partir de E7
    2/ la cellule A3 pour écrire V1 ou V2 ou Vn
    3/ le résultat : alimenter la colonne C selon le choix effectué
    tester et si ça te convient pas revenir avec plus d'éclaircissement
    code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$3" Then Exit Sub
    Dim Tablo
    Dim i As Long
    Dim j As Long
    Tablo = Sheets("Feuil1").Range("E7", "F" & Sheets("feuil1").Range("F" & Rows.Count).End(xlUp).Row)
    With Sheets("feuil1")
    j = Sheets("feuil1").Range("C" & Rows.Count).End(xlUp).Row + 1
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        If IsNumeric(Application.Match(CStr(Tablo(i, 1)), .Cells(3, 1), 0)) Then
            .Cells(3, "B") = Tablo(i, 2)
            .Cells(j, "C") = Tablo(i, 2)
        End If
    Next i
    End With
    j = 0
    End Sub
    penser à l'utilisation des tableaux structurés
    Fichiers attachés Fichiers attachés

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2019
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mars 2019
    Messages : 34
    Par défaut
    Merci Bennasr,
    Mais hélas, non ça ne répond pas à mon besoin. Il faut vraiment que le Visité4 viennent s'implémenter automatiquement à la suite -dans la colonne C du 1er tableau- en fonction de l'ID.

  4. #4
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    selon quel logique?? la vérité je n'ai pas compris la logique

  5. #5
    Membre chevronné
    Homme Profil pro
    Formateur bureautique
    Inscrit en
    Janvier 2021
    Messages
    302
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Formateur bureautique
    Secteur : Enseignement

    Informations forums :
    Inscription : Janvier 2021
    Messages : 302
    Par défaut Question
    Bonjour
    tout comme mon collègue BENNASR, je pense qu'il manque une explication dans votre demande : comment obtenez vous C8 ? on voit qu'il y a marqué select auto mais vous n'en parlez pas.

    S'agit t'il d'un choix par menu déroulant, qui lorsqu'il est fait, doit aller alimenter C3 ? ou tout autre chose ?

  6. #6
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2019
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mars 2019
    Messages : 34
    Par défaut
    Bonjour,
    En effet, j'ai omis volontairement d'expliquer cette étape, car elle ne me paraissait pas pertinente.
    Ici, le Visité4 a été sélectionné aléatoirement dans la liste de Visité (Dernier tableau). C'est une autre macro qui permet cette sélection aléatoire.

    La 2ème étape est de rentrer le nom du visité (sélectionné aléatoirement) dans le tableau 1 en fonction de l'ID.

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

Discussions similaires

  1. [VBA] Récupération de données dans tableau recapitulatif
    Par n0vocaine dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 10/05/2010, 07h41
  2. [AJAX] Ajouter données dans un tableau json
    Par algsoft dans le forum AJAX
    Réponses: 2
    Dernier message: 26/03/2010, 00h36
  3. Réponses: 5
    Dernier message: 09/05/2007, 10h00
  4. Ajouter données dans un champ (concat)
    Par TNorth dans le forum Requêtes
    Réponses: 6
    Dernier message: 09/05/2005, 21h38
  5. Probleme affichage dans tableau selon requête
    Par moulette85 dans le forum Langage SQL
    Réponses: 11
    Dernier message: 01/03/2005, 15h44

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