Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Copier une valeur SI page n°2

  • Initiateur de la discussion Initiateur de la discussion Danyk01
  • Date de début Date de début

Danyk01

XLDnaute Occasionnel
Bonjour
J'aimerais recopier une valeur d'une cellule N56 vers un endroit, mais si il y a une deuxième page il faut recopier la valeur N119 au même endroit
Le fichier capture ci-joint montre la formule N56 (cadre en rouge)
Merci de votre aide
 

Pièces jointes

  • Capture.pdf
    253.4 KB · Affichages: 42

sylvanu

XLDnaute Barbatruc
Supporter XLD
Alors il y a infiniment plus simple.
Vous nommez les 4 cellules : MontantHT, TVA, MontantTVA et MontantTTC et le code devient indépendant de la place des cellules même après insertion de pages.
Le code est alors simplissime :
VB:
     Journal.Sheets("Liste").Range("E" & ligne).Value = [MontantHT]
     Journal.Sheets("Liste").Range("F" & ligne).Value = [TVA]
     Journal.Sheets("Liste").Range("G" & ligne).Value = [MontantTVA]
     Journal.Sheets("Liste").Range("H" & ligne).Value = [MontantTTC]
 

Pièces jointes

  • 02.DEVIS-FACTURES Partage (3).xlsm
    317 KB · Affichages: 3

Danyk01

XLDnaute Occasionnel
Hello Sylvanu j'ai besoin de toi
J'ai un problème pour enregistrer mon document commande
Pourtant la fonction marche très bien sur mes documents devis
apparemment il ne trouve pas le chemin, mais il est juste
Merci pour ton aide
 

Pièces jointes

  • 01.COMMANDE FOURNISSEUR 2020.xlsm
    81.8 KB · Affichages: 2
  • Capture (1).JPG
    201.6 KB · Affichages: 2
  • Capture (2).JPG
    249.9 KB · Affichages: 1

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Si on run, on obtient :
ch="***A Renseigner***"
et NomFichier="COMMANDE N° 202021 PLACARDECOR Distribution ***A Renseigner***.xlsm"
D'une part je pense qu'il faut renseigner "ch",
d'autre part "*" signifie quelque chose en VBA donc la recherche ne peut qu'engendrer une erreur.
 

Danyk01

XLDnaute Occasionnel
Bonjour Sylvanu
J'ai une question sur WORD
Peut-on opérer une fonction sur Word?
C'est une chemise pour les dossiers chantiers en A3
Pour que ça soit visible sur la pile de dossiers, j'aimerais que ça me recopie le nom et le chantier en haut à droite sur la feuille, en renseignant le nom et le chantier principal.
Est-ce possible?
Merci pour ton aide
danyk01
 

Pièces jointes

  • 00.CHEMISES DKB Agencement.docx
    43.9 KB · Affichages: 0

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Danky,
Sorry, Je n'y connais rien sur VBA sur Word.
Faites un nouveau Post sur Autres applications, vous avez plus de chances de trouver une réponse.
 

Danyk01

XLDnaute Occasionnel
Bonjour Sylvanu, meilleurs vœux pour l'année 2021
J'ai un problème avec une Macro, peux tu jeter un coup d’œil?

'*******************************************************
'Procédure permettant de saisir le dernier numéro +1
'*******************************************************

Sub ProchainNum()

With Workbooks("JOURNAL_DEVIS.xlsx")

derlig = .Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row
Range("H9").Value = .Sheets("Liste").Range("A" & derlig).Value + 1
End With

End Sub

Si j'actionne le bouton de la macro ça me met un 1 et non le num. suivant ex: 202101..202102 etc
y a t'il une erreur dans la formule?

Merci pour ton aide
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Danyk,
Sans fichier test, on ne peut que supputer.
Avec la macro en PJ ça marche correctement:
VB:
Sub ProchainNum()
    derlig = Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row
    Range("H9").Value = Sheets("Liste").Range("A" & derlig) + 1
End Sub
J'ai rajouté un bouton pour test qui ajoute un élément en colonne A.
Si votre macro remonte toujours 1, c'est qu'il pointe en A une cellule vide. Avez vous des éléments en clonne A ?
 

Pièces jointes

  • Test.xlsm
    15.2 KB · Affichages: 1

Danyk01

XLDnaute Occasionnel
 

Discussions similaires

Réponses
2
Affichages
72
Réponses
5
Affichages
395
  • Question Question
Microsoft 365 Colorier ligne si
Réponses
3
Affichages
241
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…