Suppression onglets

pierrejean

XLDnaute Barbatruc

• 2 Avril 2015

• #2

Re : Suppression onglets

Qu'est-ce qu'elle a ma gueule ???

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 2 Avril 2015

• #3

Re : Suppression onglets

Bonjour pierrejean,

rien !!!

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Avril 2015

• #4

Re : Suppression onglets

Bonjour à tous,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  23.7 KB · Affichages: 56
• 111.xlsm

  23.7 KB · Affichages: 61
• 111.xlsm

  23.7 KB · Affichages: 58

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 2 Avril 2015

• #5

Re : Suppression onglets

Bonjour phlaurent55,
c'est magic merci

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 24 Avril 2015

• #6

Re : Suppression onglets

re,
phlaurent55,
ton code fonctionne merveilleusement bien.
Maintenant j'entre des nom composé " nom - prenom "
j'ai concatener en colonne D.
comment modifier le code pour qu'il fonctionne de nouveau sans prendre en compte les formules mais les valeurs.
Merci

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 25 Avril 2015

• #7

Re : Suppression onglets

Re,

(sans voir le fichier) peut-être comme ceci:

Code:

Sub Bouton1_Clic()
For i = Sheets.Count To 2 Step -1
test = 0
For j = 1 To Range("D65535").End(xlUp).Row
    If Sheets(i).Name = Cells(j, 4) Then test = 1
Next j
If test = 0 Then
    Application.DisplayAlerts = False
    Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 11 Mai 2015

• #8

Re : Suppression onglets

Bonjour phlaurent55,

super merci.

 

Vote positif 0 Vote négatif