programmer un code en VBA dans une macro

Version imprimable

27/12/2010, 10h33
skipeemed

programmer un code en VBA dans une macro

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

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:

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é.

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

Code:

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

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

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

29/12/2010, 10h29
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
29/12/2010, 14h06
casefayere
Bonjour à tou(te)s, skipeemed

Citation:

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:

1 2 3 sheets("feuil1").range("a1") =.... sheets("feuil1").range("a2")=.... sheets("feuil1").range("a3")=....[/
bon courage
peut s'écrire
Code:

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

Bonjour,

J'ai un peu retouché ta proc mais j'ai aussi relevé que tu parle de "je veux faire la copie d'une colonne tout de suite après la cellule" alors que dans ton code tu indique la cinquième colonne ?
Adapte et reviens si ça ne convient pas :

Code:

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
 
     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
 
     'arrête si le classeur n'existe pas
     If Dir("C:\SKIP\Classeur1.xls") = "" Then Exit Sub
 
     Set Cls1 = Workbooks.Open("C:\SKIP\Classeur1.xls")
 
     '"ThisWorkbook" peut être utilisé en lieu et place de "Workbooks("les données du " & Format(Date, "ddmmyyyy") & ".xlsx")"
     'si la proc est dans ce dernier
     'Set Cls2 = ThisWorkbook
     Set Cls2 = Workbooks("les données du " & Format(Date, "ddmmyyyy") & ".xlsx")
 
     For Each d In Cls1.Worksheets("Feuil1").Range("A1", Range("A" & Rows.Count).End(xlUp))
         If d.Value Like "Par*" Then Set dernière_cellule = d
     Next
 
     For Each e In Cls2.Worksheets("Données").Range("B1", Range("B" & Rows.Count).End(xlUp))
         If e.Value Like "Par*" Then Set dernière_cellule1 = e
     Next
 
     'copie la valeur de la cellule située 1 ligne plus bas et 5 colonnes à droite
     'le décalage se faisant par rapport à la cellule de référence (ici dernière_cellule)  .Offset(1, 1).Copy = 1 ligne en dessous et une colonne à droite
     'il n'est pas nécessaire de préciser le classeur et la feuille car dés l'affectation (Set dernière_cellule = d)
     'Excel sait exactement à quel classeur et feuille la cellule appartient
     With dernière_cellule
        .Offset(1, 5).Copy dernière_cellule1.Offset(1, 5)
     End With
 
    Cls1.Close
 
   'probablement pas nécessaire car à la fermeture du classeur Cls1
   'Excel active le classeur Cls2 si seulement ces deux classeurs sont ouverts
   'mais bon, à voir ?
    Cls2.Activate

Hervé.

04/01/2011, 07h47
AlainTech

Citation:

Envoyé par skipeemed

Code:

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.