VBA selection et copie sur choix variable

[jean38]

Bonjour à tous ,
avant de vous "importuner", j'ai essayé de trouver , de chercher, mais après 3 jours, je cale et pourtant je pense que j'apporchais.
Mais connaissance en VBA sont quasi nulles, et oui on debute toujours un jour.
en premier exo j'ai un classeur "BASE", j'ai 3 colonnes, une contient le N° de mois, et par ligne, les 2 autres colonnes contiennent des données.
je peux donc avoir plusieurs lignes avec le même numero de mois (et obligatoirement contigues).
je voudrais avoir une boite de dialogue qui me demande le mois cherché, qui copie et colle toutes les lignes de ce mois dans un autre tableau sur un autre feuille que nous nomerons "EDITION".
merci d'avance à ceux qui prendront le temps de me ... sauver.

PS j'ai chercher sur toutes les bases mais rien trouver.

 

[wilfried_42]

Re : VBA selection et copie sur choix variable

Bonjour

Regarde, les filtres elaborés, avec coprier dans une autre feuille, tu as plein d'exemples sur le forum : recherche mots cles : Filtres Elabores

sur les manips et par macro, c'est assez simple (avec l'enregistreur de macro)

 

[jean38]

Re : VBA selection et copie sur choix variable

c'est avec une macro, par l'enregisteur, je ne vois pas comment lui dire de charcher tant que la veleur est 3 par exemple??

 

[wilfried_42]

Re : VBA selection et copie sur choix variable

re:

il serait plus simple dans ce cas d'envoyer en fichier exemple, sans donnée confidentielle et < à 48,8 ko de préférence Zipper

@ te lire

 

[jean38]

Re : VBA selection et copie sur choix variable

Voici un fichier test,
en fonction d'un choix mois 1 par exemple, je veux que les lignes soient copiées dans le fichier edition.
ceci en macro et non en tableau croisé.

merci d'avance

 

[jean38]

Re : VBA selection et copie sur choix variable

Up dans le besoin... comme tous bien sur.
Amitiés

 

[pierrejean]

Re : VBA selection et copie sur choix variable

bonjour jean38

Salut Wilfried 🙂🙂

vois si cela te convient

 

[JNP]

Re : VBA selection et copie sur choix variable

Bonjour le forum 🙂,
Une solution :

Sub RecopieMois()
Dim Mois As Integer, Ligne As Integer, I As Integer
Ligne = 4
Sheets("EDITION").Range("B4:E24").ClearContents
Mois = InputBox("Mois à traiter (en nombre)")
Sheets("EDITION").Cells(1, 3) = MoisLettre(Mois)
For I = 3 To 50 ' A adapter suivant le nombre de ligne à traiter
    If Month(Sheets("BASE").Cells(I, 2)) = Mois Then
        Sheets("EDITION").Cells(Ligne, 2) = Sheets("BASE").Cells(I, 2)
        Sheets("EDITION").Cells(Ligne, 3) = Sheets("BASE").Cells(I, 3)
        Sheets("EDITION").Cells(Ligne, 4) = Sheets("BASE").Cells(I, 4)
        Sheets("EDITION").Cells(Ligne, 5) = Sheets("BASE").Cells(I, 5)
        Ligne = Ligne + 1
    End If
Next I
End Sub
Function MoisLettre(Mois)
Select Case Mois
    Case 1
        MoisLettre = "Janvier"
    Case 2
        MoisLettre = "Février"
    Case 3
        MoisLettre = "Mars"
    Case 4
        MoisLettre = "Avril"
    Case 5
        MoisLettre = "Mai"
    Case 6
        MoisLettre = "Juin"
    Case 7
        MoisLettre = "Juillet"
    Case 8
        MoisLettre = "Août"
    Case 9
        MoisLettre = "Septembre"
    Case 10
        MoisLettre = "Octobre"
    Case 11
        MoisLettre = "Novembre"
    Case 12
        MoisLettre = "Décembre"
End Select
End Function

A te lire 😎

 

[jean38]

Re : VBA selection et copie sur choix variable

les amis merci,

grace à vos macros, j'ai fait une compil et c'est parti. voici des nuits solutionnées en quelques minutes pour moi grace à votre aide.

Sauriez vous me conseiller des ouvrages pour avancer en VBA ?? je ne trouve rien pour un débutant comme moi?

et merci encore

 

[jean38]

Re : VBA selection et copie sur choix variable

merci à tous pour votre aide, j'ai fait une petite compil de vos proposition et tout est super.

des nuits réttrappées en quelques minutes.

Sauriez vous me proposer des ouvrages me permettant de progresser en VBA et la route est longue pour un débutant comme moi

Encore merci de votre aide.

Jean.