Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Avec une petite sécurité !?
Cdlt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Me.Name = IIf(IsEmpty(Target), Me.CodeName, Target.Value)
End If
End Sub
Bonjour,
Une autre proposition (à adapter).
Cdlt.
Option Explicit
Public Sub ListFormulas()
Dim wb As Workbook, ws As Worksheet, wsList As Worksheet
Dim rngFormulas As Range, Cell As Range
Dim lRow As Long
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
On Error Resume...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.