Discussion :

[skipeemed]

Bonjour,

Je voudrai faire la copie d'un groupe de valeur d'une colonne précise mais que ça soit à partir d'une cellule qui contient un mot précis, puis la coller dans un autre endroit ça dépendra aussi de l'emplacement d'une cellule qui contient un mot précis.

Donc si j'ai par exemple le tableau suivant dans un fichier excel:
Nom Prénom Ville Date de naissance
Dubosque Franck Paris 12/02/1976
L'hermite Thierry Bordeaux 23/06/1965
Ardisson Renaud Bordeaux 31/04/1970

Et dans un autre fichier excel j'ai le tableau suivant:
Nom Prénom Ville Date de naissance
Dubosque Franck Paris 12/02/1976
L'hermite Thierry Bordeaux
Ardisson Renaud Bordeaux

Je veux copier du premier fichier excel la colonne des dates de naissance à partir de la ligne qui contient comme ville bordeaux donc directement après paris c'est à dire les dates "23/06/1965" et "31/04/1970". Et les coller dans le deuxième fichier dans les cellules qui ne contiennent rien.

Une remarque c'est que je copie toujours à partir de la ligne directement après la ligne qui contient paris et je colle aussi toujours après la ligne qui contient "paris".

Donc si vous avez des idées, merçi de les faire partager et merçi d'avance.

Cdt,
Skip

[Theze]

Bonjour,

Si tes enregistrements sont triés de la même façon dans les deux classeurs, un simple collage de la colonne D suffit :

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
 
Sub Copier()
 
    Dim Cls1 As Workbook
    Dim Cls2 As Workbook
 
    'le classeur contenant cette macro et
    'les valeurs à jour
    Set Cls1 = ThisWorkbook
 
    'le classeur à mettre à jour
    Set Cls2 = Workbooks("Classeur2.xls")
 
    'copie la colonne D et la colle dans le
    'classeur à mettre à jour et en colonne D
    Cls1.Worksheets("Feuil1").Columns("D:D").Copy Cls2.Worksheets("Feuil1").Range("D1")
End Sub

Hervé.

[skipeemed]

Bonjour, j'ai utilisé ce code et j'ai une erreur au niveau de la ligne qui est en rouge:

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
ChDir "C:\SKIP"
    Workbooks.Open Filename:="C:\SKIP\Classeur1.xls"
    Dim Cls1 As Workbook
    Dim Cls2 As Workbook
    Dim d As Range, dernière_cellule As Range
    Dim e As Range, dernière_cellule1 As Range
    Set Cls1 = Workbooks("Classeur1.xls")
    Set Cls2 = Workbooks("les données du " & Format(Date, "ddmmyyyy") & ".xlsx")
    For Each d In Sheets("Feuil1").Range("A1", Range("A" & Rows.Count).End(xlUp))
    If d.Value Like "Par*" Then Set dernière_cellule = d
    Next
    Windows("les données du " & Format(Date, "ddmmyyyy") & ".xlsx").Activate
    For Each e In Sheets("Données").Range("B1", Range("B" & Rows.Count).End(xlUp))
    If e.Value Like "Par*" Then Set dernière_cellule1 = e
    Next
    With dernière_cellule & dernière_cellule1
    Cls1.Worksheets("Feuil1").Range(.Offset(1, 0), .End(xlDown)).Offset(0, 5).Copy Cls2.Worksheets("Données").Range(.Offset(1, 0), .End(xlDown)).Offset(0, 5)
    End With
    Windows("Classeur1.xls").Activate
    ActiveWindow.Close
    Windows("les données du " & Format(Date, "ddmmyyyy") & ".xlsx").Activate

Et si il y'a une autre erreur merçi de me prévenir. Voilà si vous avez une idée de la solution merçi de la partager et à toute.

Cordialement,
SKIP

[casefayere]

Bonsoir,
sans avoir regardé ou analysé ton code, cette partie est truffée d'erreur :

Code :

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

1
2
3
With dernière_cellule & dernière_cellule1
    Cls1.Worksheets("Feuil1").Range(.Offset(1, 0), .End(xlDown)).Offset(0, 5).Copy Cls2.Worksheets("Données").Range(.Offset(1, 0), .End(xlDown)).Offset(0, 5)
    End With

déjà pourquoi le with, pourquoi les offset et les parentheses mal placées.

quand j'aurai compris ton but, peut-etre que je serai dispo

[skipeemed]

En fait je veux faire la copie d'une colonne tout de suite après la cellule qui commence par le mot "Par" et la coller aussi dans l'emplacement qui suit le meme concept.

le "offset" c'est pour le décalage des colonnes (5 dans mon exemple) et de la ligne (1 dans mon exemple) par rapport à laquel se trouve la cellule qui contient le mot qui commence par "Par".

Pour "with"" c'est parce je commence la copie directement après la dernière cellule qui contient le mot qui commence par "Par" jusqu'a la dernière cellule du tableau et je la colle suivant le meme concept.

Voilà.
Merçi d'avance

Cdt,
SKIP

[casefayere]

Bonjour à tou(te)s, skipeemed

Pour "with"" c'est parce je commence la copie directement après la dernière cellule qui contient le mot qui commence par "Par" jusqu'a la dernière cellule du tableau et je la colle suivant le meme concept.

je n'ai toujours pas le tempsde regarder mais ta citation est fausse, with n'est pas fait pour ça.

exemple :

Code :

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

1
2
3
sheets("feuil1").range("a1") =....
sheets("feuil1").range("a2")=....
sheets("feuil1").range("a3")=....[/

bon courage
peut s'écrire

Code :

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

1
2
3
4
5
6
with sheets("feuil1")
   .range("a1") = ...
   .range("a2") = ...
   .range("a3") = ...
 
end with

[AlainTech]

Code :

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

    With dernière_cellule & dernière_cellule1

With est fait pour éviter la répétition d'un objet (range, feuille, classeur, contrôle...).
Ca n'a donc aucun sens de concaténer (&) 2 objets.
La concaténation ne se fait que sur des Strings.