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

transfert de données d'une feuille à une autre grace à case à cocher

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion g.terro
  • 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
G

g.terro

Guest
Bonjour,

Je voudrai utiliser le fichier joint déjà amélioré en 2008 par Job75, BERRACHED etc.🙂
Comment éviter que le double clique soit pris en compte si une des cellules n'a pas de donnée.
En effet C4 et D4 sont vides et pourtant le double clique sur F4 est pris en compte


Merci à tous pour votre réponse
 

Pièces jointes

Trier par date Trier par votes
Re : transfert de données d'une feuille à une autre grace à case à cocher

Bonjour,
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Or Target.Row < 2 Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 6 Or Target.Row < 2 Or Target = "X" Then Exit Sub
If Application.CountA(Range("A" & Target.Row & ":E" & Target.Row)) < 5 Then Exit Sub
Cancel = True
Application.EnableEvents = False
Target = "X"
Application.EnableEvents = True
With Sheets("AA")
    dl = .Range("A65000").End(xlUp).Row + 1
    .Cells(dl, 1) = Target.Offset(, -5)
    .Cells(dl, 2) = Target.Offset(, -4)
    .Cells(dl, 3) = Target.Offset(, -2)
    .Cells(dl, 4) = VBA.Now
End With
End Sub
Edit: attention aux caractères [espace] dans tes cellules !
A+
kjin
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

Bonjour g.tero, le forum

Apres le 1er test tu rajoute ceci :

For i = 1 To 5 ' va tester les colonnes A jusqu a E
If Cells(cel.Row, i).Value = "" Then Exit Sub
Next i
attention les cellules doivent etre vide et pas contenir un espace sinon rajouter un espace entre les guillemets.
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

kjin,🙂

Merci pour ta réponse et pour le forum, ce pas exactement ce que je recherche🙄
As tu STP double cliqué sur la cellule F3. Il devrait y avoir le X qui disparait ou apparait et la ligne qui change de couleur en fonction du X ou pas.😎
j'essaie de comprendre le code de ton fichier.😕
Comme je ne suis pas un chef dans la programmation je vais avoir du mal à "l'intégrer" dans mon code "Samanthie double click(2)"
En fait dans ton fichier je perd toutes les fonctionnalité de départ.
Merci et à +
Guillaume



Ca va être dur de m'y retrouver
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

Merci nyko283

J'ai essayé et je je trouve pas le bon "test" que tu évoques

Peux tu STP me dire à quel endroit exactement dans mon code
Merci

Guillaume
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

niko283,

Désolé cela ne donne rien🙁

si la ligne est incomplète voire vide, je peux toujours double cliquer en colonne F et avoir le X et colorer ma ligne (et ca je ne le veux pas).
Je voudrais que toute action en colonne F ne soit possible que si toute la ligne est complète

Merci😎
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

Regarde dans ce fichier, car chez moi ca marche bien, en revanche dans le fichier que tu as déposer les cellules C4 et D4 ne sont pas vides, elles ont un espace a l'interieur d'ou n'autre mise en garde de Kjin et moi même,
et donc pour mon code les cellules ne sont pas vide.

donc dans mon fichier j'ai juste effacé les espaces dans les 2 cellules.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

Bonjour Kjin,

Je vient de reprendre mon fichier, et pour moi si l'une des cellules de la ligne ou l'on double clic alors aucun traitement, mais si on double clic et la ligne est pleine alors la ligne est validé et transferer.

et d'apres mes essai il fait bien cela, apres j'ai peut etre loupé quelque chose, ce qui et fort possible.

Bonne Journée ensoleillé a tous.
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

niko283 et kjin,

Désolé,

Un remerciement avant tout car vous êtes efficaces et disponibles😉.
Je n'avais pas "percuté sur la première suggestion de kjin
Veuillez acceptez mes 1000 excuses.

Ca fonctionne avec le dernier fichier de niko283... 😕mais on n'est pas encore à la fin me semble t'il.
En effet, lorsque je double clique sur la colonne F (pour une ligne non complète) le curseur se met à clignoter et la seule façon de sortir de la cellule c'est de faire "échap".
Ne pourrais t'on pas éviter de rentrer dans la cellule (lorsque l'on y double clique dessus) afin d'éviter de devoir en sortir avec "Echap"
Merci pour vos réponses et votre code.


Une explication de Kjin , Désolé, c'est que ton fichier et son code ne tenais pas compte de mon fichier initial, je ne savais pas comment l'intégrer dans mon fichier.
Je suis nul en prog.

Merci🙂 Kjin
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

Re,
g.terro à dit:
Une explication de Kjin , Désolé, c'est que ton fichier et son code ne tenais pas compte de mon fichier initial, je ne savais pas comment l'intégrer dans mon fichier.
Cliquez pour agrandir...
J'aurais préféré Pour au lieu de car comme je réitère je ne comprends pas la logique de ton fichier.Maintenant, s'il s'agit de mettre la couleur, c'est pas compliqué
A+
kjin
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

kjin à dit:
Re,

J'aurais préféré Pour au lieu de
Cliquez pour agrandir...

Oui vous avez raison je me suis mélangé les pinceaux, c'était bien Pour qu'il fallait que je note. Désolé

kjin à dit:
Re,

je réitère je ne comprends pas la logique de ton fichier.Maintenant, s'il s'agit de mettre la couleur, c'est pas compliqué
Cliquez pour agrandir...

Une information pour Kjin:😕
La mise en couleur c'est pour la facilité de lecture
Pour information le fichier en ongle BASE propose des lignes
En fonction de la sélection du double cliqué en colonne F, les lignes sont sélectionnées (colorées pour faciliter la lecture) puis copiées dans l'onglet AA.
Si par erreur la ligne n'est pas complète je ne souhaite pas qu'elle puisse être sélectionnée par un double cliqué.

De même si l'on re-double clique sur une cellule de la colonne F (dont la ligne est complète) on retire cette ligne de l'onglet AA.
Merci encore pour votre aide.
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

alors pour eviter de "rentrer dans la cellule, modifie le code en ajoutant "Cancel=True "
de cette facon :

If Cells(cel.Row, i).Value = "" Then
Cancel = True
Exit Sub
 
Vote positif 0 Vote négatif
Re : transfert de données d'une feuille à une autre grace à case à cocher

niko283

nyko283 à dit:
alors pour eviter de "rentrer dans la cellule, modifie le code en ajoutant "Cancel=True "
de cette facon :

If Cells(cel.Row, i).Value = "" Then
Cancel = True
Exit Sub
Cliquez pour agrandir...

Merci niko283

j'avais comme partie du code:

Private Sub Worksheet_BeforeDoubleClick(ByVal cel As Range, Cancel As Boolean)
If Intersect(cel, [F2:F65536]) Is Nothing Then Exit Sub
For i = 1 To 5 ' va tester les colonnes A jusqu a E
If Cells(cel.Row, i).Value = "" Then Exit Sub
Next i
Cancel = True
Application.EnableEvents = False 'évite le lancement de la macro Change



j'ai modifié comme demandé à savoir:
Private Sub Worksheet_BeforeDoubleClick(ByVal cel As Range, Cancel As Boolean)
If Intersect(cel, [F2:F65536]) Is Nothing Then Exit Sub
For i = 1 To 5 ' va tester les colonnes A jusqu a E
If Cells(cel.Row, i).Value = "" Then
Cancel = True
Exit Sub
Next i
Cancel = True
Application.EnableEvents = False 'évite le lancement de la macro Change

j'ai un message d'erreur de compilation NEXT sans FOR
Merci
 
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

A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
585
Al1_44
A
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
S
  • Résolu(e)
XL 2019 Couper coller une ligne d'une feuille1 vers feuille2 grâce à un bouton ou case à cocher
Réponses
6
Affichages
1 K
sylvanu
  • Question Question
XL 2016 Alimenter une feuille à partir de cellules sélectionnées d'une autre feuille
Réponses
3
Affichages
889
C'est papy Mougeot !
F
  • Résolu(e)
XL 2019 Envoyer données d'une cellule sur une autre feuille de classeur
Réponses
6
Affichages
1 K
soan
S
M
  • Résolu(e)
Microsoft 365 Récupérer données d'une autre feuille en fonction de ma selection dans une liste
Réponses
2
Affichages
935
minamas
M
  • Résolu(e)
XL 2010 Transfert / annulation de données de feuil1 vers feuil2 via Case à cocher
Réponses
10
Affichages
1 K
Seddiki_adz
S
S
  • Résolu(e)
XL 2019 Supprimer ou décaler une ligne lors d'un transfert de données d'un onglet à un autre via une macro
Réponses
6
Affichages
2 K
Sod2
S
N
  • Question Question
XL 2016 Copier des lignes d'une feuille à l'autre sur une même Excel par double clique
Réponses
0
Affichages
1 K
Ned2
N
  • Résolu(e)
XL pour MAC Calculer tous les 1 et 0 à la suite (cumulés) dans une colonne excel - avec conditions ?
Réponses
2
Affichages
794
AtHome
G
  • Résolu(e)
XL 2016 Cochage automatique de case par rapport à une autre case à cocher
Réponses
2
Affichages
1 K
grecooll
G
Z
  • Question Question
XL 2019 Rapatriement de donnée d'un onglet vers un autre onglet en fonction d'une valeur identique
Réponses
2
Affichages
2 K
Zlataa21
Z
T
  • Question Question
Microsoft 365 VBA : Transfert de données d'une feuille à une autre
Réponses
2
Affichages
2 K
Titou99
T
S
  • Question Question
XL 2013 Recopie de données d'une feuille à une autre
Réponses
0
Affichages
719
Skilea
S
A
  • Question Question
XL 2016 Transfère de données d'une feuille à une autres avec condition
Réponses
3
Affichages
739
pierrejean
B
  • Question Question
Case à cocher avec report de données sur un autre onglet
Réponses
2
Affichages
1 K
ChTi160
N
  • Question Question
Listbox avec case à cocher
Réponses
6
Affichages
5 K
Narduz
N
M
  • Question Question
XL 2010 Masquer/Afficher une colonne d'une autre feuille en décochant/cochant une case
Réponses
6
Affichages
2 K
Paf
F
  • Question Question
Transfert de données d'une feuille à une autre
Réponses
0
Affichages
937
fleurs59
F
F
  • Question Question
VBA - Transfert de ligne d'une feuille à une autre
Réponses
10
Affichages
5 K
jp14
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…