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 :

Modification de cellule et Worksheet_Change


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut Modification de cellule et Worksheet_Change
    Bonjour à toutes et à tous,

    J'ai deux colonnes: A avec des références aléatoires par ligne et B avec l'état (initiale ou mise à jour).

    Si les valeurs des cellules en A gardent leur valeur initiale lors de la saisie, les valeurs adjacentes en B indiquent Initiale
    Si les valeurs des cellules en A sont modifiées, les valeurs adjacentes en B indiquent Mise à jour.

    Je sais comment l'écrire quand Target.Value="Une valeur bien définie" mais quand celle-ci est fluctuante, je n'en ai aucune idée...

    Merci d'avance

  2. #2
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Bonjour,

    il manque des infos

    quand tu dis :
    ... Si les valeurs des cellules en A gardent leur valeur initiale lors de la saisie, ...
    là il serait utile que tu développes ce que tu fais exactement parce que c'est très vague et peu compréhensible

    ... les valeurs adjacentes en B indiquent Initiale
    Que compare-t-on ? les valeurs de A et B ?

    De plus il faut supposer que c'est dans la colonne C que tu mets "Initiale" et "Mise à jour"

    si c'est A1 avec B1 une simple formule SI suffit
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SI(A1=B1;"Initiale";"Mise à jour")
    si ce n'est pas cela donne plus de détail à ta demande


    a bientôt

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Ok, je vais essayer de rendre ma demande plus compréhensible.

    Mettons qu'en colonne A je rentre en A2 REF3560 en A3 REF7895 en A4 REF1478 la colonne B indique pour chaque ligne de saisie Initiale (compte tenu du fait que c'est la valeur initiale saisie dans chaque cellule).

    Dans le temps A2 devient REF5678 A3 reste identique et A4 REF2587. Dans ce cas B2 fait apparaître Mise à jour B3 Initiale et B4 Mise à jour.

    Je cherche donc à automatiser les valeurs en B selon l'état de la saisie. Est-ce la saisie initiale ou bien une mise à jour des données.

    En espérant avoir été plus clair.

  4. #4
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Bon je crois que je commence à comprendre mais il y a un hic
    lorsque tu changes les valeurs de A2 de REF3560 en REF5678 tous les autres seront initiale et quand la saisie de A4 se fera A2 passerra en initiale

    donc à mon avis pour faire simple

    en colonne A la première saisie
    en colonne B la modification

    en colonne C l'information si initiale ou MAJ

    puis une petite macro qui copie la colonne B en A (en faisant attention au cellules vides) qui remet tout en initale

    la macro s'executera une fois que les valeurs soient exploitées

    c'est comme cela que je ferai car il faut avoir les infos d'origines pur savoir si MAJ ou pas

  5. #5
    Expert éminent 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
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Worksheet_Change(ByVal Target as Range) 
        If Target.Column <> 1 Then Exit Sub
        If Target.Offset(0, 1).Value = "" Then
            Target.Offset(0, 1).Value = "Initial"
        Else
            Target.Offset(0, 1).Value = "Mise à jour"
        End If
    End Sub

  6. #6
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Menhir, merci mais je n'arrive pas pour l'instant à appliquer ton code. Il m'indique Select Case et n'ayant jamais utilisé cette condition je n'arrive pas à la corriger proprement.

    Igloobel, une partie de ta réponse m'a fait évoluer dans ma réflexion. Effectivement ma colonne A comprend les Références initiales et ma colonne B mes Références modifiées. Ma colonne C fait apparaître alors Initiale ou Mise à jour selon le cas.

    J'ai donc ce début de code incomplet et sûrement maladroit car il ne fait apparaître Initial qu'après avoir saisie une donnée en B que j'efface... donc on peut sûrement faire bien bien mieux d'autant que je n'ai toujours pas Mise à jour qui s'affiche

    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)
    Dim Col As Integer
    Col = Target.Column
     
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
           If Target.Value = "" Then Target.Offset(0, 1).Value = "Initial"
     End If
     
    End Sub

  7. #7
    Expert éminent 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
    Par défaut
    J'ai oublié de supprimer les Case après avoir changé de solution.
    C'est corrigé.
    Mais tu aurais pu un peu chercher par toi-même.

  8. #8
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Merci Menhir, Du coup j'ai cherché par moi même pour l'adapter à mon vrai tableau avec les vrais colonnes et cela donne ça.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Private Sub Worksheet_Change(ByVal Target As Range)
        With Target
        Select Case .Column
            Case 11
     
        If Target.Offset(0, 13).Value = "" Then
            Target.Offset(0, 13).Value = "Initial"
        Else
            Target.Offset(0, 13).Value = "Mise à jour"
        End If
        End Select
        End With
    End Sub

  9. #9
    Expert éminent 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
    Par défaut
    J'ai des difficultés à comprendre certains de tes choix.
    Pourquoi un Select Case et pas un simple If ?
    Pourquoi un With Target que tu n'utilises qu'un fois ?

    As-tu regardé dans l'aide VBA ce que représentent ces deux instructions ou s'agit-il d'un code récupéré et adapté au pif ?

  10. #10
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    En fait, j'ai essayé d'adapter le code à mon tableau véritable.
    J'ai bien testé ton code sur les colonnes A,B,C, ça fonctionne à merveille.
    Mais je n'arrivais pas à transposer le code sur ma colonne K et traduire correctement ton If Target.Column <> 1 Then Exit Sub
    J'ai donc pensé qu'il fallait que je cible cette colonne spécifique avec With Target et Select Case...
    Il est probable que ça fasse très bricolage bancal, mais je tâtonne et fais des tests

  11. #11
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Je remarque d'ailleurs que mon fichier a augmenté en taille sûrement à cause de mon code...

  12. #12
    Membre Expert
    Avatar de Igloobel
    Homme Profil pro
    Développeur ERP - VBA et Formateur bureautique
    Inscrit en
    Septembre 2005
    Messages
    1 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Développeur ERP - VBA et Formateur bureautique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 871
    Billets dans le blog
    1
    Par défaut
    Citation Envoyé par La_Taupe Voir le message
    Je remarque d'ailleurs que mon fichier a augmenté en taille sûrement à cause de mon code...
    Normalement le code VBA en tant que tel ne fait pas grossir le classeur par contre les UserForm et surtout les formules OUI

    (c'est du vécu )

  13. #13
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Igloobel, à vrai dire je n'ai pas d'userform et mes formules n'ont pas alourdies mon fichier.
    Je viens de faire un test et je me rends compte que c'est l'activation d'une macro via un bouton de commande qui alourdit considérablement le fichier (je viens de passer de 300Ko à 16Mo avec une pauvre ligne de remplie).
    Ce qui m'étonne, c'est que sur un autre sujet Menhir m'avait préalablement conseillé un code à ce sujet et cela fonctionnait à merveille...

  14. #14
    Expert éminent 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
    Par défaut
    Citation Envoyé par La_Taupe Voir le message
    je viens de passer de 300Ko à 16Mo avec une pauvre ligne de remplie.
    Ce n'est certainement pas la présente d'une dizaine de lignes de code qui peut expliquer ce phénomène.
    Tu as certainement ajouté autre chose.
    Tu n'aurais pas appliquer quelque chose (format, collé, formule) sur une colonne (ou une ligne) entière ?

  15. #15
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Menhir,

    Voici le code que tu m'avais proposé et auquel j'ai uniquement ajouté la colonne AA

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Sub Macro1()
        Columns("C").AutoFilter Field:=1, Criteria1:="OK"
        Union(Columns("B"), Columns("I:J"), Columns("Z:AA")).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuille2").Range("A1")
    End Sub
    Effectivement la colonne Z contient une formule que voici

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    =+SI(NB(D2)=0;"";(D2+(NB.SI(L2:Y2;"KO")*D2)))
    J'ai rajouté également, la ligne de code suivante par rapport au sujet de cette discussion en prenant en compte tes remarques.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Col As Integer
    Col = Target.Column
     
    If Not Intersect(Target, Range("J:J")) Is Nothing Then
           If Target.Offset(0, 17).Value = "" Then
            Target.Offset(0, 17).Value = "Initial"
        Else
            Target.Offset(0, 17).Value = "Mise à jour"
     
    End If
    End If
    End Sub
    Là, je bloque un peu...

  16. #16
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Je viens de supprimer la colonne Z qui contenait la formule pour vérifier si effectivement cela venait d'elle mais non. Après activation de ma macro j'ai toujours un fichier de 17 Mo...
    Dès que je supprime la Feuille qui réceptionne les infos de la macro, mon fichier retrouve une taille correcte. C'est donc bien la copie des éléments vers cette feuille qui est problématique...

  17. #17
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Septembre 2019
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Septembre 2019
    Messages : 32
    Par défaut
    Bonjour,

    Pas d'avis ou d'astuce à me faire partager pour repartir sur une base saine?
    Merci de votre aide.

Discussions similaires

  1. modification de cellules
    Par Niko62 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/01/2008, 18h36
  2. Activation de macro sur modification de cellules particulières
    Par Tch3k dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 31/07/2007, 18h11
  3. Réponses: 5
    Dernier message: 08/03/2007, 10h13
  4. [Débutant - Excel] Evénement avant modification de cellule
    Par seiryujay dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 14/12/2006, 05h31
  5. [VB6] Ouverture d'un fichier Excel et modification de cellules
    Par zackrel dans le forum VB 6 et antérieur
    Réponses: 19
    Dernier message: 19/05/2006, 11h55

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