parametre fin de page

bonjour a vous tous

sur mon classeur facturation comment puis-je faire pour qu'en fonction de l'affichage de "d1" qui peut afficher "devis" ;"facture","facture d'acompte",facture sav" au choix de la liste déroulante dans "d1"
que le bas de page change les données des cells concernée par d'autres inscrite par une ligne de code comme ci dessous intégrée a un bouton

Citation:

---

par exemple : "if "D1"= true then

---

Code:

---

1 2 3

Sheets("facturation").Range("E38").Value = "bon pour accord " & " le......./......./...... " Sheets("facturation").Range("E39").Value = "Je verse un acompte de 30% soit: " Sheets("facturation").Range("D35").Value = "Arrêté le présent devis à la somme de :

---

ce code modifie un fichier fixe hors le mien progresse d'une ligne a chaque ajout d'article sans savoir a l'avance combien de lignes seront remplies
c'est surtout comment faire pour que ce code suive la progression de l'avance d'inscription des articles

merci de votre compréhension
cordialement

Pascal

bonjour grizan

un truc tres simple


tu nomme ta cellule de depart

en suite quand tu ajoute des lignes la celulle est deplacé vers le bas

peu importe puisque au lieu de l'appeler par "range(XX) tu l'appelle par son nom


difficile d'etre plus simple



au plaisir

bonjour Patrick

merci de ta réponse:ccool: car je n'y ai pas penser pourtant je l'ai déja utilsée:cry:
il n'y a qu'une cellule qui recoie 2 infos et que je ne vois pas comment lui donnée 2 noms donc c'est:

Citation:

---

Arrêté le présent devis à la somme de :

---

et

Citation:

---

Arrêtée la présente facture à la somme de :

---

voila la seule chose qui peche a moins de les décalés d'une ligne

merci encore:ccool:

Pascal

Bonjour

un exemple
en D1 tu as une liste de validation avec comme variantes: Devis, Facture, Facture SAV, Facture d'acompte

Tu as une cellule nommée "XXX"

Teste ce code (à adapter)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Mot As String   With Sheets("Feuil1")'à adapter If .Range("D1").Text Like "Facture*" Then Mot = "e la présente facture" ElseIf .Range("D1").Text Like "Devis*" Then Mot = " le présent devis" End If .Range("XXX").Value = "Arrêté" & Mot & " à la somme de:" End With

---

bonjour Mercatog et Patrick

merci a vous 2 :ccool: de ce que vous avez fait pour m'aider :ccool:
cela vas me facilité grandement ma recherche de dimanche, je ne peux faire mieux que vous laisser continuer a aider les pseudos ignorants
:mrgreen::ccool::ccool:

bon week end a vous:ccool:

cordialement:ccool:

Pascal8-)