Discussion :

[huître]

alors voilà j'ai un probleme

j'ai un tableau qui fait référence à plusieurs feuilles



donc ce que je veux par exemple

les libellés de la colonne B2 à F2 font référence à des onglets la colonne A correspond à des clés qu'on retrouve sur ces feuilles (dans la colonne AE pour chaque feuille)

j'aimerai

créer un code qui ressemble un peu à celui

je vais le traduire sous la forme d'un algorithme

pour chaque clé
faire si aar=1 alors supprimer la clé sur les autres feuilles(celle marqué par un 1)


voila merci d'avance

[Paritec]

Bonjour Huitre le forum
si tu passe ton fichier je te le fait
n'oublies pas de mettre les explications dans le fichier
a+
papou

[huître]

salut alors je t'envoie le fichier accompagné d'un exemple

[huître]

bon j'ai essayé un code

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
24
25
26
27
28
29
30
31
32
33
Sub suppression_doublons()
 
    Dim plage
    Dim dercel As Long
    Dim lavaleur
    Dim rg As Range
    Dim tableau
 
 
    dercel = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    plage = Selection
 
    For i = 1 To dercel
    If plage(i, 2) = 1 Or plage(i, 3) = 1 Then
            If plage(i, 2) = 1 Or plage(i, 4) = 1 Or plage(i, 5) = 1 Then
            lavaleur = plage(i, 1)
            End If
    End If
    Next
 
    For Each sh In Worksheets(Array("RST", "PCH", "EXP DIF"))
    Set tableau = sh.Range("AE2:AE" & dercel)
    Next
 
    For Each rg In tableau
    If rg = lavaleur Then
    rg.Rows.delete
    End If
    Next
 End Sub

ça me donne rien et puis je n'ai même pas un message d'erreur

bon dsl je ne manipule pas du tout les tableaux

[Paritec]

Bonsoir Huitre le forum
dans ton fichier il n'y a aucune explication dans le fichier de ce que tu as et de ce que tu souhaites obtenir, expliques et on te répondra.
Tu rajoutes tes explications dans le fichier et on comprendra
a+
papou

[huître]

bonsoir

En effet , tout ça n'est pas très clair

donc je viens de renvoyer le fichier avec toutes les instructions que j'ai détaillée au maximum

merci d'avance