Discussion :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Memes]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zouille]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 ?

[SfJ5Rpw8]

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....