Discussion :

[willybass]

Bonjour,

J’aimerais à partir d’une base concevoir une macro me permettant d’extraire les lignes qui repondent à un critère qui est le n°de département et envoyer ces lignes dans un autre feuille.
J’ai trouvé quelque exemple similaire sur les forum, mais mon soucis est je n’arrive pas à adapter le critere à ma problématique…en fait je débute carément en VBA

Voilà ce que j’ai trouver sur le forum :

Code :

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

1
2
3
4
5
6
7
8
'Sheets("Feuil1").Activate
For Each c In Worksheets("Feuil1").Range("H1", [H65535].End(xlUp))
If c = Sheets("Feuil2").Range("C5") Then
Sheets("Feuil2").Range("C" & 10 + i, "D" & 10 + i).Value = Range(c.Offset(0, 1), c.Offset(0, 2)).Value
i = i + 1
End If
Next
End Sub

Donc dans ma feuil1 j’ai ma base et la colonne H contient le n° de département
Moi je veux extraire toute les lignes qui sont du dép 15 par exemple et alimenter la la feuil2 qui constituera une base de publipostage

Mon souci c’est que je sais pas quoi mettre dans la case critere, quel synthaxe….et je sais pas ce que represente le « i »
Je suis conscient que peut etre je suis pas très clair…
Merci quand meme.

[Invité]

Bonjour,

Votre code département est au format texte (toujours 2 caractères) même s'il est inférieur à 10 ?

[laetitia]

bonjour willybass jacques_ jean le forum un exemple en passant par un tableau
je considere que la ligne s arrete a la colonne h autrement a adapter
les donnees se mettent a la suite dans la feuille 2 si pas de donnees dans feuille 2 le remplissage commenceras en a2

Option Explicit

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
Dim t As Variant, t2() As String, x As Long, I As Long, k As Long
Sub Macro1()
On Error Resume Next
 Application.ScreenUpdating = False
 Sheets("Feuil1").Activate
 t = Sheets("Feuil1").Range("a1:h" & Range("a65536").End(xlUp).Row)
 x = 1
For I = 1 To UBound(t)
If Left(t(I, 8), 2) = 15 Then
ReDim Preserve t2(1 To 8, 1 To x)
For k = 1 To 8
t2(k, x) = t(I, k)
Next k: x = x + 1: End If: Next I
Sheets("Feuil2").Range("a65536").End(xlUp)(2).Resize(UBound(t2, 2), UBound(t2, 1)) = Application.Transpose(t2)
Erase t, t2: Beep
End Sub

[willybass]

WAHOW.

Merci laetita....je vais faire des vérif mais apparament ça marche du tonner !

Dans le cas ou je veux ajouter des départements à mes critères que dois-je modifier dans le script? Padrons d'abuser...

Pour Jacques_Jean:
en fait j'ajoute une colonne à coté du code postal et j'isole le premier caracter si le code postal est inférieur à 10000 et les 2 premier si c'est superieur...

[laetitia]

re si tu veus ajouter des criteres tu modifie cette ligne

Code :

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

If Left(t(I, 8), 2) = 15 Or Left(t(I, 8), 2) = 38 Or Left(t(I, 8), 2) = 75 Then 'ect...

autrement tu peus faire du selectif en demarrant sur un impubox par exemple

[willybass]

C'est décidé....tu est ma nouvelle muse !

Merci beaucoup!

[Mapokko]

Salut,
Pour que les autres visiteurs de ce forum et plus précisemment ceux qui ont le même problème comprennent bien comment faire ,prière de joindre un fichier et merci.
Cordialement.