Bonjour
une proposition de macro de mise a jour
a attribuer a un bouton ou raccourci clavier :
Sub MAJFiches()
Dim cel As Range, ws As Worksheet, trouve As Boolean
Application.ScreenUpdating = False
For Each cel In Range("Noms")
For Each ws In ActiveWorkbook.Sheets
If ws.Name = cel Then
trouve = True
Exit For
End If
Next
If trouve = True Then
Sheets("Fiche").Range("C2") = cel
With Sheets(cel)
.Range("A1:G31") = Sheets("Fiche").Range("A1:G31").Value
.Range("C2").Validation.Delete
End With
End If
trouve = False
Next
Application.ScreenUpdating = True
End Sub
Attention ne pas faire des tests sur le fichier originale, toujours utiliser une copie
cela met à jour toutes les feuilles d'un coup, si on ne veut faire que pour la ligne selectionner on peut modifier le code
Fred