Incriminer un numéro qui possède une lettre

Bonjour,

Ca veut dire quoi incriminer pour toi ?

eric

Bonjour Éric,

Désolé, je me suis mal exprimé, ce que je veux, c'est augmenter mes numéros de un, de la case A6 de la feuiile1 et case A7de la feuille 2 à l'insertion d'une ligne afin que mes numéros de soumission et mes numéros de factures ce suivent dans mes listes.

Merci

Re,

le plus simple est de sauvegarder le dernier n° dans A2 (masqué par ton bouton) et :

Sub numero()
' numero Macro
Dim num As Integer '
    Rows("6:6").Insert Shift:=xlDown
    [A2] = [A2] + 1
    [A6] = "S-" & Format([A2], "0000")
End Sub

Même principe pour l'autre feuille.

eric

PS: les .select sous presque toujours inutiles et toujours chronophages.

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Wow Éric tu es génial, un gros merci.

Maintenant j'ai encore autre chose à régler, je ne sais pas si j'abuse et si tu peux me réparer les deux autres macros qui ne fonctionne pas mais je t'en serais vraiment reconnaissante.

Dans le module 1 du même fichier, le transfère de données ne fonctionne plus, peut-être parce que j'ai trop niaisé dedans. Je crois qu'il manque quelque chose mais je ne sais plus quoi.

Sub Transferer_Donnees()
Feuil2.Cells(7, 3) = Feuil1.Cells(var_ligne, 3) 'Nom du projet
Feuil2.Cells(7, 4) = Feuil1.Cells(var_ligne, 4) 'type
Feuil2.Cells(7, 8) = Feuil1.Cells(var_ligne, 5) 'Montant
Feuil2.Cells(7, 11) = Feuil1.Cells(var_ligne, 7) 'Plan
End Sub

Dans le même module 1 Ouvrir_Word_Onglet_Soumission, une fois sur deux mon action fonctionne mais une erreur 462 m'indique que le serveur distant n'existe pas ou n'est pas disponible. Après mes multiples recherche je crois que c'est activedocument qui ne fonctionne pas mais j'ai pas réussi à le remplacer et le faire fonctionner correctement.

Sub Ouvrir_Word_Onglet_Soumission()
Dim monWord As Word.Application
Set monWord = New Word.Application
monWord.Visible = True
monWord.Documents.Open ("C:\Users\Comptabilité\Desktop" & "\" & "Modèle Fax Soumission.docx")

ActiveDocument.Bookmarks("Texte7").Select
var_soumnum = Cells(6, 1) '6e ligne 1e colonne
monWord.Selection.TypeText var_soumnum

ActiveDocument.Bookmarks("Texte3").Select
var_projet = Cells(6, 3) '2e ligne 3e colonne
monWord.Selection.TypeText var_projet & var_type

ActiveDocument.MailMerge.OpenDataSource Name:="C:\Users\Comptabilité\Documents\Mes Sources de données\Liste de nom pour Fax soumission.mdb"

'monWord.PrintOut
End Sub

Bonjour Éric,

là tu viens de me perdre, il faudrait que tu me l'insère au bon endroit dans mes exemples svp. je suis pas assez calé.

Merci

Je t'ai aussi ajouté un bouton qui met la ligne de la cellule sélectionnée dans la variable avant d'appeler ta procédure que tu puisses tester.
Mais qu'on se comprenne bien, ton code est vraiment incomplet, j'espère que tu en es conscient. Je n'ai fait que répondre à ta question.
Il faut que tu définisses quelle ligne copier, à quelle occasion, que tu voies sur l'autre feuille si elle n'existe pas, que tu y insères une ligne et enfin tu peux coller....

https://www.cjoint.com/c/CErwvmUXeL3
Tu pourras mettre en résolu, ta question de départ l'est.
Merci

eric

Salut Éric,

Désolé je ne comprend plus rien, ce que je veux c'est quand que je clique dans la colonne H et que j'inscris le numéro du projet, je veux qu'avec le bouton contrat les données ce transfère dans la feuille contrat. Présentement, les données transférer sont ceux dans la feuille soumission en dessous de ma modification fait, alors ça ne fonctionne pas. Est-ce que tu aurais autre chose?

Merci