remplacer une ligne par une autre

[zouille]

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 (juste qq mot et ligne a modifier) garce a un bouton 'creer facture ' contenant ce code :

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

 

[coco_lapin]

Bonjour zouille et le forum

Je pense que tu devrais nommer certaines cellules (en utilisant Isertion/Nom/définir) puis utiliser ces noms dans le code.

Exemple je nomme une cellule 'Ma_cellule'

Pour écrire dans cette cellule j'utilise le code:
Cells(Range('Ma_cellule').Row,Range('Ma_cellule').Column)='fhfhfh'

 

[bebere]

bonjour Zouille,CocoLapin,le Forum
pourquoi pas Ado,écrire dans un fichier fermé
c'est un exemple si tu me donnes les renseignements je te l'arrange
après les fêtes que je souhaite à toutes et à tous excellentes

Sub CommandButton1_Click()
'dans vba menu outils -> références -> cocher Microsoft ActiveX
'Data Object 2.X x=chiffre version

'le chemin complet du fichier
fichDest = 'D:\\OLE_Test.xls'
'Open the ADO connection to the Excel workbook
Set oConn = New ADODB.Connection
oConn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & fichDest & ';' & _
'Extended Properties=''Excel 8.0;HDR=NO;IMEX=2;'''

'Add values to individual cells
oConn.Execute 'Insert into Cible (F1) Values ('Fredo')'

'Close the connection
oConn.Close

'Open the workbook to examine the results
DoEvents
Workbooks.Open fichDest
End Sub

à bientôt