Recherche formule

Le 26/10/2019 à 08:04

Bonjour,

Je cherche un code VBA qui me permettrait à l'aide d'un bouton de copier plusieurs données d'une ligne sur une feuille 1 et de les copier dans un tableau sur une feuille 2 mais avec un ordonnancement précis et une fois cliquer les données de la feuille 1 se réinitialise.

Si besoin je peux vous fournir un tableau teste en exemple.

Merci d'avance

Le 26/10/2019 à 08:08

Bonjour,

Si besoin je peux vous fournir un tableau teste en exemple.

Ce serait bien

Dans ton classeur exemple, tu montres le départ et ce que tu souhaites à l'arrivée !

Le 26/10/2019 à 11:48

Je fais suite à mon précédent message.

Ci-joint ma feuille excel de test

8copie-de-classeurteste.xlsm (24.95 Ko)
Le 27/10/2019 à 16:07

Bonjour toutes et tous

Coucou Thèze

@Lambo

avec l'enregistreur de macro on pourra sans doute l’améliorer à cause des select

Spoiler
Option Explicit

Sub remplir()
'
' remplir Macro
'

'

    If MsgBox("Etes-vous certain(e) de vouloir valider cet ajout ?", vbYesNo, "Demande de confirmation") = vbYes Then

    Sheets("Sheet1").Select
    Range("Table1[QUEL EST MON SITE]").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("A4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=Table1[QUEL EST MON SITE]"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "=Table1[JE PRECISE MON NOM]"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=Table1[QUEL EST MON NUMERO DE TOURNEE ?]"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "=Table1[IMMATRICULATION DU VEHICULE ?]"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "=Table1[ETAT DES PNEUMATIQUES AV G]"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "=Table1[[ ETAT DES PNEUMATIQUES AV D]]"
    Range("A19").Select
    ActiveCell.FormulaR1C1 = "=Table1[INDEX KM ?]"
    Range("A22").Select
    Sheets("Sheet1").Select
    Range("Table1[PROPRETE DU VEHICULE]").Select
    Sheets("Feuil1").Select
    ActiveCell.FormulaR1C1 = "=Table1[PROPRETE DU VEHICULE]"
    Range("A25").Select
    ActiveCell.FormulaR1C1 = "=Table1[OBSERVATION MECANIQUE ?]"
    ActiveWindow.SmallScroll Down:=-30
    Range("A4").Select
    Sheets("Sheet1").Select
    Range("Table1").Select
    Range("Table1[OBSERVATION MECANIQUE ?]").Activate

    Range("A2").Select

    Else
    MsgBox "Annulé par l'utilisateur"
    End If
    '   Selection.ClearContents
     If MsgBox("Désirez-vous supprimer cette ligne après l'ajout ?", vbYesNo, "Demande de confirmation") = vbYes Then
     Range("Table1").Select
Selection.ClearContents
MsgBox "terminé!"
Else
Exit Sub
  End If
End Sub

crdlt,

André

17copie-de-classeurteste1.xlsm (43.50 Ko)
Le 29/10/2019 à 18:58

Merci à toi j'ai travaillé un peu dessus n'étant pas un expert , j'ai juste pu rajouter un deuxième bouton pour séparer la validation et la suppression.

J'ai aussi rajouté un macro pour l'exporter en pdf.

merci encore

Rechercher des sujets similaires à "recherche formule"