bonjour a vous tous
dans ce code trouvé sur le net et modifié pour mes besoins
a quel endroit peut-on ajouter des lignes afin de copier sur la feuille devis d'autres informations
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager