Re : Exclure les feuilles Excel qui commencent par une lettre "donnée" en VBA
Re canemarchepas et le forum,
Encore une question
Sur ta derniere proposition de macro :
Si je veux copier coller les cellules en valeur, comment je l'integre à la macro ?
Je me suis apercu quand j'ai des formules que Excel me demande d'actualiser les liens
(( donc si j'ai 100 feuilles il faut annuler faire 100 fois la manip d'annuler
Merci
BlouBlou
'Routine de construction de récapitulatif
Sub FamilleF1()
Dim WS As Worksheet 'Déclaration de l'objet Feuille WS
Dim LigneFin As Long, LigneFin2 As Long"Déclaration de pointeur derniére ligne avant ajout et aprés ajout
'Boucle sur l'ensemble des feuilles du classeur
For Each WS In Worksheets
'Mise en facteur de la feuille , chaque élement commençant par un . s'y rapporte
With WS
'instr regarde si .name est contenu dans la liste interdite, renvoie la position dans la chaine
' Si le caractére de gauche de .name est différent de O
If InStr(1, "Recap,RAF,RAS,Babou", .Name) = 0 And Left(.Name, 1) <> "O" Then
'Pointe sur la ligne vide de la colonne B de la feuille Recap
LigneFin = Sheets("Recap").Range("B" & Rows.Count).End(xlUp).Row + 1
'Copie de la zone vers la feuille récap en commençant en B de la ligne vide
.Range("B31:M38").Copy Sheets("Recap").Range("B" & LigneFin)
'Pointe sur la derniere ligne utilisée de la colonne B de la feuille Recap
LigneFin2 = Sheets("Recap").Range("B" & Rows.Count).End(xlUp).Row
'Affecte à N de ligne vide avant copie à derniere ligne utilisée aprés copie le contenu de D25
Sheets("Recap").Range("N" & LigneFin & ":N" & LigneFin2) = .Range("D25")
End If
End With
Next WS
End Sub