Discussion :

[lou89]

Bonjour,
Je cherche à développer un code VBA qui me permet de coller les lignes d'un tableau ( onglet BDD) sur l'onglet "Annuaire" selon la valeur d'une cellule présent d'un menu déroulant (cette valeur fait référence à la colonne ville de mon tableau de l'onglet BDD).
J'ai créé le code ci-dessous mais il ne fonctionne pas, j'ai un message d'erreur type 450 "Nombre d'argument incorrects" à la ligne permettant de copier les lignes concernées.
Pourriez-vous m'aider? J'ai mis mon fichier en pièce jointe.

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
Sub ficheannuaire()
 
 Worksheets("Annuaire").Range("C8:M20000").ClearContents
 Dim c As String, a As Integer, o As Range
 Set FiAnn = ActiveWorkbook.Sheets("Annuaire")
 Set BdOLS = ActiveWorkbook.Sheets("BDD")
 
 c = FiAnn.Range("E5").Value
 
 
'Sélectionner toute les lignes si NUM_ORG = ORG_EXPORT'
BdOLS.Activate
 
Range("VILLE").Select
For Each o In Selection
    a = o.Row
    If o.Value = c And Cells(a, 7) > 0 Then
 
        'Copier la ligne dans formulaire
        BdOLS.Range(Cells(a, 1), Cells(a, 2), Cells(a, 3), Cells(a, 4), Cells(a, 5), Cells(a, 6), Cells(a, 7)).Copy
        FiAnn.Cells(FiAnn.UsedRange.Rows.Count + 8, 3).PasteSpecial Paste:=xlPasteValues, Transpose:=False
        Application.CutCopyMode = False
    End If
Next o
End Sub

Je souhaiterais aussi rajouter un deuxième critère sur une deuxième colonne de mon tableau.
Auriez-vous des indications sur mon code pour ajouter ce deuxième critère?
Vous remerciant!!!

[Algoplus]

bonjour,

l'erreur provient de l'écriture du range à copier:

il y aurait plusieurs solutions pour cette copie

Code :

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

BdOLS.Range(Cells(a, 1), Cells(a, 7)).Copy

on spécifie le coin supérieur gauche et le coin inférieur droit de la plage à copier

Code :

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

BdOLS.Cells(a, 1).Resize(1, 7).Copy

on se positionne sur la première cellule et on, définit dans le resize la taille en lignes et colonnes de la plage

il y a encore d'autres solutions ...


Par ailleurs plutôt que d'écrire:

Code :

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

1
2
3
BdOLS.Activate
Range("VILLE").Select
For Each o In Selection

il vaudrait mieux écrire

Code :

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

For Each o In BdOLS.Range("VILLE")

C'est plus concis et ça évite les select et activate qui prennent du temps (imperceptible dans le cas présent) et les changement de feuille à l'exécution du code.

[lou89]

Merci beaucoup
j'ai suivi vos instructions et cela va effectivement plus vite!
Je cherche désormais à appliquer un deuxième critère à ma sélection et je ne sais pas trop comment ajouter un deuxième critère dans mon code.
Je voudrai qu'il recherche également une valeur selon un choix de liste dans la colonne C.
Pourriez vous m'indiquer le type de code à développer pour faire cela ?

[Philippe Tulliez]

Bonjour,

Je cherche à développer un code VBA qui me permet de coller les lignes d'un tableau ( onglet BDD) sur l'onglet "Annuaire" selon la valeur d'une cellule présent d'un menu déroulant (cette valeur fait référence à la colonne ville de mon tableau de l'onglet BDD).

Je ne peux que te conseiller de t'intéresser au filtre avancé d'excel (en VBA la méthode AdvancedFilter). Le critère se résume à une formule qui doit renvoyer VRAI ou FAUX et ensuite cela prend une ligne de code après avoir déclarer les plages de cellules concernées

A lire le cas échéant Les filtres avancés ou élaborés dans Excel

[RyuAutodidacte]

Bonjour,

Une autre solution consisterait à utiliser les filtres avancés (via VBA) avec l’aide d’une feuille tremplin si il le faut :
https://philippetulliez.developpez.c...dvancedfilter/

Edit : trop lent l’utilisation du phone… mea culpa, cela fait doublon