Création d'un bouton automatiquement

bonjour a vous

dans un code qui permet de créer une facture peut on y ajouter une ligne de code afin d'y intégré un bouton déjà codé, voici le code non fini de création de feuille

Dim Sh As Worksheet, Trouve As Range
Feuil9.Copy
Set Sh = ActiveSheet
Sh.Name = "Facture " & Sh.Range("D1").Value
Sh.Range("D1") = "FACTURE"
With Sh
   With .Range("C:C")
       Set Trouve = .Find(What:="Arrêtée Somme", LookIn:=xlValues, _
           LookAt:=xlPart, MatchCase:=False, SearchDirection:=xlNext)
       If Not Trouve Is Nothing Then
           Trouve.Offset(1).Resize(20, 2).Delete (xlUp)
       End If
   End With
End With
End Sub

et peut 'on me commenter la dernière partie du code

With Sh
   With .Range("C:C")
       Set Trouve = .Find(What:="Arrêtée Somme", LookIn:=xlValues, _
           LookAt:=xlPart, MatchCase:=False, SearchDirection:=xlNext)
       If Not Trouve Is Nothing Then
           Trouve.Offset(1).Resize(20, 2).Delete (xlUp)
       End If
   End With
End With

Pascal

Bonjour

Cdlt

With Sh
        With .Range("C:C")
            'Cette méthode recherche des informations spécifiques dans une plage.
            Set Trouve = .Find(What:="Arrêtée Somme", LookIn:=xlValues, _
                LookAt:=xlPart, MatchCase:=False, SearchDirection:=xlNext)
            'Cette méthode renvoie Nothing si aucune correspondance n'est trouvée
            If Not Trouve Is Nothing Then
                'Si on a un résultat, on définit la plage à effacer
                'Dans ce cas, on décale d'une ligne et on redimensionne
                'la plage de 20 lignes et 2 colonnes
                Trouve.Offset(1).Resize(20, 2).Delete (xlUp)
            End If
        End With
    End With

bonjour Jean-Eric

Merci pour les commentaires explicatif du code trouvé sur le net

Pascal

Re,

Penser à clore le sujet

bonsoir Jean-Eric

je ne clos pas le post car ma première demande n'est pas résolue

citation: dans un code qui permet de créer une facture peut on y ajouter une ligne de code afin d'y intégré un bouton déjà codé, voici le code non fini de création de feuille

Pascal