une demande

jeffe

XLDnaute Impliqué

• 7 Avril 2017

• #2

gardian à dit:

bonjour le forum je viens vous demandé votre aide
voila mon problème j ai une feuille nommé base les chiffres que j ai en colonne B(n° travaille) je recherche comment les envoyées en feuille 2 colonne A
pouvez vous me dire comment faire ??? ou s'il y a ne erreur dans mon travaille

avec tout ma gratitude

Cliquez pour agrandir...

hello, pas certain d'avoir compris, mais sur feuille2, cellule colone A tu mets =base!B2
le plus facile celectionne la cellule A7 de la feuille2, dedans tu mets = puis tu retournes sur ta feuille base, et tu selectionnes B2, rest plus qu'a reproduire la mise en forme

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 7 Avril 2017

• #3

merci pour la réponse oui effectivement j ai déjà essayé cette solution
pour plus de rapidité je recherche à ne pas inscrire une deuxième fois les numéros de travaille
je vais essayé

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 7 Avril 2017

• #4

merci pour la réponse oui effectivement j ai déjà essayé cette solution
pour plus de rapidité je recherche à ne pas inscrire une deuxième fois les numéros de travaille
je vais essayé

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 7 Avril 2017

• #5

quand je fais la formule rien ne se passe il reste la formule visible peut être la macro ou il doit avoir une erreur

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 11 Avril 2017

• #6

bonsoir le forum

après un bon nombre d essaie, impossible de faire mon USF

ma demande est la suivante peu ton mettre en automatique le formulaire EXCEL sur ma feuille via un boutons .si cela est possible un personne pourrais t 'il me dire comment je doit m'y prendre si bien sur cela peut être fait

avec tout mes remerciements

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 21 Avril 2017

• #7

gardian à dit:

bonsoir le forum

après un bon nombre d essaie, impossible de faire mon USF

ma demande est la suivante peu ton mettre en automatique le formulaire EXCEL sur ma feuille via un boutons .si cela est possible un personne pourrais t 'il me dire comment je doit m'y prendre si bien sur cela peut être fait

avec tout mes remerciements

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 21 Avril 2017

• #8

Je pense restée ici pour mes question stupide pour pas nuire aux forum
voila bientôt mes poulain vont partir chez eux il sont rétablie dans ma base j ai la première colonne qui a une liste déroulante pour leur numéros , date de naissance , race , sexe
j ai une autre feuille pour le transport je recherche a recopier tout ses renseignements sur cette feuille je pense a recherche V mais voila impossible de faire CTRL+MAJ+ENTREE rien se passe y à t 'il un différence entre certaine touche des clavier ou vous connaisses une autre formule peut être ????

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 21 Avril 2017

• #9

Bonjour,

un essai

VB:

Option Explicit
Sub essai()
    Dim i As Integer, dl As Integer
    dl = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To dl
        Feuil2.Cells(5 + i, 1) = Feuil1.Cells(i, 1)
    Next i
End Sub

ton fichier en retour

 

Pièces jointes

• essaie 1.xls

  207 KB · Affichages: 31

Dernière édition: 21 Avril 2017

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 21 Avril 2017

• #10

Code:

Option Explicit
Sub essai2()
    Dim i As Integer, dl As Integer, Dp As Worksheet
    Set Dp = Worksheets("depart")
    With Worksheets("base")
        dl = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 4 To dl
            If IsNumeric(.Cells(i, 2)) And .Cells(i, 2) <> 0 Then
                Dp.Cells(5 + i, 2) = .Cells(i, 2)
                Dp.Cells(5 + i, 1) = .Cells(i, 3)
                Dp.Cells(5 + i, 3) = .Cells(i, 7)
                Dp.Cells(5 + i, 4) = .Cells(i, 4)
                Dp.Cells(5 + i, 5) = .Cells(i, 6)
                Dp.Cells(5 + i, 6) = .Cells(i, 11)
            End If
        Next i
    End With
End Sub

à tester

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2017

• #11

Bonsoir gardian 🙂, Cath 🙂

Ton fichier en retour, j'ai mis un bouton sur la feuille départ, clique dessus pour voir le résultat.
Pour voir le code, clique sur Developpeur > Visual Basic. Mais personnellement, j'enverrais les informations par date de départ et en faisant un tri descendant; ainsi tu aurais toujours en premières lignes les départs les plus récents.

 

Pièces jointes

• essaie 23.xls

  225.5 KB · Affichages: 36

Dernière édition: 21 Avril 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Avril 2017

• #12

Re gardian

Ici, je me suis basé sur la date de naissance, puisqu'il n'y a pas de date de départ. Si boucle et transport sont remplies, il faudra modifier

Dp.Range("a9:f65536").Sort Dp.Range("d9"), xlDescending par Dp.Range("a9:h65536").Sort

 

Pièces jointes

• essaie 23-V2.xls

  238 KB · Affichages: 36

Dernière édition: 22 Avril 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2017

• #13

Bonjour gardian

Franchement, tu veux changer combien de fois le fichier?! Ici logiquement la base de données est la feuille registre et base de données est la feuille des résultats. Ensuite pour le numéro de travail ce n'est pas N2 mais L2 et il n'y a pas de liste déroulante, pour la garder il faut enregistrer le fichier au format .xlsm. Et ce n'est pas moi qui à fait le code, peut-être cathodique.

 

Dernière édition: 23 Avril 2017

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 23 Avril 2017

• #14

je comprend ta colère je te présente toute mes excuses,
bon ok je vous laisse tranquille et encore tout mes excuses

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2017

• #15

Re gardian

En PJ, le nouveau classeur exemple. J'ai rajouté la colonne SEXE non incrite dans la feuille registre et une ligne de code pour calculer l'âge. RC je ne vois pas à quoi elle se réfère. Je te laisse compléter la colonne médicament. La macro est essai 2.

 

Pièces jointes

• veaux 005.xlsm

  109.3 KB · Affichages: 36

Vote positif 0 Vote négatif