Discussion :

[grisan29]

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

par exemple : "if "D1"= true then

Code :

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

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

[patricktoulon]

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

[grisan29]

bonjour Patrick

merci de ta réponse car je n'y ai pas penser pourtant je l'ai déja utilsée
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:

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

et

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

Pascal

[mercatog]

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 :

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

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

[grisan29]

bonjour Mercatog et Patrick

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


bon week end a vous

cordialement

Pascal