Recopier des valeurs d'une feuille à une autre
Résolu/Fermé
Miss_tik76
Messages postés
26
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
23 janvier 2014
-
22 janv. 2014 à 13:51
Miss_tik76 Messages postés 26 Date d'inscription dimanche 3 août 2008 Statut Membre Dernière intervention 23 janvier 2014 - 23 janv. 2014 à 11:15
Miss_tik76 Messages postés 26 Date d'inscription dimanche 3 août 2008 Statut Membre Dernière intervention 23 janvier 2014 - 23 janv. 2014 à 11:15
A voir également:
- Recopier des valeurs d'une feuille à une autre
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
- Bruler une feuille de laurier - Guide
- Quand on visite cette page, des messages sont échangés entre le navigateur et le site web. des extraits des messages échangés lors de la première connexion sont reproduits ci-dessous. des valeurs ont été remplacées par des numéros. retrouvez chacune de ces valeurs. - Forum Windows 10
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 23/01/2014 à 10:44
Modifié par michel_m le 23/01/2014 à 10:44
Bonjour,
1° Message annulé
Je regarde
Michel
1° Message annulé
Je regarde
Michel
Miss_tik76
Messages postés
26
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
23 janvier 2014
1
23 janv. 2014 à 10:47
23 janv. 2014 à 10:47
Bonjour,
J'ai avancé sur mon projet et trouvé ce code :
Mais j'ai un soucis avec ma fonction find qui ne me retourne pas la date exacte...
J'ai avancé sur mon projet et trouvé ce code :
With Worksheets("DATA")
DerLig = .Columns("A").Find("*", , , , , xlPrevious).Row
Set Col_C = .Range("C2:C" & DerLig)
Set Plage1 = Sheets("Feuil1").Range("D11:D20")
For Each d In Plage1
For Each e In Col_C
donnee = d.Value
If e.Value = donnee Then
If e.Offset(0, -1).Value = ComboBox1.Value Then
donnee1 = e.Offset(0, 1).Value
col = Sheets("Feuil1").Rows("10").Find(donnee1, , , , , xlNext).Column
lig = d.Row
e.Offset(0, 3).Copy
Sheets("Feuil1").Cells(lig, col).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End If
Next e
Next d
End With
Mais j'ai un soucis avec ma fonction find qui ne me retourne pas la date exacte...
Miss_tik76
Messages postés
26
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
23 janvier 2014
1
23 janv. 2014 à 10:48
23 janv. 2014 à 10:48
Par exemple si ma date cherchée est 02/01/2014 et qu'elle n'est pas présente dans Feuil1 il copie les valeur à la date 02/11/2014...
Miss_tik76
Messages postés
26
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
23 janvier 2014
1
Modifié par Miss_tik76 le 23/01/2014 à 10:57
Modifié par Miss_tik76 le 23/01/2014 à 10:57
Je viens de modifier ma fonction find de cette façon :
col = Sheets("Feuil1").Rows("10").Find(donnee1, , , xlWhole, , xlNext).Column
Ca à l'air de fonctionner
Miss_tik76
Messages postés
26
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
23 janvier 2014
1
23 janv. 2014 à 10:54
23 janv. 2014 à 10:54
Mon nouveau problème est que s'il ne trouve pas la date il beug. Comment faire pour que s'il ne trouve pas la date il passe à la suivante ?
Miss_tik76
Messages postés
26
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
23 janvier 2014
1
23 janv. 2014 à 11:15
23 janv. 2014 à 11:15
Cette fois ce code fonctionne sur mon exemple, plus qu'à la mettre à l'épreuve en condition réel ;)
Dim DerLig As Integer
Dim Plage1 As Range
Dim Lig1 As Integer
Dim Col_C As Range
Dim col As Integer
Dim d As Range
Dim e As Range
With Worksheets("DATA")
DerLig = .Columns("A").Find("*", , , , , xlPrevious).Row
Set Col_C = .Range("C2:C" & DerLig)
Set Plage1 = Sheets("Feuil1").Range("D11:D20")
For Each d In Plage1
For Each e In Col_C
If e.Value = d.Value Then
If e.Offset(0, -1).Value = ComboBox1.Value Then
donnee1 = e.Offset(0, 1).Value
'Pour diminuer le temps de recherche
Nb_Tr = Application.CountIf(Sheets("Feuil1").Rows("10"), donnee1)
If Nb_Tr > 0 Then
col = Sheets("Feuil1").Rows("10").Find(donnee1, , , xlWhole, , xlNext).Column
lig = d.Row
e.Offset(0, 3).Copy
Sheets("Feuil1").Cells(lig, col).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End If
End If
Next e
Next d
End With
