XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal

ccia

XLDnaute Nouveau
Bonjour le forum,

je fais appel aux JEDI du VBA.

Grace à des recherches personnels et parfois l'aide du forum je suis en train de créer un fichier compta pour une association

et là je bloque sur une macro
Je cherche : depuis une feuille "JOURNAL" supprimer des saisies sur d'autres feuilles (les différents compte)
j'ai en référence le nom de la feuille qui ce retrouve en colonne AQ et le numéro d'ordre qui ce trouve en colonne A
la condition : si la cellule dans les colonne AD et AO est non vide.

voici mon étude :

Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets

Select Case Ws.Name
Case "6023 A", "60281 M", "60282 P", "6063 E", "6064 F", "60681 M", "60682 G", "607 A", "611 S", "6132 L", "616 P", "6185 F", "6231 A", "6238 DIVERS" _
, "6263 A", "627 F", "6414 I", "VIDE", "6571 A", "6586 C", "6713 D", "6718 A", "706 P", "707 M", "708 P", "74 C", "755 C", "756 C", "758 P", "7713 L"


Sheets("JOURNAL").Select
Dim M%
For M = 7 To Range("A65500").End(xlUp).Row
If Ws.Name = Cells(M, "AQ") Then
If Cells(M, "AD") <> "" And Cells(M, "AO") <> "" Then
With Ws 'aller sur la feuille :"....
For i = .Range("A65000").End(xlUp).Row To 2 Step -1 'la variante i ce trouve dans la colonne A
If CStr(.Cells(i, 1)) = Cells(M, "A").Value Then '
.Rows(i).EntireRow.Delete Shift:=xlUp ' retire la ligne de la variante i et remonte d'une ligne
End If
Next
End With
End If
End If
Next M
Case Else
'...Ici le code pour toutes les situations imprévus
End Select
Next Ws

malheureusement ne fonctionne pas ......
dans le fichier joint il faut cliquer sur le bouton du bas droite de la page de garde
et la mocro se trouve dans le module 2

Merci d'avance
 

Pièces jointes

  • Compta-association V1.xlsm
    487.8 KB · Affichages: 5

BrunoM45

XLDnaute Barbatruc
Bonjour CCIA,

Perso je trouve que vous vous y prenez très mal, 1 feuille = 1 compte 🤔

En général il est préférable d'utiliser 1 seule feuille mais d'ajouter une colonne au tableau pour le compte concerné

De plus pourquoi réinventer la roue qui existe déjà ICI ou ICI et certainement ailleurs ?

A+
 

Discussions similaires

Réponses
3
Affichages
633
H
Réponses
19
Affichages
4 K

Statistiques des forums

Discussions
302 098
Messages
2 000 377
Membres
214 829
dernier inscrit
Pierroth29