Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie de donnees dans une autre feuille avec des parametres

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion oliv67
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

oliv67

XLDnaute Occasionnel
bonjour à tous

je suis face à un problème dont je ne trouve pas la solution

je souhaite copier les donnees d'une feuille dans une autre feuille comme indiqué dans la pièce jointe, en ayant deux parametres : la date et d'une croix permettant de connaître si oui ou non cette collecte est prévue ce jour là.

merci pour votre aide.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : copie de donnees dans une autre feuille avec des parametres

bonsoir à tous

merci à bqtr pour son code
non skoobi le code ne fait pas ce que je veux
il faut remodeler la recopie dans la feuille ordre de collecte pour obtenir le résultat ci dessous


a14 c14 d14 e14 f14 g14
a - ffffff 20202020 11111111 14h45 14h45 systematique
35000 rennes

et idem pour les autres lignes


olivier
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie de donnees dans une autre feuille avec des parametres

Re,

Bon ben je vois que ma combobox ne te plait pas 🙁, plus sérieusement je pensais que tu avais plus de tournée que ça.

Test ces modifs :

Code: 
With Sheets("collectesSYSTEMATIQUES").Range("A1:A" & Sheets("collectesSYSTEMATIQUES").Range("A65536").End(xlUp).Row)
  Set C = .Find(6730)
     If Not C Is Nothing Then
       firstAddress = C.Address
        Do
            For i = 12 To .Range("IV" & C.Row).End(xlToLeft).Column
                If .Cells(3, i) = CDate(TextBox1) And .Cells(C.Row, i) = "x" Then
                    concat = .Range("B" & C.Row) & " - " & .Range("C" & C.Row) & vbCrLf & .Range("D" & C.Row) & " " & .Range("E" & C.Row)
                    Sheets("ordredecollecte").Range("A" & Sheets("ordredecollecte").Range("A65536").End(xlUp).Row + 1) = concat
                   .Range("F" & C.Row).Copy Sheets("ordredecollecte").Range("C" & Sheets("ordredecollecte").Range("C65536").End(xlUp).Row + 1)
                   .Range("G" & C.Row).Copy Sheets("ordredecollecte").Range("D" & Sheets("ordredecollecte").Range("D65536").End(xlUp).Row + 1)
                   .Range("H" & C.Row).Copy Sheets("ordredecollecte").Range("E" & Sheets("ordredecollecte").Range("E65536").End(xlUp).Row + 1)
                   .Range("I" & C.Row).Copy Sheets("ordredecollecte").Range("F" & Sheets("ordredecollecte").Range("F65536").End(xlUp).Row + 1)
                   .Range("J" & C.Row).Copy Sheets("ordredecollecte").Range("G" & Sheets("ordredecollecte").Range("G65536").End(xlUp).Row + 1)
 
                End If
            Next
            concat = ""
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
     End If
End With

Il faut décalrer la variable concat comme ceci : Dim concat as String

Et comme je te le précisais plus haut, il faut que la ligne 13 de A à G comporte des données.
Les cellules fusionnées en VBA c'est pas facile à gérer.

Juste une petite chose, pourquoi à l'ouverture du userform la date du jour se met dans le textbox ? C'est pas très pratique car il faut l'effacer pour rentrer la date qui sert à la recherche.

Bonne fin de journée
 
Vote positif 0 Vote négatif
Re : copie de donnees dans une autre feuille avec des parametres

bonsoir à tous

j'ai une autre question

lorsque j'ai plus de lignes que peux contenir la feuille excel, je souhaiterai que l entete de la premiere feuille soit recopie comme dans l"exemple joint et que le nb pages s'affiche



olivier
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
502
job75
C
  • Résolu(e)
XL 2016 rapatrier des données d'un onglet vers une feuille récapitulatrice via un menu déroulant
Réponses
4
Affichages
105
cocotte38
C
N
  • Résolu(e)
XL 2010 A partir d’un Shape, ouvrir un fichier dont l'adresse est sur une autre feuille dans une cellule
Réponses
4
Affichages
381
Nounours_59
N
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
126
ChTi160
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
325
Phil69970
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
214
thunder23
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
386
akm
A
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
166
flc13090
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
618
steph_29120
S
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
738
jeanmi
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
190
Steph733
S
F
  • Question Question
Autres Combobox multiples dans un userform
Réponses
1
Affichages
480
herve62
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
177
Webperegrino
W
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
135
sylvanu
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
144
AlineJ
A
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
929
fanfan38
M
  • Question Question
Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)
2
Réponses
29
Affichages
402
TooFatBoy
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
117
Ron74
R
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
158
Pierreavecunp
P
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
562
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…