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
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 :
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
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.
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
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.
Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc
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?
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 ?
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 ?