Discussion :

[YEN44]

Bonjour, pouvez vous m'aider pour ajouter une ligne d'une feuille dans une autre feuille si colonne A il y a AJOUTER

et pour supprimer une ligne d'une feuille dans une autre feuille si colonne A il y a SUPPRIMER

J'ai commencé dans le fichier joint mais ça fait que copier les lignes tous le temps.

j'aimerais que la feuille BASE DONNEE soit modifié qu'une seul fois selon le statut SUPRIMER ou AJOUTER dans les autres feuilles

Merci d'avance pour votre aide ;-)

[Nain porte koi]

Hello,

dans l'exemple le VBA cherche "AJOUTE" et les cellules contiennent "AJOUTER"
Pour supprimer des lignes il faut partir de la fin, car le compteur ne se met pas à jour

[YEN44]

bonjour, super merci


Comment je fais pour supprimer la bonne ligne de BASE DONNEE qui se trouve dans ANCIEN quand je mets SUPPRIMER?

Pour ajouter ça fonctionne :-)

[Nain porte koi]

Comment définissez vous ce qui est à supprimer dans la feuille BASE DONNEE ?
Dans ANCIEN vous avez bien écrit SUPPRIMER mais à quoi ça correspond dans BASE DONNEE

A moins qu'on ne tienne pas compte de ce qui est dans ANCIEN et qu'on utilise juste BASE DONNEE car je ne comprend pas pourquoi vous avez "SUPPRIMER" dans BASE DONNEE ?!

[YEN44]

Bonjour, voici le fichier fini
dans la feuille LOGEMENT A RENDRE quand je met RESTITUER (colonne L) il faut supprimer toute la ligne identique (Ref colonne ADRESSE) dans BASE

LOGEMENTAD LOG 07 - mini.xlsm

merci pour votre aide

[Nain porte koi]

Hello,

mettez cette macro dans le code de la feuille "LOGEMENT A RENDRE"

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
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Me.Columns("L")) Is Nothing Then
 
        If Target.Value = "RESTITUER" Then
 
            Dim Feuille_Base As Worksheet
            Dim Adresse_Recherché As String
 
            Adresse_Recherché = Cells(Target.Row, "E")
            Set Feuille_Base = ThisWorkbook.Sheets("BASE LOGEMENT")
 
            Set Adresse_Base = Feuille_Base.Range("ADRESSE").Find(Adresse_Recherché, LookIn:=xlValues, LookAt:=xlWhole)
 
             If Not Adresse_Base Is Nothing Then
                Feuille_Base.Rows(Adresse_Base.Row).Delete
            End If
 
        End If
 
    End If
 
End Sub

[YEN44]

bonjour, nain porte quoi

Super merci pour ta solution, ça fonctionne super

bonne journée