[VBA-E] rechercher une ligne pour remplacer?

salut a tous
Voila , dans mon projet de devis , j'ai un userform qui permet , a partir d'un devis ( selectionner par un combobox), de l'ouvrir puis de creer la facture (jusque qq mot et ligne a modifier) garce a un bouton "creer facture " contenant ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub CommandButton1_Click() selection.Hide Sheets("modele").Range("g1").Copy Workbooks.Open ThisWorkbook.Path & "\devis\" & cbx_ChoixClient.Value & "-" & cbx_ChxDate & ".xls" Range("f9") = "FACTURE" Range("f17") = "TVA-I FR 57437806896" Sheets("devis").Name = "facture" Range("g1").PasteSpecial xlPasteValues ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Factures\" & "" & ActiveWorkbook.Name Workbooks("devis.xls").Close sauvegarde = True End Sub

---

Mon probleme est que : comme le devis a une taille variable , cette ligne (45 par defaut si devis pas trop long) descend au fur et a mesure.
Alors comment faire pour la modifier , precisement la cellule b45 qui contient la phrase : "Plus value de 14,1% si TVA à 19,60%" a remplacer par la phrase " Valeur en votre aimable règlement à réception de la facture "

Merci de votre aide

Tu peux par exemple faire une recherche sur ta cellule, enregistrer la ligne puis écrire dedans

Code:

---

1 2 3 4 5 6

Dim ligne As Long Cells.Find(What:="Plus value de 14,1% si TVA à 19,60%", After:= cells(1, 1), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate   ligne=activecell.row   cells(ligne, 2).value= "Valeur en votre aimable règlement à réception de la facture"

---

voilà çà devrait marcher

tu peu aussi nommer ta cellule b45 ( menu Insertion Nom sous excel..)
par exemple tu la nomme MaPhraseSynthese

et ensuite tu peu y accéder par

Code:

---

range("MaPhraseSynthese")=" Valeur en votre aimable règlement à réception de la facture "

---

:wink:

Citation:

---

Envoyé par bbil

tu peu aussi nommer ta cellule b45 ( menu Insertion Nom sous excel..)
par exemple tu la nomme MaPhraseSynthese

et ensuite tu peu y accéder par

Code:

---

range("MaPhraseSynthese")=" Valeur en votre aimable règlement à réception de la facture "

---

:wink:

---

Un grand merci a toi
je chercher trop compliqué alors que cette solution est plus simple
Merci a toi

Est- ce que la cellule restera nommé meme si je rajoute des lignes ?

Citation:

---

Envoyé par zouille

Est- ce que la cellule restera nommé meme si je rajoute des lignes ?

---

ben si tu insére des ligne la référence à la cellule sera décalée en fonction B46,b47.... :wink: