XL 2013 Copier une valeur SI page n°2

[Danyk01]

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

 

[Danyk01]

oui tu peux essayer dans le fichier que j'ai envoyé
tu clique sur "INSERER PAGE2"

 

[sylvanu]

OUPS ! Pour moi une page ... était une feuille ( une sheet)
Je viens de comprendre. Je reviens avec un truc qui devrait marcher.

 

[sylvanu]

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 :

     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]

 

[Danyk01]

Merci Sylvanu
Je vais essayer, je te tiens au courant demain
mais je le sent bien, je crois que ça fonctionnera
SUPER
Bonne soirée

 

[Danyk01]

J'ai essayé
NICKEL Merci pour ton aide

 

[Danyk01]

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

 

[sylvanu]

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]

Merci Sylvanu
Effectivement les *** provoquent cette erreur.
Merci pour ton aide
danyk01

 

[Danyk01]

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

 

[sylvanu]

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.

Autres applications

Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc

www.excel-downloads.com

 

[Danyk01]

Ok sylvanu j'ai fait un autre Post, j'espère que qqun va répondre.
Sinon tu connaitrais pas qqun qui connait Word?

 

[sylvanu]

Dans Autres applications faites une recherche avec Word. Mais j'ai pas trouvé grand monde.

 

[Danyk01]

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]

Bonjour Danyk,
Sans fichier test, on ne peut que supputer.
Avec la macro en PJ ça marche correctement:

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 ?

 

[Danyk01]

Bonjour Danyk,
Sans fichier test, on ne peut que supputer.
Avec la macro en PJ ça marche correctement:

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 ?