Discussion :

[lenul78570]

Bonjour,
Voila le début de ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub copie()
'
' copie Macro
'
    Dim prénom As String
    Dim mois As String
    prénom = InputBox("Indiquez votre prénom :", "Copie de mes devis")
    mois = InputBox("Indiquez pour quel mois vous voulez copier vos devis :", _
    "Copie de mes devis")
 
End Sub

Cette macro est affectée à un classeur "classeur1"

La variable "mois" peut avoir comme valeur janvier ou février etc.... jusqu'à décembre. Si elle a la valeur de "mars" la feuille "mars" du "classeur1" doit être activée

La variable "prénom" doit permettre la sélection de toutes les cellules de la colonne "D" de la feuille "mars" qui ont pour valeur le prénom indiqué.

Ensuite la macro doit copier toutes ces cellules pour les coller dans la colonne "A" (à partir de la cellule A1) située dans un autre classeur "classeur2" feuille "mars".

Merci de votre aide

[rvtoulon]

Slt,
c'est sur c'est vraiment un début de code.
voici 90% du code que tu souhaites, je te laisse faire quelques recherches sur le forum et dans la faq pour voir comment ouvrir un autre classeur par macro et comment y insérer une donnée.

Le code si dessous fonctionne si tu veux copier les données selon tes critères mais dans le même classeur et dans une feuille que tu pourrais appellé pour l'exemple "recap"

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
 
Sub copie()
Dim prenom As String, mois As String
Dim x As Long, y As Long
Dim plage As Range
 
prenom = InputBox("Indiquez votre prénom :", "Copie de mes devis")
mois = InputBox("Indiquez pour quel mois vous voulez copier vos devis :", _
"Copie de mes devis")
 
Sheets(mois).Select
 
'Définie la plage de recherche ici colonne D à partir de la 1ere cellule
'jusque la dernière cellule pleine
Set plage = Sheets(mois).Range("D1:D" & Range("D65356").End(xlUp).Row)
 
y = 1
 
With Sheets(mois)
   For Each cel In plage
    If cel.Value = prenom Then
     'Donne à la cellule A1 etc ... de la feuille de réception la valeur du prénom
     Sheets("recap").Range("A" & y).Value = cel.Value
     y = y + 1
    End If
   Next cel
End With
 
End Sub

si tu n'y arrive pas on est là
A+

EDIT: voici un lien :
http://excel.developpez.com/faq/?page=Classeur#BookOpen