Où ajouter des lignes dans ce codes
bonjour a vous tous
dans ce code trouvé sur le net et modifié pour mes besoins
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub Créer_La_Facture()
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")
'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
End Sub |
a quel endroit peut-on ajouter des lignes afin de copier sur la feuille devis d'autres informations
et aussi comment quand le code est appelé créer un bouton automatiquement et inclure un code a ce bouton, ou faire appel a un code dans le classeur qui a fait appel a cette macro
Pascal