XL 2019 macro avec fonction copié coller si rempli par la macro

[arck]

Bonjour tous le monde,

Encore besoin d'un coup de pouce 😉 .

alors j'espère réussir à poser ma question correctement

J'aimerais quand j'effectue ma macro

Sub clic()
Dim DerLgn As Long
Selection.Copy
 With Sheets("table devis")
       .Select
       DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'On determine la premiere cellule Vide de la Colonne 2  "B"'
  .Range("B" & DerLgn).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 End With
End Sub

Après cette action j'aimerais que la macro copie l'information dans "table devis" Colone A ligne que je viens de remplir avec ma macro, et le colle dans "devis" N° de devis Je vous ai mis a disposition un petit fichier exemple

Merci a tous pour votre aide

 

[cathodique]

Bonjour,

encore une autre fois, rien compris.

 

[Phil69970]

Bonjour à tous

@arck

C'est vrai que c'est un peu confus
Explique un peu mieux ....

Selection.Copy

Que sélectionnes tu , quelle cellule de quelle feuille ????

Après cette action j'aimerais que la macro copie l'information dans "table devis" Colone A ligne que je viens de remplir avec ma macro, et le colle dans "devis" N° de devis

La c'est le flou total !!!!!
Quel information ?

 

[arck]

@cathodique @Phil69970 est ce que c'est mieux avec les photos ?

 

[Phil69970]

@cathodique @Phil69970 est ce que c'est mieux avec les photos ?

Euh Non ....

Ecrit en rouge le résultat voulu à l'endroit voulu ==> Du début à la fin sans rien oublier !!!

 

[cathodique]

@cathodique @Phil69970 est ce que c'est mieux avec les photos ?

C'est vraiment du n'importe quoi. Tu fais des captures de ce qu'on voit déjà dans ton fichier.

Ce n'est pas avec ce manque de sérieux que tu trouveras de l'aide.

Ce qui est clair pour toi, ne l'est pas pour celui qui essaie de t'aider.

 

[Phil69970]

@arck

Et réponds aux questions que l'on te posent.
Je t'ai posé 2 questions et 1 demande de précision et j'ai eu 0 réponse pas cool ....

Que sélectionnes tu , quelle cellule de quelle feuille ????

Quel information ?

La c'est le flou total !!!!!

 

[cathodique]

perso, ta 1ére demande j'aurais aussi ajouté automatiquement le numéro, au lieu d'être pré-rempli manuellement.

pour la suite on attend tes explications. le minimum de respect envers ceux et celles qui essaient de t'aider et de répondre aux questions posées.

Sub CopierNomEtNumeroAuto()
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim Nom As String, Lig As Long

    Set wsSource = ThisWorkbook.Sheets("encodage")
    Set wsDest = ThisWorkbook.Sheets("table devis")
    
    ' Récupérer le nom en A4
    Nom = Trim(wsSource.Range("A4").Value)
    
    If Nom = "" Then
        MsgBox "Veuillez saisir un nom dans la cellule A4.", vbExclamation
        Exit Sub
    End If
    
    ' Trouver la première ligne vide en colonne B (à partir de la ligne 2 à cause de l'en-tête)
    Lig = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Row + 1
    If Lig < 2 Then Lig = 2
    
    ' Insérer le numéro automatique en colonne A
    wsDest.Cells(Lig, "A").Value = Lig - 1
    
    ' Insérer le nom en colonne B
    wsDest.Cells(Lig, "B").Value = Nom
    
    MsgBox "Nom ajouté à la ligne " & Lig & " avec le numéro " & Lig - 1 & ".", vbInformation
End Sub

 

[Phil69970]

@arck

Après une torture de mon petit cerveau une petite lumière a jailli 🤣 🤣 🤣
Serais je connecté au cerveau de @arck ?
En tout cas il est très confus et super compliqué ...... et je voudrais vite en sortir .... 🤣 😳

Merci de ton retour

 

[cathodique]

@arck

Après une torture de mon petit cerveau une petite lumière a jailli 🤣 🤣 🤣
Serais je connecté au cerveau de @arck ?
En tout cas il est très confus et super compliqué ...... et je voudrais vite en sortir .... 🤣 😳

Merci de ton retour

Bravo! tu es parvenu à te connecter pour extraire les réponses à tes questions.

Arck, tu es une vraie torture.😱😱😱

 

[arck]

@cathodique, @Phil69970


Bon ok, je recommence depuis le début.
J'ai une macro sur ma feuille encodage "A4", qui copie le nom que j'écris dans A4.
Vers ma feuille Table devis colonne B et choisi la ligne suivante vide.

Sub clic()
Dim DerLgn As Long
Selection.Copy
 With Sheets("table devis")
       .Select
       DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'On determine la premiere cellule Vide de la Colonne 2  "B"'
  .Range("B" & DerLgn).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 End With
End Sub

Après que ma macro ai collé le nom dans la feuille table devis Colonne B, j'aimerais copié le N° de devis qui ce trouve colonne A correspondant au nom que la macro vient de collé en colonne B et le collé dans ma feuille Devis "D2"

 

[arck]

@arck

Après une torture de mon petit cerveau une petite lumière a jailli 🤣 🤣 🤣
Serais je connecté au cerveau de @arck ?
En tout cas il est très confus et super compliqué ...... et je voudrais vite en sortir .... 🤣 😳

Merci de ton retour

Effectivement ca fonctionne merci et désolé si on ne c'est pas compris

 

[AtTheOne]

Bonjour à toutes et à tous, bonjour @arck
Ce fil est clos depuis un bout de temps mais voici une proposition avec userform, un modèle de devis, et la création d'un devis vierge portant le N° voulu.
Si ça peut aider ...
À bientôt