Discussion :

[John Parker]

Bonjour,

Je cherche à copier certaines cellules d'une ligne d'une feuille vers une autre feuille si la valeur contenue dans la cellule A de chaque ligne correspond à une date contenu dans la cellule A1 de la feuille cible
Mon classeur se compose d’une feuille Sheets(« Saisie ») (source ou je veux copier) vers une feuille Sheets(« RecapJour »).

Si la cellule de la feuille « Saisie » correspond à la date se trouvant en A1 dans la feuille « RecapJour » alors copier les valeurs des cellules B,D,M,N,O,P,Q,R,S,V,W,X,Y,Z de la feuille Saisie.

J’ai trouvé un morceau de code sur internet que je cherche à adapter mais ça ne fonctionne pas

Je m’en remet à nouveau à vos conseils

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Worksheet_Activate()
 
 
Dim sh, i, DernCol As Integer
Dim Wb_dest As String
Dim Wb_dep As String
 
Application.ScreenUpdating = False
 
Wb_dep = ActiveWorkbook.Name
'Récupération de la position de la cellule active
lgn = ActiveCell.Row
Col = ActiveCell.Column
 
 
 
'effacements des données de la feuille "RecapJour"
Sheets("RecapJour").Select
    Sheets("RecapJour").Range("A4").Select
    Sheets("RecapJour").Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
Sheets("RecapJour").Range("A4").Select
 
 
 
Ligne = 4
For i = 2 To Workbooks(Wb_dep).Sheets(1).Range("A65536").End(xlUp).Row
If Workbooks(Wb_dep).Sheets(1).Range("A" & i) = Sheets("RecapJour").Range("B1") Then
Workbooks(Wb_dep).Sheets(1).Range("B" & i).Copy Workbooks(Wb_dep).Sheets(2).Range("A" & Ligne)
Workbooks(Wb_dep).Sheets(1).Range("D" & i).Copy Workbooks(Wb_dep).Sheets(2).Range("B" & Ligne)
Ligne = Ligne + 1
End If
Next i
 
' Repositionnement sur la cellule
Sheets("Saisie").Select
Sheets("Saisie").Cells(lgn, Col).Select
 
End Sub

[nonesofar]

Salut,

Est-ce que tu peux nous dire ce qui ne fonctionne pas sur ta macro? Les messages d'erreurs notamment.

Cordialement

[John Parker]

Bonjour,

Ça bloqué dès le début car j'aimerai que la macro se lance des que je click sur la feuille "RecapJour".

De plus je n'arrive pas a copier en valeur uniquement les colonnes spécifiées dans mon premier post :/

[Philippe Tulliez]

Bonjour,
Pour copier des lignes d'une liste de données suivant critères, je ne peux te conseiller la méthode AdvancedFilter (filtre avancé d'excel) de l'objet Range. Une ligne de code si tu nommes les (Gestionnaire des noms) plages source, critère et cible sinon moins de 10 lignes si tu dois les déclarer dans ton code
Je te conseille avant tout de lire Les filtres avancés ou élaborés dans Excel

Un exemple ici Exporter des lignes suivant critères avec la méthode AdvancedFilter

[John Parker]

Bonjour,
Pour copier des lignes d'une liste de données suivant critères, je ne peux te conseiller la méthode AdvancedFilter (filtre avancé d'excel) de l'objet Range. Une ligne de code si tu nommes les (Gestionnaire des noms) plages source, critère et cible sinon moins de 10 lignes si tu dois les déclarer dans ton code
Je te conseille avant tout de lire Les filtres avancés ou élaborés dans Excel

Un exemple ici Exporter des lignes suivant critères avec la méthode AdvancedFilter

Merci pour ta réponse.

Mon problème est que je ne dois pas sélectionner tout le tableau mais seulement certaines colonnes du tableau ce qui complique les choses …

[Philippe Tulliez]

Bonjour,

Mon problème est que je ne dois pas sélectionner tout le tableau mais seulement certaines colonnes du tableau ce qui complique les choses …

Et bien justement, c'est un des gros avantages de l'exportation avec AdvancedFilter voir chapitre VII-B. Exportation partielle des données filtrées