Problème pour supprimer des données via macro

Paritec

XLDnaute Barbatruc

• 4 Septembre 2013

• #2

Re : Problème pour supprimer des données via macro

Bonjour
a+
Papou🙂

Code:

Private Sub Comsupp_Click()
Dim Lg%, i%
If MsgBox("Attention, la suppression sera définitive" & vbCrLf &  "Voulez vous supprimer ce bien", vbQuestion + vbYesNo) = vbYes Then
    With Sheets("synthèse")
            Lg = Application.WorksheetFunction.Match(Combonumimmo.Text,                    Worksheets("synthèse").Range("B:B"), 0)
            Range("a" & Lg & ":ag" & Lg).Delete Shift:=xlUp
         End With
     With Sheets("Mensualisation")
            i = Application.Match(Combonumimmo.Text, Worksheets("Mensualisation").Range("B:B"), 0)
            Range("a" & i & ":ag" & i).Delete Shift:=xlUp
       
        End With

 

Vote positif 0 Vote négatif

G

gillmo

XLDnaute Occasionnel

• 4 Septembre 2013

• #3

Re : Problème pour supprimer des données via macro

merci paritec, mais ça ne fonctionne pas. La macro supprime les données seulement sur la première feuille

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Septembre 2013

• #4

Re : Problème pour supprimer des données via macro

Bonsoir gillmo le forum
bah oui cela ne marche pas !!!!! c'est évident que c'est ma modification qui n'est pas bonne !!!
ou alors tu n'as pas de feuille Mensualisation ou elle n'est pas orthographiée de la même manière
en tout cas si tu passes ton fichier et les explications dedans on va faire marcher c'est sur
a+
papou🙂

 

Vote positif 0 Vote négatif

G

gillmo

XLDnaute Occasionnel

• 5 Septembre 2013

• #5

Re : Problème pour supprimer des données via macro

bonjour à tous, bonjour paritec

Effectivement, avec un fichier c'est toujours plus simple

A l'ouverture du fichier, il y a un userform qui s'ouvre, dans lequel on peut ajouter des biens (pas de problème à ce niveau).

Lorsque je rappel un bien dans le combobox num immo, les données s'affichent correctement, ensuite je clique sur supprimer, et les données s'effacent de la feuille synthèse mais pas de celle mensualisation.

Je ne vois pas ou cela pose problème.

Cdlt.

 

Pièces jointes

• gillmo.zip

  47.5 KB · Affichages: 20

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Septembre 2013

• #6

Re : Problème pour supprimer des données via macro

Re Gilmo le forum
ton fichier en retour
pour moi la macro n'est pas fiable car en cas de doublon seule la première ligne trouvée est supprimée donc PAS BON mais comme tu as l'air d'aimer les trucs compliqués, du style des comboboxs avec des noms à rallonges des codes avec 50 lignes alors qu'une boucle pourrait faire le travail si les textbox avaient simplement des identifications du style T1 T2 T3 etc
Enfin c'est pour toi alors fais comme tu as envie
a+
Papou🙂

 

Pièces jointes

• gillmo V1.xlsm

  62.8 KB · Affichages: 31

Vote positif 0 Vote négatif

G

gillmo

XLDnaute Occasionnel

• 6 Septembre 2013

• #7

Re : Problème pour supprimer des données via macro

bonjour paritec

merci pour ton aide.

Effectivement, mes codes pourraient être certainement plus court, mais je fais avec mes petites connaissances en vba et j'essaie de me débrouiller un maximum par moi même.

Concernant la macro, je n'aurai jamais de doublon car ce sont des numéros uniques à chaque fois, même si dans l'exemple il y avait deux fois le même code.

En tout cas je te remercie, et je suis à l'écoute de tous conseils pour m'améliorer.

A bientôt

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 6 Septembre 2013

• #8

Re : Problème pour supprimer des données via macro

Re Gilmo le forum
bah pour améliorer tes codes il faut effectivement les réduire et les simplifier cela n'en sera que plus fiable
a+
papou🙂

 

Vote positif 0 Vote négatif