Recopier des lignes en gardant le même emplacement

**Sianne** · 25/04/2022, 18h25

Bonjour à tous,

Je vous envoie de nouveau mon problème non résolu en espérant que vous puissiez m'aider !
Je souhaite qu'à chaque fois qu'une personne ajoute un "x" (colonne a) de l'onglet "BASE DE SAISIE"du fichier joint, il s'affiche dans l'onglet "RESULTAT".
Il faut absolument que les lignes dans l'onglet "RESULTAT" soient les mêmes que dans "BASE DE SAISIE"
A titre d'exemple, je dois retrouver le produit A article a2 qui se trouve sur la ligne 4 de la "BASE DE SAISIE", sur la ligne 4 dans l'onglet "RESULTAT"etc
Les autres lignes sans "x" sont vides (macro ou par formule Excel) et masqués.

Merci beaucoup pour toute l'aide que vous pourrez m'apporter,
en espérant vous lire très bientôt
bonne soirée
SC

**Belga16** · 25/04/2022, 22h50

Procédure 'à écrire dans l'événement "change" de la feuille "BASE DE SAISIE"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim r As Long
    Dim MyValue As Variant
    Dim myRng As String
 
    r = Target.Row - 1  'ceci suppose que lorsqu'on encode dans une cellule, la celluel suivante
                        'est sélectionnée dès que l'on fait "entrée".
                        'sinon, il faudra écrire "r = Target.Row "
    myRng = "A" & r & ":D" & r
 
    On Error Resume Next
    MyValue = Intersect(Range("a3:a9"), Range(myRng)).Address
    Sheets("RESULTAT").Range(MyValue) = Sheets("BASE DE SAISIE").Range(MyValue).Value
 
End Sub