Lier certaines données de deux feuilles
Résolu/Fermé
Hocine.Dany
Messages postés
72
Date d'inscription
lundi 31 août 2015
Statut
Membre
Dernière intervention
27 août 2021
-
27 mars 2019 à 13:20
danielc0 Messages postés 1424 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 24 janvier 2025 - 28 mars 2019 à 12:36
danielc0 Messages postés 1424 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 24 janvier 2025 - 28 mars 2019 à 12:36
A voir également:
- Lier certaines données de deux feuilles
- Fusionner deux feuilles excel - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Deux ecran pc - Guide
- Reinstaller windows sans perte de données - Guide
- Supprimer les données de navigation - Guide
1 réponse
danielc0
Messages postés
1424
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
24 janvier 2025
168
27 mars 2019 à 14:30
27 mars 2019 à 14:30
Bonjour,
C'est possible avec une macro, pas avec une formule. Es-tu partant ?
Cordialement.
Daniel
C'est possible avec une macro, pas avec une formule. Es-tu partant ?
Cordialement.
Daniel
27 mars 2019 à 16:03
Merci de cette réponse rapide
Oui si ca me permet de faire ça, biensur
27 mars 2019 à 17:09
Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range If Intersect(Target, [C:C]) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub For Each C In Intersect(Target, [C:C]) If C.Column = 3 Then Application.EnableEvents = False If UCase(C) = "LU" Then Cells(C.Row, 1).Copy Sheets("Lus").Cells(Rows.Count, 1).End(xlUp).Offset(1) Rows(C.Row).Delete End If Application.EnableEvents = True End If Next C End SubRemplace "Lus par le nom de la feuille où l'on colle les films lus. Pour trouver la macro, fais un clic droit sur l'onglet de "Feuil1" et clique sur "Visualiser le code"
Voici le classeur :
https://mon-partage.fr/f/dvOctxuK/
Daniel
28 mars 2019 à 10:43
Excuse-moi du retard.
Merci cependant pour ce macro, alors je l'applique à mon excel et j'accorde le numéro de la colonne etc, mais ca ne fonctionne pas, est-ce que c'est parce que la colonne dans laquelle j'indique "vu" & non vu" est un menu déroulant ?
Merci encore
28 mars 2019 à 10:49
28 mars 2019 à 12:36
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'défintion du champ: N° de colonne et Ligne > avant la 1° et ligne < après la dernière If Target.Column = 3 And Target.Row > 2 And Target.Row < 1001 Then ActiveCell.Value = "Vu" End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range If Intersect(Target, [C:C]) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub For Each C In Intersect(Target, [C:C]) If C.Column = 3 Then Application.EnableEvents = False If UCase(C) = "VU" Then Cells(C.Row, 1).Copy Sheets("Vus").Cells(Rows.Count, 1).End(xlUp).Offset(1) Rows(C.Row).Delete End If Application.EnableEvents = True End If Next C End SubDaniel