report de données sur differentes feuilles

[malcy45]

Bonjour a toutes et a tous,

j ai un tableau de base mensuel ou je recense toutes les opérations qui doivent etre faites par des collègues et sur les feuilles suivantes je leur remet leur liste personnelle.
Actuellement je fais ça a l aide de liaison spéciales et d un simple filtre avec le nom de la personne ou je lui donne les opérations a effectuer classées par dates avec l heure et le lieu.

Si vous pouvez m aider a automatiser la bascule sur les feuilles, j'en serai le plus heureux des hommes.
Amicalement
Rémi😀

 

[itzik92]

Re : report de données sur differentes feuilles

Re bonsoir Jean Marie,

ci-joint le modele avec plus d'informations,, il manque dans le meme classeur, la 4eme feuille qui est identique que la feuilFACTURE avec la cellule "F6" en +qui ne doit figurer sur la FACTURE,

Amicalement

itzik

 

[malcy45]

Re : report de données sur differentes feuilles

Salut Rémi
bonsoir le fil

pour ce qui est de l'éffacement des feuilles la macro n'éfface que la plage ou ce trouvent les données précédemment transférees

pour ce qui est du bug sur les feuilles je n'ai pas compris

pour ce qui est des Lol ,j'adore rire lol

itzik92 je viens de voir ton message je vais voir ce que je peux pour toi
bonne fin de Soirée

coucou jean marie

Je vais tenter d etre plus clair vu l heure, j ai voulu creer dix feuilles correspondants aux dix personnes que je pouvais trouver mais dans mon tableau de base il n y avait que 4,5 ou 7 personnes et pas obligatoirement dix comme le nombre de feuilles pretes et la j avais une erreur sur la macro par contre je n ai pas note la ligne qui faisait defaut mais je crois que c'etait celle la
For C = 0 To UBound(T, 2)
For C2 = 1 + C To UBound(T, 2)
tu comprendras mieux que moi je suppose
Et merci a pierrot93 pour la fonction date car je peux confirmer que c'est suite a l emploi de la macro que ca a plante et ca avait plante au boulot et la je fais mieux le rapprochement
C'est en apprenant qu on devient moins con (elle est de moi mais elle me plait)

Bon je suis fatigué donc excusable
Merci a tous pour ce post et bonne chance aux autres
Et je le repete : i ll be back
Amicalement
Rémi

 

[malcy45]

Re : report de données sur differentes feuilles

re jean marie
J'ai une demande
T'est il possible de faire en sorte que lors du recopiage la partie basse de la feuille, elle ne sois pas effacée car j'ai besoin d y mettre une formule.
Amities
Rémi
ps : dis moi quelles lignes modifiées que je comprenne comment ca fonctionne
Merci

 

[ChTi160]

Re : report de données sur differentes feuilles

Salut malcy45
Bonsoir Le fil
Bonsoir Le Forum
voilà la ligne que j'ai modifiée

.Range("B3:E" & IIf(.Range("B65536").End(xlUp).Row = 2, 3, .Range("B65536").End(xlUp).Row - 1)).ClearContents

la derniere ligne de la plage à effacer, sera l'avant derniere du tableau
on détecte la dernière et on prend celle juste au dessus 😉
Bonne fin de Soirée

 

[ChTi160]

Re : report de données sur differentes feuilles

re itzik92
erreur de message

excuse Lol
bonne fin de Soirée

 

[itzik92]

Re : report de données sur differentes feuilles

Bonsoir Jean Marie

les cellules fusionnées , c'etait pour la mise en page de la facture, mais comment faire pour les cellules: 'Designation' Nom ' Prenom ' Adresse ' qui doivent avoir une plage + importante ? si non pour les autres cellules, on peut les liberer,

Amicalement
itzik

 

[ChTi160]

Re : report de données sur differentes feuilles

arff
j'arrive à transférer les données, il suffit de mettre cela _
comme procèdure du bouton Valider

Private Sub CommandButton2_Click()
Dim Derlgn As Integer  
With Worksheets("Adresse")
 Tabrecup = .Range("A17:L" & IIf(Range("A27").End(xlUp).Row = 16, _
 17, Range("A27").End(xlUp).Row))
     If Range("A17") = "" Then MsgBox "il n'y à pas de données": Exit Sub
  Derlgn = .Range("A65536").End(xlUp).Row + 1
    .Cells(Derlgn, 1) = Range("F6").Value 'n° Facture
    .Cells(Derlgn, 2) = Range("J3").Value  'le Nom
    .Cells(Derlgn, 3) = Range("J4").Value  'le Prénom
    .Cells(Derlgn, 4) = Range("J6").Value  'adresse
    .Cells(Derlgn, 4) = IIf(Range("J8").Value = "", .Cells(Derlgn, 4),  _
            .Cells(Derlgn, 4) & " " & Range("J8").Value)
    .Cells(Derlgn, 5) = Range("J10").Value  'Cp
    .Cells(Derlgn, 6) = Range("L10").Value 'ville
    .Cells(Derlgn, 7) = Range("L12").Value 'Tél portable
    .Cells(Derlgn, 8) = Range("L13").Value 'Tél domicile
    .Cells(Derlgn, 9) = Range("F13").Value 'email
  End With
 
End Sub

mais la plage qui concerne les produits je n'y arrive pas avec les cellule fusionnées _
lol je verrai cela demain

 

[itzik92]

Re : report de données sur differentes feuilles

Re Jean Marie

merci pour ton aide,
y'a 1 petite erreur ' le n° Facture est au "G6" au lieu de "F6"

Bonne fin de soirée
Bonne nuit

j'ai repris ton modèle , et adapté pour la feuille 'Detail' et c'est bon . reste à afiner,
à demain

Amicalement
Itzik

 

[ChTi160]

Re : report de données sur differentes feuilles

Salut itzik92

bonjour le forum

effectivement ,j'avais supprimé une colonne d'ou le décalage

pour ce qui est de la feuille détails on peut utiliser pour les constantes jusqu'a date de livraison le même principe qu'en feuille Adresse mais pour les rubriques

Reference
Quantité DesignationPrix Unitaire Prix TTC
il va falloir que j'y regarde ce soir

bonne journée

 

[itzik92]

Re : report de données sur differentes feuilles

Salut itzik92

bonjour le forum

effectivement ,j'avais supprimé une colonne d'ou le décalage

pour ce qui est de la feuille détails on peut utiliser pour les constantes jusqu'a date de livraison le même principe qu'en feuille Adresse mais pour les rubriques

Reference
Quantité DesignationPrix Unitaire Prix TTC
il va falloir que j'y regarde ce soir

bonne journée

Re Jean Marie
Bonjour le Forum,

pour les cellules fusionnées , j'ai selectionné la plage de la 1ere à la derniere cellule fusionné , ça à l'aire de marcher ,exp: 'designation' = "D17:J17"

merci
à ce soir

Amicalement

ITZIK92