Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Test sur une cellule avant la copie

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Abdias_bly
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Abdias_bly

Guest
Bonjour à tout!!!
je ne suis pas un prof VBA juste un débutant.Je viens vers vous pour exposer mon pb qui paraît simple mais un peu compliqué pour moi.le fichier original est lourd je ne peux le joindre.Mes vos explications m'aideront.Je joint un fichier pour illustration.Je m'explique:
Dans le classeur joint il y a 2 feuilles.Les données de la feuille 1 sont enrégistrées dans la feuille 2 grace à un bouton affecter à une macro.Tout beigne!!!à ce niveau et gros merci à Bruno.Alors mon souci est de poser une condition sur la cellule qui renseigne le N° feuille de la feuille 1 pour éviter l'enrégistrement des doublons.Il s'agist d'effectuer une recherche dans la colonne N° feuille de la feuille 2 pour vérifier si le numéro existe ou pas.Si non,alors effectuer la copie.Si oui,petit message d'erreur du genre"numéro existant".
Merci pour votre contribution
 

Pièces jointes

Trier par date Trier par votes
Re : Test sur une cellule avant la copie

Selon ton exemple, voici une fonction qui renvera true si le numéro de feuille existe déjà et false si c'est un nouveau numéro

Code: 
Function n_feuille_existe() As Boolean

Set feuille_base = ThisWorkbook.Worksheets("Feuil1")
Set feuille_copie = ThisWorkbook.Worksheets("Feuil2")
n_a_copier = feuille_base.Cells(3, 7)
n_feuille_existe = False

On Error GoTo sortie
 ligne = feuille_copie.Columns("A:A").Find(What:=n_a_copier, After:=feuille_copie.Cells(1, 1), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
n_feuille_existe = True

sortie:
On Error GoTo 0
End Function
 
Vote positif 0 Vote négatif
Re : Test sur une cellule avant la copie

par rapport à ton code feuille1=feuille de soins et feuille2=Fiche Client dans le code que je te donne.Le code suivant fonctionne très bien.
Sub fiche()
'
' fiche Macro
' Macro enregistrée le 18/07/2009 par POLAIN

With Sheets("Fiche Client")
Ligne = .Range("A65536").End(xlUp).Row + 1
' Nouveau client = total + 1
.Cells(Ligne, 1) = Sheets("Feuille de soins").Range("K3")
.Cells(Ligne, 2) = Sheets("Feuille de soins").Range("K4")
.Cells(Ligne, 3) = Sheets("Feuille de soins").Range("D6")
.Cells(Ligne, 4) = Sheets("Feuille de soins").Range("H6")
.Cells(Ligne, 5) = Sheets("Feuille de soins").Range("B7")
.Cells(Ligne, 6) = Sheets("Feuille de soins").Range("D7")
.Cells(Ligne, 7) = Sheets("Feuille de soins").Range("G7")
.Cells(Ligne, 8) = Sheets("Feuille de soins").Range("B8")
.Cells(Ligne, 9) = Sheets("Feuille de soins").Range("G8")
.Cells(Ligne, 10) = Sheets("Feuille de soins").Range("E8")
.Cells(Ligne, 11) = Sheets("Feuille de soins").Range("J6")
.Cells(Ligne, 12) = Sheets("Feuille de soins").Range("L6")
.Cells(Ligne, 13) = Sheets("Feuille de soins").Range("C9")
.Cells(Ligne, 14) = Sheets("Feuille de soins").Range("J7")
End With
MsgBox "Données client ajoutées", vbInformation, "C'EST FAIT ..."
End Sub
Alors à quel niveau intégré ce code pour qu'il fonctionne?
j'ai enrégistré le code et dans le code j'ai tapé Call n_feuille_existe tout en haut mais je n'ai rien.
C'est ouvert à tout le monde svp!!!
 
Vote positif 0 Vote négatif
Re : Test sur une cellule avant la copie

pardon,j'allais oublier la valeur à tester se trouve dans feuille de soins (3,11) ou encore K3.
Merci pour votre contribution
 
Vote positif 0 Vote négatif
Re : Test sur une cellule avant la copie

Alors voila a quoi peut ressembler le code complet :

Code: 
Function n_feuille_existe() As Boolean

Set feuille_base = ThisWorkbook.Worksheets("Feuille de soins")
Set feuille_copie = ThisWorkbook.Worksheets("Fiche client")
n_a_copier = feuille_base.Cells(3, 11)
n_feuille_existe = False

On Error GoTo sortie
 ligne = feuille_copie.Columns("A:A").Find(What:=n_a_copier, After:=feuille_copie.Cells(1, 1), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
n_feuille_existe = True

sortie:
On Error GoTo 0
End Function

Sub fiche()
'
' fiche Macro
' Macro enregistrée le 18/07/2009 par POLAIN

if n_feuille_existe then

MsgBox "Données client déjà connue", vbInformation, "RIEN N'EST FAIT ..."
else

With Sheets("Fiche Client")
Ligne = .Range("A65536").End(xlUp).Row + 1
' Nouveau client = total + 1
.Cells(Ligne, 1) = Sheets("Feuille de soins").Range("K3")
.Cells(Ligne, 2) = Sheets("Feuille de soins").Range("K4")
.Cells(Ligne, 3) = Sheets("Feuille de soins").Range("D6")
.Cells(Ligne, 4) = Sheets("Feuille de soins").Range("H6")
.Cells(Ligne, 5) = Sheets("Feuille de soins").Range("B7")
.Cells(Ligne, 6) = Sheets("Feuille de soins").Range("D7")
.Cells(Ligne, 7) = Sheets("Feuille de soins").Range("G7")
.Cells(Ligne, 8) = Sheets("Feuille de soins").Range("B8")
.Cells(Ligne, 9) = Sheets("Feuille de soins").Range("G8")
.Cells(Ligne, 10) = Sheets("Feuille de soins").Range("E8")
.Cells(Ligne, 11) = Sheets("Feuille de soins").Range("J6")
.Cells(Ligne, 12) = Sheets("Feuille de soins").Range("L6")
.Cells(Ligne, 13) = Sheets("Feuille de soins").Range("C9")
.Cells(Ligne, 14) = Sheets("Feuille de soins").Range("J7")
End With
MsgBox "Données client ajoutées", vbInformation, "C'EST FAIT ..."
end if
End Sub
 
Vote positif 0 Vote négatif
Re : Test sur une cellule avant la copie

Pour faire plus simple,je vous prie de regarder à la pièce jointe.Vous remarquerez qu'il y a des doublons dans la feuil2 suite à l'ajout via le bouton ajouter.Comment intégrer le code où que faut-il faire pour qu'il n'y ait pas de doublons.Le but étant de ne pas avoir le même numéro dans la colonne N° feuille de la feuil2.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Test sur une cellule avant la copie

XL Luc merci pour ton intervention.J'ai testé le code mais sans suite favorable.Alors si tu te servais du fichier joint dans le précédent message,je pourrais facilement l'intégrer au fichier original.Regarde le code et apporte toutes les modif.Merci d'avance
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
211
berru76
B
W
  • Résolu(e)
XL 2016 Équivalent de Application GoTo sur une feuille fractionnée (curseur en zone C verticalement sur la feuille)
Réponses
8
Affichages
75
Webperegrino
W
N
  • Question Question
Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer
2
Réponses
19
Affichages
1 K
nikeu01
N
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
342
PRy
P
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
390
AlineJ
A
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
884
Max
M
N
  • Question Question
Microsoft 365 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
260
vgendron
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
866
Max
M
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
415
berta8683
B
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
564
Yogean
Y
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
530
TooFatBoy
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
286
PR.
P
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
961
steph_29120
S
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
387
candido57
C
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
953
chaelie2015
A
  • Question Question
Autres Répartition d'offres d'emploi sur plusieurs collaborateurs
Réponses
5
Affichages
338
Phil69970
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
352
elgringo123456
E
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
980
TooFatBoy
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
882
piga25
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…