XL 2016 Contrôle des plages de saisie avant transfert

Y

YANNISE

XLDnaute Junior

• 5 Juillet 2023

• #2

Bonjour,

j'ai remplacé le fichier Excel par un autre plus simple, merci

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 6 Juillet 2023

• #3

pourriez-vous m'aider svp, j'ai besoin d'une solution pour éviter les doubles saisies sur le tableau

merci

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Juillet 2023

• #4

Bonjour,

Voir à l'utilisation d'une Msgbox par exemple ?

VB:

If MsgBox("Voulez vous écraser les données ?",vbOKCancel) = vbOK Then
...
Else
Exit Sub
End if

Bonne journée,

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 6 Juillet 2023

• #5

Bonjour @xUpsilon,

Merci pour votre réponse

Avant de faire une Msgbox il faudra d'abord avoir une macro qui me permet de détecter les doublons lors du transfert.
Ensuite si un doublon existe le Msgbox s'affiche avec oui ou non

oui pour remplacer l'ancien ligne sur le tableau dans la feuille 4 par celle transfert depuis la feuille 1
non pour arrêter l'exécution de la macro de transfert

Merci bcp

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 7 Juillet 2023

• #6

Bonjour,

Au vu des macros déjà présentes dans ton classeur, je pensais que tu réussirais à le faire.
Je ne vais pas te donner de solution toute faite mais voici comment on pourrait fonctionner :
- Boucler sur toutes les lignes de ta feuille de base de données, dans laquelle tu cherches la combinaison Acronyme + Date
- Si la valeur de ton "Acronyme actif" ET "Date Active" sont tous les deux égales aux valeurs de l'acronyme et de la date correspondant à la ligne sur laquelle tu es en train de boucler
- Alors faire apparaitre la Msgbox

VB:

For Ligne = PremiereLigneBDD to DerniereLigneBDD
    If AcronymeActif = FeuilleBDD.Cells(Ligne, ColonneAcronyme) and DateActive = FeuilleBDD.Cells(Ligne,ColonneDate) Then
        If Msgbox("Voulez-vous écraser la donnée déjà existante",vbOKCancel) = vbOK Then
            'Mener les actions souhaitées
        Else
            Exit Sub
        End if
    End if
Next Ligne

Bonne journée,

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 7 Juillet 2023

• #7

Bonjour @xUpsilon,

merci pour l'explication, mais excuse mon ignorance car je suis débutant sur VBA

j'ai ajouté votre code à ma macro mais j'ai un message d'erreur "Variable non définie"

je dois définir la variable de la ligne, pourriez-vous svp me dire comment la définir

merci bcp pour votre support.

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 7 Juillet 2023

• #8

Bonjour,

Là je m'excuse, mais je ne donne pas de solution toute crue comme ça.
Savoir ce qu'est une variable et comment la poser, c'est la base de toute programmation. Il va falloir se renseigner sur le VBA et commencer à comprendre un minimum comment ça fonctionne avant que je ne te fournisse une aide, et non pas une solution toute prête.

Bonne journée,

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 7 Juillet 2023

• #9

Merci mais je pense le temps d'avoir ton niveau il me faut beaucoup de temps

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 10 Juillet 2023

• #10

Bonjour,

Comprendre ce qu'est une macro, ce qu'est une variable, et comment fonctionnent les Conditions IF / les Boucles, ça ne prend pas beaucoup de temps, et ça permet d'avoir un minimum d'esprit critique par rapport à ce que tu pourrais recevoir/discuter dans le futur.

Bonne journée,

 

Vote positif 0 Vote négatif